Error 96 :S
Hola Hector, ejecutando mi programa me da cierto error de anidamiento quisiera que me ayudes un poquito, no conozco muchas cosas de visual fox pro. Te copio el código.
scan for x <= m.total
insert into regcom (nrocom, nroreg, codcue, fecregcom, descue, monregdeb, monreghab,;
codcec, detrecue, afecue, refcom, actter);
values (comres.nrocom, x, comres.codcue, comres.fecregcom, comres.descue, comres.mondeb, comres.monhab,;
'', '', .f., '', comres.actter)
if !empty(comres.actter)
insert into regmovter(codter, nomter, detreg, refcom, monto, nrocom, nroreg, codcue);
select codter, nomter, detreg, refcom, monto, nrocom, x, codcue ;
from so2112t0 ;
where alltrim(so2112t0.codcue) == alltrim(comres.codcue)
else
endif
x = x +1
Endscan
scan for x <= m.total
insert into regcom (nrocom, nroreg, codcue, fecregcom, descue, monregdeb, monreghab,;
codcec, detrecue, afecue, refcom, actter);
values (comres.nrocom, x, comres.codcue, comres.fecregcom, comres.descue, comres.mondeb, comres.monhab,;
'', '', .f., '', comres.actter)
if !empty(comres.actter)
insert into regmovter(codter, nomter, detreg, refcom, monto, nrocom, nroreg, codcue);
select codter, nomter, detreg, refcom, monto, nrocom, x, codcue ;
from so2112t0 ;
where alltrim(so2112t0.codcue) == alltrim(comres.codcue)
else
endif
x = x +1
Endscan
1 respuesta
Respuesta de Hector Cevallos
1
realmente no veo nada fuera de lo normal dentro de su codigo, bueno excepto el scan q por lo que veo lo esta usando como ciclo repetitivo pero el problema es que scan si bien es cierto es un ciclo repetitivo pero generalmente se usa para leer tablas de pronto y por eso es que le marca el error, mire con todo y para salir de la duda en vez del scan ponga lo siguiente DO WHILE x <= m.total y al final en vez de endscan ubica LOOP luego ejecute y vea si ahi ejecuta bien
