InstruccionSql = "EXEC NTS_ADDFICHAJE4 ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?"
Dim Campos As List
Campos.Initialize
Campos.add( EmpleadoActual.Codigo ) '1
Campos.add( Obra ) '2
Campos.add( Partida ) '3
Campos.add( Fecha )
Campos.add( HoraInicio)
Campos.add( HoraFin )
Campos.add( Diferencia )
Campos.add( TipoActuacion )
Campos.add( Confirma )
Campos.add( modGeneral.PosicionGPS.Latitud )
Campos.add( modGeneral.PosicionGPS.Longitud )
Campos.add( Veh )
Campos.add( txtNotas.Text)
Campos.add( Coa )
Campos.add( lblVelocidad.TEXT )
Campos.add( modGeneral.PosicionGPS.UltimaHoraTomaDatos )
Campos.add( IIf( modGeneral.PosicionGPS.IsFake,1,0) ) 'isfake
Campos.add( Cliente )
Campos.add( 1) '19 tieMMpotemoral
Campos.add( FinalizadoBit ) '20 finalizado bit
Campos.add( TipoFichaje.TipoFichaje )'tipofichaje
Campos.add(Oportunidad ) 'oportunidad
Campos.ADD(IDAndroid ) 'terminalid
Campos.ADD(modGeneral.V_VersionMia ) '24'verison
Campos.ADD(LugarTrabajo) '24'verison
Campos.ADD("") 'nada1
Campos.ADD("") 'nada2
ProgressDialogShow("Insertando registro")
'If CN.SqlExecuteSinMsg ( InstruccionSql,True) Then
Dim Sl2 As String
Sl2 = CN.DecodeSql(InstruccionSql,Campos)