DAR FORMATOS_DE FOX A EXEL
Publicado por MARCO (25 intervenciones) el 28/11/2019 19:24:33
REQUIERO APOYO POR FAVOR.
ESTE ES MI CODIGO Y ME CORRE BIEN PERO EN LA FILA 4.( XLSheet.Cells(Fila,4)=ALLTRIM(AFPS.dni) EN ESTE CODIGO ME CARGA BIEN LOS DATOS PERO LOS DNIS NO ME ESTA IMPORTANDO CORRECTO SI UN DNI ES (04450637) SOLO ME CARGA EN EL EXEL (4450637) EN ESO QUIERO SU POYO POR FAVOR COMO HACER QUE ME CARGA COMPLETO LOS DNIS..
ESTE ES MI CODIGO Y ME CORRE BIEN PERO EN LA FILA 4.( XLSheet.Cells(Fila,4)=ALLTRIM(AFPS.dni) EN ESTE CODIGO ME CARGA BIEN LOS DATOS PERO LOS DNIS NO ME ESTA EXPORTANDO CORRECTO SI UN DNI ES (04450637) SOLO ME CARGA EN EL EXEL (4450637) EN ESO QUIERO SU POYO POR FAVOR COMO HACER QUE ME CARGA COMPLETO LOS DNIS.. ESPERO SU APOYO . NO SE COMO CARGAR YA E INCLUIDO ( ALLTRIM ) Y NI ASI ME CARGA COMPLETO . DE ANTE MANO ..GRACIAS
ESTE ES MI CODIGO Y ME CORRE BIEN PERO EN LA FILA 4.( XLSheet.Cells(Fila,4)=ALLTRIM(AFPS.dni) EN ESTE CODIGO ME CARGA BIEN LOS DATOS PERO LOS DNIS NO ME ESTA IMPORTANDO CORRECTO SI UN DNI ES (04450637) SOLO ME CARGA EN EL EXEL (4450637) EN ESO QUIERO SU POYO POR FAVOR COMO HACER QUE ME CARGA COMPLETO LOS DNIS..
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
*IF Thisform.chkSoloProductoCant.Value = 0
*SELECT vacaciones_1*SET FILTER TO cod_reg>1
local Fila && Prepara la hoja de excel
wait'Espere Un Momento Exportando Datos' window nowait
_screen.mousepointer=14
TmpSheet=GetObject('','Excel.Sheet')
XLApp=TmpSheet.Application
XLApp.visible=.T.
*xLApp.format="texto"
XLApp.workbooks.add()
XLSheet=XLApp.ActiveSheet
*ENDIF*CABECHITAXLSheet.Cells(1,1)=ALLTRIM("item")
XLSheet.Cells(1,1).font.bold=.T.
XLSheet.Cells(1,2)="cusp"
XLSheet.Cells(1,2).font.bold=.T.
XLSheet.Cells(1,3)="ceros"
XLSheet.Cells(1,3).font.bold=.T.
XLSheet.Cells(1,4)="dni"
XLSheet.Cells(1,4).font.bold=.T.
XLSheet.Cells(1,5)="paterno"
XLSheet.Cells(1,5).font.bold=.T.
XLSheet.Cells(1,6)="materno"
XLSheet.Cells(1,6).font.bold=.T.
XLSheet.Cells(1,6)="nombres"
XLSheet.Cells(1,6).font.bold=.T.
XLSheet.Cells(1,7)="s"
XLSheet.Cells(1,7).font.bold=.T.
XLSheet.Cells(1,8)="n"
XLSheet.Cells(1,8).font.bold=.T.
XLSheet.Cells(1,9)="n"
XLSheet.Cells(1,9).font.bold=.T.
XLSheet.Cells(1,10)=""
XLSheet.Cells(1,10).font.bold=.T.
XLSheet.Cells(1,11)="monto"
XLSheet.Cells(1,11).font.bold=.T.
XLSheet.Cells(1,12)="0"
XLSheet.Cells(1,12).font.bold=.T.
XLSheet.Cells(1,13)="0"
XLSheet.Cells(1,13).font.bold=.T.
XLSheet.Cells(1,14)="n"
XLSheet.Cells(1,14).font.bold=.T.
*************************
sele 1
Fila=2SELECT trabajo
SET FILTER TO cod_reg>1 AND cod_reg <> 66
SELECT cusp,dni,pat,mat,nombres,imponible,i;
FROM trabajo;
WHERE cod_reg>1 AND cod_reg <> 66 ;
INTO CURSOR AFPS READWRITE
SELECT AFPS
GO top
scan
XLSheet.Cells(Fila,1)="0"
XLSheet.Cells(Fila,2)=alltrim(AFPS.cusp)
XLSheet.Cells(Fila,3)="0"
XLSheet.Cells(Fila,4)=ALLTRIM(AFPS.dni)
XLSheet.Cells(Fila,5)=alltrim(AFPS.pat)
XLSheet.Cells(Fila,6)=alltrim(AFPS.mat)
XLSheet.Cells(Fila,7)=alltrim(AFPS.nombres)
XLSheet.Cells(Fila,8)="S"
XLSheet.Cells(Fila,9)="N"
XLSheet.Cells(Fila,10)="N"
XLSheet.Cells(Fila,11)=AFPS.imponible
XLSheet.Cells(Fila,12)="0"
XLSheet.Cells(Fila,13)="0"
XLSheet.Cells(Fila,14)="0"
XLSheet.Cells(Fila,15)="N"
XLSheet.Cells(Fila,17)=alltrim(AFPS.i)
Fila=Fila+1
endscan
XLSheet.Range("A:G").font.name="Arial Narrow"
XLSheet.Range("A:G").font.size="10"
XLSheet.Columns("A:B").EntireColumn.AutoFit
XLSheet.application.columns(11).numberformat = "##,###,###,###.00"
XLsheet.application.Columns(4).ColumnWidth = 8
XLsheet.application.Columns(8).ColumnWidth = 2
XLsheet.application.Columns(9).ColumnWidth = 2
XLsheet.application.Columns(10).ColumnWidth = 2
XLsheet.application.Columns(12).ColumnWidth = 2
*XLSheet.Columns("A:G").ColumnWidth=60
*XLSheet.Columns("A:G").WrapText=.T.
XLSheet. Columns(). AutoFit
ESTE ES MI CODIGO Y ME CORRE BIEN PERO EN LA FILA 4.( XLSheet.Cells(Fila,4)=ALLTRIM(AFPS.dni) EN ESTE CODIGO ME CARGA BIEN LOS DATOS PERO LOS DNIS NO ME ESTA EXPORTANDO CORRECTO SI UN DNI ES (04450637) SOLO ME CARGA EN EL EXEL (4450637) EN ESO QUIERO SU POYO POR FAVOR COMO HACER QUE ME CARGA COMPLETO LOS DNIS.. ESPERO SU APOYO . NO SE COMO CARGAR YA E INCLUIDO ( ALLTRIM ) Y NI ASI ME CARGA COMPLETO . DE ANTE MANO ..GRACIAS
Valora esta pregunta
0
