Buenas gente! El problema es el siguiente.
Tengo una aplicación que levanta un archivo TXT para agregarla a una BD.
La aplicación funciona correctamente SALVO que no me leel el 1er registro..
Leo el código y la verdad no puedo encontrar nada.. Alguno me podría ayudar que me falta? o porque me lee a partir del 2do registro?
El archivo lo lee perfectamente, solo que el 1er registro no lo lee.
Este es el código (algunas cosas las saqué así se entiende mejor)
&FLAG2 = 'MAESGEN5'
&ruta = 'M2002.TXT'
&i= DFROpen(&ruta)
DO case
case &i = -1... //HACE LOS CASE DE ERRORES DEL DFROPEN()
EndCase
&resNext = DFRNext()
If &i = 0
DO case
case &resnext = -1.. //HACE LOS CASE DE ERRORES DEL DFRNEXT()
case &resnext = 0
Do while DFRNext() = 0
&FLAG = 'IMPORT'
&i = dfrgtxt(&TxtContenido)
&TxtContenido=StrReplace(&TxtContenido, '#', 'Ñ')
call(PIMPORTTODO ,&TxtContenido,'002',&FLAG2)
EndDo
Aviso.Caption = ' IMPORTADO CORRECTAMENTE '
EndCase
EndIf
&i=DFRClose()
El do while lo hace porque cuando ejecuto el procedimiento, me carga datos en la base de datos, pero omite el 1er registro. Si alguien me puede ayudar, agradesco de antemano.