13/05/2008, 02:20
|
| | | Fecha de Ingreso: abril-2008
Mensajes: 20
Antigüedad: 17 años Puntos: 0 | |
| Re: Ayuda para generar un txt
Ya esta conseguido el fallo era lo que decía avellaneda , lo unico que he cambiado es cuando darle el valor a free. En vez de hacerlo al cargar el formulario , lo hago justo antes de abrir el fichero.De la siguiente manera:
file = FreeFile
Open App.path & "\contable.txt" For Append As #file
Print #file, "430000001" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabalb("preciopedido") + bdcabfactura("iva") & " D"
Print #file, "477000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabfactura("iva") & " H"
Print #file, "700000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabalb("preciopedido") & " H"
Close #file
Muchas gracias |