Conversion de datos y Uploadify
Publicado por Karen (34 intervenciones) el 25/11/2016 17:41:19
Hola buen dia Foro!!
Tengo una duda, espero puedan ayudarme :)
Tengo este código en mi uploadify:
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Estoy tomando convirtiendo los siguientes datosdesde el excel que cargo;
y este resultado me da:
Que le falta a mi codigo para que me de la hora de cada registro :( es lo que mas me importa y me la deja en Cero ayuda please!!!
Tengo una duda, espero puedan ayudarme :)
Tengo este código en mi uploadify:
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
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 &Archivo.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
&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
enddo
&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
Event Load
&Fecha=&Today
Endevent
Event 'Reporte' //VALIDAR QUE EXISTAN REGISTROS ANTES DE CARGAR LA TABLA
&SqlText=" delete from reporte "
sql [!&SqlText!]
commit
&SqlText=" insert into reporte(ReporteTrabaiador,ReporteFecha) "
&SqlText+=" SELECT dbo.Trabajadores.TrabajadoresNombre, dbo.CargarReg.CargarRegFechaNuevo "
&SqlText+=" FROM dbo.Trabajadores INNER JOIN "
&SqlText+=" dbo.CargarReg ON dbo.Trabajadores.TrabajadoresClave = dbo.CargarReg.CargarRegClaveEmpleado "
&SqlText+=" group by dbo.Trabajadores.TrabajadoresNombre, dbo.CargarReg.CargarRegFechaNuevo "
sql [!&SqlText!]
commit
for each
msg(ReporteTrabaiador+" Fecha: "+ReporteFecha.ToString())
endfor
Endevent
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Estoy tomando convirtiendo los siguientes datosdesde el excel que cargo;
y este resultado me da:
Que le falta a mi codigo para que me de la hora de cada registro :( es lo que mas me importa y me la deja en Cero ayuda please!!!
Valora esta pregunta
0