Ayuda con Uploadify :l
Publicado por Karen (34 intervenciones) el 15/11/2016 00:21:32
Hola, Buen Dia!!
Alguien sabe porque me aparece error al cargar mi archivo excel en una transacción temporal ??
Lo estoy haciendo de la siguiente manera:
Alguien sabe porque me aparece error al cargar mi archivo excel en una transacción temporal ??
Lo estoy haciendo de la siguiente manera:
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
106
107
Event Uploadify1.OnAllCompletefor &File in &UploadedFiles
msg(&File.OriginalFileName)
&Archivo.Open(&File.TemporalFileName)
if &Archivo.ErrCode<>0
&Mensaje="Error con el archivo de excel intente de nuevo o cierrelo si esta abierto"
else
&Archivo.SelectSheet("datos")
&Row=1
do while not &ExcelDocument.Cells(&Row,1).Text.IsEmpty()
&Row+=1
&CargarReg.CargarRegId=0
&CargarReg.CargarRegClaveEmpleado=&Archivo.Cells(&Row,1).Number
&CargarReg.CargarRegDepartamento=&Archivo.Cells(&Row,3).Number
&Texto=Trim(&Archivo.Cells(&Row,2).Text)
&dia=&texto.Substring(1,2)
&texto2=&texto.Substring(4,3)
msg(&texto2)
do case
case &texto2="ene"
&mes="01"
case &texto2="feb"
&mes="02"
case &texto2="mar"
&mes="03"
case &texto2="abr"
&mes="04"
case &texto2="may"
&mes="05"
case &texto2="jun"
&mes="06"
case &texto2="jul"
&mes="07"
case &texto2="ago"
&mes="08"
case &texto2="sep"
&mes="09"
case &texto2="oct"
&mes="10"
case &texto2="nov"
&mes="11"
case &texto2="dic"
&mes="12"
endcase
enddo
&CargarReg.CargarRegDia=val(&Dia.Trim())
&CargarReg.CargarRegMes=Val(&mes.Trim())
&Anio=&texto.Substring(8,4)
&CargarReg.CargarRegAnio=Val(&Anio.Trim())
&texto3=&texto.Substring(13,2)
msg(&texto3)
do case
case &texto3="Lu"
&DiaNombre="LUNES"
case &texto3="Ma"
&DiaNombre="MARTES"
case &texto3="Mi"
&DiaNombre="Miercoles"
case &texto3="Ju"
&DiaNombre="JUEVES"
case &texto3="Vi"
&DiaNombre="Viernes"
case &texto3="Sa"
&DiaNombre="SABADO"
case &texto3="Do"
&DiaNombre="DOMINGO"
endcase
&CargarReg.CargarRegDiaNombre=&DiaNombre.Trim()
&hora=&texto.Substring(16,5)
&FechaNombre=&dia+"/"+&mes+"/"+&anio
&Fecha=ctod(&FechaNombre.Trim())
&CargarReg.CargarRegFechaNuevo=&Fecha
//Para registrar fecha de registro de carga de datos
&CargarReg.CargarRegFechaDatos=&Today
&CargarReg.Save()
if not &CargarReg.Fail()
commit
else
&Mensaje=""
for &Respuesta in &CargarReg.GetMessages()
&Mensaje+=&Respuesta.Description+ " "
endfor
endif
&Archivo.Close()
&Mensaje="La Carga de registros de la fecha "+&Fecha.ToString() +" CARGADA CON EXITO..."
endif
endfor
EndEvent
Event Uploadify1.OnCancel&File = Uploadify1.File
msg("Cancel:" + &File.OriginalFileName)
EndEvent
Event Uploadify1.OnError&File = Uploadify1.File
msg("Error uploading file:" + &File.OriginalFileName)
msg(Uploadify1.Error)
EndEvent
Valora esta pregunta
0
