formarto nombre de archivo
Publicado por Angel (1 intervención) el 13/08/2018 18:59:16
Hola
tengo un formulario que al darle al botón de procesar el genera un archivo con los datos consultados el cual el nombre es fijo. "FacEle.csv", ahora debe seguir haciendo lo mismo pero el nombre del archivo no debe ser fijo si no cambiar segun algunos requerimientos el formato seria CCTTYYYYMMDDS
CC:Prefijo de cliente
TT: Prefijo de tipo
YYYYMMDD: fecha de corte del cliente
S: Numero de secuencia de archivo
el codigo actual es
gracias por su ayuda
tengo un formulario que al darle al botón de procesar el genera un archivo con los datos consultados el cual el nombre es fijo. "FacEle.csv", ahora debe seguir haciendo lo mismo pero el nombre del archivo no debe ser fijo si no cambiar segun algunos requerimientos el formato seria CCTTYYYYMMDDS
CC:Prefijo de cliente
TT: Prefijo de tipo
YYYYMMDD: fecha de corte del cliente
S: Numero de secuencia de archivo
el codigo actual es
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function llena_interfaz(datos2 As ADODB.Recordset)
Dim FileName As String
CDialog.FileName = "FacElec.csv"
CDialog.CancelError = False
On Error GoTo Err:CDialog.ShowSaveFileName = CDialog.FileName
Set datos2 = datos2.NextRecordset
Open Trim(FileName) For Output As #2
'llena encabezado
Print #2, datos2!Cabecera
Set datos2 = datos2.NextRecordset
'llena facturas
Do While Not datos2.EOF Print #2, XCstr(datos2!linea)
datos2.MoveNextLoop
If datos2.EOF Then Close #2
End If
MsgBox "La interfaz de Factura Electronica ha sido generada con exito", vbInformation, Me.Caption
gracias por su ayuda
Valora esta pregunta
0