Puede ser que el archivo que te mandan no tenga el chr(13) para la siguiente
linea al final de cada una y por eso te lee todo junto.
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: "vbusers List Member" <[email protected]>
Sent: Friday, November 02, 2007 11:13 AM
Subject: [vbusers] Achivo TXT AFIP RECE - Facturacion Electronica
Que tal Colegas, los molesto en esta oportunidad para consultarlos en la
forma de leer un archivo txt que devuelve la AFIP cuando asigna los
dichosos
CAE para las Facturas Electronicas. El tema es que envia un archivo txt,
con varias lineas (registros), pero cuando lo leo, me lo lee como un solo
registro, no linea por linea.
Quisiera saber si alguno me puede dar una mano.
El codigo que uso para leer el txt es el siguiente:
Dim Registro as String
Open Nombre_del_Archivo_txt For Input As #1
Reg_Leidos = 0
Do While Not EOF(1)
Line Input #1, Registro
sTipo = Mid(Registro, 1, 1)
If sTipo = \"2\" Then
sCabecera = Mid(Registro, 12, 4)
sFactura = Mid(Registro, 16, 8)
sCAE = Mid(Registro, 136, 14)
sVenceCAE = Mid(Registro, 150, 8)
sSql = \"UPDATE FACTURAS SET CAE = \'\" & sCAE & \"\',
CAE_Vence = #\" & Mid(sVenceCAE, 1, 4) & \"/\" & Mid(sVenceCAE, 5, 2) &
\"/\" & Mid(sVenceCAE, 7, 2) & \"# \" & _
\"WHERE Cabecera = \" & sCabecera & \" AND Factura = \"
& sFactura & \" AND CAE_Pendiente = True AND Anulado = False;\"
DbBase.Execute sSql, I
Reg_Leidos = Reg_Leidos + I
End If
Loop
Close #1
DbBase.CommitTrans
El tema es que en Registro, me trae de una todo el archivo txt, no la
primera linea.
Desde ya, agradezco mucho la colaboracion.
Saludos.
Néstor.
__________________________________
Registrate desde
http://servicios.arnet.com.ar/registracion/registracion.asp?origenid=9 y
participá de todos los beneficios del Portal Arnet.
--------------------------------------------------------------------------------
13070868360001200710261419010397200000008428387701360400000008A S
22007102601001000000001000000018030500010912000000000129349000000000000000000000000106900000000000022449000000000000000000000000000000A5743051815943520071105
200710012007103120071130
22007102601001000000002000000028030500010912000000000129349000000000000000000000000106900000000000022449000000000000000000000000000000A5743059097201820071105
200710012007103120071130
22007102601001000000003000000038030500010912000000000129349000000000000000000000000106900000000000022449000000000000000000000000000000A5743031554889420071105
200710012007103120071130
22007102601001000000004000000048030500010912000000000147983000000000000000000000000122300000000000025683000000000000000000000000000000A5743091201837520071105
200710012007103120071130
22007102601001000000005000000058030500010912000000000388047000000000000000000000000320700000000000067347000000000000000000000000000000A5743044588939720071105
200710012007103120071130
22007102601001000000006000000068030500010912000000000394944000000000000000000000000326400000000000068544000000000000000000000000000000A5743036297464020071105
200710012007103120071130
22007102601001000000007000000078030546231034000000000296450000000000000000000000000245000000000000051450000000000000000000000000000000A5743010503813620071105
200710012007103120071105
22007102601001000000008000000088030516272380000000000155122000000000000000000000000128200000000000026922000000000000000000000000000000A5743094207245820071105
200710012007103120071105
3
000008000000001770593000000000000000000000001463300000000000307293000000000000000000000000000000
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.15.19/1105 - Release Date: 02/11/2007
11:04
