cheveguerra/Guna_Reparto_Imp
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Imp.git synced 2026-04-20 14:19:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se puede entrar a pagares desde el boton y manda al cliente

Browse Source 
Se actualiza el tiempo real
Se actualiza el tiempo real por cliente
Vista cxc
This commit is contained in:
cvaldes1201
2025-03-11 21:02:34 -06:00
parent 8043a7787d
commit 5df4ebc5b7
13 changed files with 1035 additions and 372 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/B4XMainPage.bas
View File

@@ -72,6 +72,8 @@ Sub Class_Globals
Public checklist As C_Cheklist
Public tabulador As C_tabulador
Dim batt As Int
Dim monto_entregadoactual As String
Dim piezas_entregdas As String
Dim porVisitar, entregas, rechazos, montoEntregado, montoRechazado As String
Private p_appUpdate As Panel
Private i_engrane As ImageView
@@ -174,17 +176,23 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS PAGARES")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO_CHECK(CHECADO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BLOCKENVIO(ENVIADO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_REPARTO_GEO(HIST_RG_MONTO TEXT, HIST_RG_CREDITO TEXT, HIST_RG_MONTO_CREDITO TEXT, HIST_RG_LAT TEXT, HIST_RG_LONG TEXT, HIST_RG_RECHAZO TEXT, HIST_RG_MOTIVO TEXT, HIST_RG_USUARIO_ENTREGO TEXT, HIST_RG_RUTA_REP TEXT, HIST_RG_ESTATUS_ENTREGA TEXT, HIST_RG_COMENTARIO_ENTREGA TEXT, HIST_RG_FORMA_PAGO TEXT, HIST_RG_GEOCERCA_MTS TEXT, HIST_RG_NO_ART TEXT, HIST_RG_CLIENTE TEXT, HIST_RG_FECHA TEXT, HIST_RG_ALMACEN TEXT, HIST_RG_RUTA_PRE TEXT)")
' Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES(TMP_MONTO_PAGARE TEXT, TMP_CLIENTE TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT , POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA_BUENESTADO TEXT, CARROCERIA_MALESTADO TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES_CORRECTO TEXT, LUCES_INCORRECTO TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS_CORRECTO TEXT, CONDICION_PLACAS_INCORRECTO TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST2(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT, POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB, KILIMETRAJE TEXT, RUTA TEXT)")
Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
Subs.agregaColumna("NOVENTA", "NV_RUTA", "TEXT")
Subs.agregaColumna("ABONOS", "a_ticket", "TEXT")
Subs.agregaColumna("ABONOS", "a_tipoabono", "TEXT")
Subs.agregaColumna("PAGARES", "PA_CANCELADO", "TEXT")
Subs.agregaColumna("ABONOSP", "NOMBRE", "TEXT")
Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
Subs.agregaColumna("kmt_info", "HORAENT", "TEXT")
Subs.agregaColumna("REPARTO", "REP_PRODID", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_CLIENTEOR", "TEXT")
Subs.agregaColumna("PAGARES", "PA_TICKET", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_CAJAS", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_REGALO", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")