Ayuda para generar un txt

[pradejon]

Hola , tengo una aplicación en la que creo facturas,albaranes...
A la hora de crear una factura tengo que crear un apunte en un fichero txt.
Lo tengo hecho de la siguiente manera:

Declaro el file al entrar al formulario

Dim file As Integer
file = FreeFile


Esto cada vez que cree una factura que haga un apunte nuevo:

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


El error que me sale es "Nombre o número de archivo incorrecto".

Muchas gracias

[Baldur]

Creo que el fallo lo tienes en el AS #file y en el Close #file
Tiene que ser AS file y Close file

Prueba así:

Código:

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

Ya te digo que CREO....
Pero prueba a ver que tal...
Saludos!

[Avellaneda]

Hola, yo no creo que sea ese el error, la asignación del número de fichero es correcta (ambas lo son), mas bien me inclino a creer que la instrucción file = FreeFile no se encuentra en el mismo módulo donde abre el archivo.

[pradejon]

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

[Baldur]

ah, ok.
Es que tal y como lo escribiste pensé que estaba todo en el mismo procedimiento.
Saludos!