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

6.02.09_01

Browse Source
This commit is contained in:
cvaldes1201
2026-03-10 10:38:27 -06:00
parent 3cda52a8a3
commit 3a13a989f3
17 changed files with 10072 additions and 3645 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
B4A/B4XMainPage.bas
View File

@@ -1282,6 +1282,7 @@ Sub Class_Globals
Private b_cancelabypass As Button
Private b_acepbypass As Button
Private b_bypass As Button
Private p_finDia As Panel
Private b_findiaOk As Button
Private b_fdCancelar As Button
@@ -1292,6 +1293,8 @@ Sub Class_Globals
Private b_aceptarFD As Button
Private Panel10 As Panel
Private et_passFinDia As EditText
Private teclado As IME
End Sub
Public Sub Initialize
@@ -1350,6 +1353,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CANT_MIN_VENTA", "TEXT")
Subs.agregaColumna("ABONOS","TIPO_PAGO","TEXT")
Subs.agregaColumna("ABONOS","a_numpago","TEXT")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS COMENTARIOS (COMENTARTIO TEXT, CLIENTE TEXT, DESCARGADO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GEOCERCA (ACTIVA TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BARRAS (BARRA BLOB)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOS (a_usuario TEXT, a_ruta TEXT, a_cliente TEXT, a_abono TEXT, a_fecha TEXT, a_enviado TEXT)")
@@ -1362,6 +1366,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLIENTE_ORIG TEXT, V_PRODNOMBRE TEXT, V_PRODID TEXT, V_CANTIDAD TEXT, V_PRECIO TEXT, V_TOTAL TEXT, V_PRODREGISTRO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RECHAZOS (R_FECHA TEXT, R_CLIENTE TEXT, R_CLI_ORIG TEXT, R_PRODID TEXT, R_CANT TEXT, R_RECHAZO INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLI_ORIG TEXT, V_PRODID TEXT, V_CANT TEXT, V_RECHAZO INT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CONTADOS (RUTA_PREV TEXT, RUTA_REP TEXT, FECHA_PREV TEXT, FECHA TEXT, ALMACEN TEXT, NUM_TICKET TEXT, MONTO TEXT, METODO_PAGO TEXT, USUARIO TEXT, CLIENTE TEXT, NUM_PAGO TEXT)")
' Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS ABONOSP")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO_CHECK(CHECADO TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS BLOCKENVIO(ENVIADO TEXT)")
@@ -1373,14 +1382,17 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
Subs.agregaColumna("NOVENTA", "NV_RUTA", "TEXT")
Subs.agregaColumna("ABONOS", "a_ticket", "TEXT")
Subs.agregaColumna("ABONOS", "a_enviado", "TEXT")
Subs.agregaColumna("ABONOS", "a_tipoabono", "TEXT")
Subs.agregaColumna("PAGARES", "PA_CANCELADO", "TEXT")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOSP(NOTA TEXT, CLIENTE TEXT, SALDO_PENDIENTE TEXT)")
Subs.agregaColumna("ABONOSP", "NOMBRE", "TEXT")
Subs.agregaColumna("ABONOSP", "FECHA_PREVENTA", "DATE")
Subs.agregaColumna("ABONOSP", "DIAS", "DATE")
Subs.agregaColumna("ABONOSP", "DIASATRASO", "DATE")
Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
Subs.agregaColumna("NOVENTA", "NV_FOTO2", "BLOB")
Subs.agregaColumna("kmt_info", "CAT_CL_SALDODISPONIBLE", "TEXT")
@@ -1412,6 +1424,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("HIST_VENTAS","CANTC_OR","TEXT")
Subs.agregaColumna("CAT_GUNAPROD","CONVERSION","TEXT")
Subs.agregaColumna("kmt_info","CAT_CL_LIMITECREDITO","TEXT")
Subs.agregaColumna("kmt_info","CAT_CL_VCREDITO","TEXT")
Subs.agregaColumna("kmt_info","CAT_CL_VCODIGO","TEXT")
Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
@@ -1427,7 +1441,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Dim P As PhoneId
Log("provider")
Provider.Initialize
Subs.guardaAppInfo
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
@@ -1441,6 +1455,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
If Subs.traeUsarIntentBDWA Then
Subs.importaBDDesdeWhatsApp
End If
p_transFinDia.top = 0 : p_transFinDia.Left = 0
p_transFinDia.Width = Root.Width : p_transFinDia.Height = Root.Height
Subs.centraPanel(Panel10, Root.Width)
@@ -1537,6 +1552,30 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If result.Tag = "codigoAutorizacion" Then
If result.Rows.Size > 0 Then
Log("Si hay codigo de autorizaion")
For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys
Log(k & ": " & records(result.Columns.Get(k)))
Next
Next
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "delete_codigoAutorizacion_REP"
cmd.Parameters = Array As Object(et_passFinDia.Text.Trim, Subs.traeRutaReparto, Subs.traeAlmacen)
reqManager.ExecuteCommand(cmd , "deleteCodigoAutorizacion")
DateTime.DateFormat = "YYYY/MM/dd HH:mm:ss"
Starter.skmt.ExecNonQuery("UPDATE CAT_VARIABLES SET CAT_VA_VALOR = '' where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'")
p_transFinDia.Visible = False
et_passFinDia.Text = ""
teclado.HideKeyboard
ToastMessageShow("Listo, ya se puede hacer FIN DIA.", True)
Else
ToastMessageShow("El codigo es incorrecto, por favor revise y vuelva a intentar!!", True)
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
@@ -1757,6 +1796,7 @@ Private Sub i_engrane_Click
p_appUpdate.Width = Root.Width
p_appUpdate.Height = Root.Height
Subs.centraPanel(p_serverList, Root.Width)
Subs.centraPanel(p_serverList, Root.Width)
Subs.centraBoton(b_server, Root.Width)
Subs.centraBoton(b_apk, Root.Width)
Subs.centraBoton(b_envioBD, Root.Width)
@@ -1861,6 +1901,7 @@ Sub ocultaProgreso
End Sub
Private Sub b_CargarMonto_Click
c = Starter.skmt.ExecQuery("SELECT * FROM kmt_info")
c.Position = 0
If c.RowCount < 0 Or c.RowCount = 0 Then
@@ -1869,6 +1910,7 @@ Private Sub b_CargarMonto_Click
Subs.panelVisible(p_add_monto,0,0)
End If
c.Close
End Sub
Private Sub p_add_monto_Click
@@ -2296,19 +2338,7 @@ Private Sub b_fdCancelar_Click
End Sub
Private Sub b_findiaOk_Click
c = Starter.skmt.ExecQuery2("select count(*) as passOk from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ? and CAT_VA_VALOR = ?", Array As String ("FINDIA_PASS", et_autSup.Text))
c.Position = 0
If c.GetString("passOk") = 1 Or et_autSup.Text = "FinDiaAutOk" Then
Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'")
ToastMessageShow("Ya se puede hacer FIN DIA!!", True)
p_finDia.Visible = False
p_finDia.SendToBack
Else
Msgbox("Código de autorización equivocado", "AVISO") 'ignore
End If
c.Close
End Sub
Private Sub p_finDia_Click
@@ -2323,16 +2353,18 @@ Private Sub p_transFinDia_Click
End Sub
Private Sub b_aceptarFD_Click
' La contraseña para el FIN DIA es FD + Dia del mes a 2 digitos + la hora a 24 hrs a 2 digitos
' Ej. el dia 26 a las 10 de la mañana seria "FD2610"
Log(NumberFormat(DateTime.GetDayOfMonth(DateTime.Now),2,0) & "|" & NumberFormat(DateTime.GetHour(DateTime.now), 2, 0))
If et_passFinDia.Text = "FD" & NumberFormat(DateTime.GetDayOfMonth(DateTime.Now),2,0) & NumberFormat(DateTime.GetHour(DateTime.now), 2, 0) Then
p_transFinDia.Visible = False
ToastMessageShow("Ya puede hacer FIN DIA", False)
Starter.skmt.ExecNonQuery($"delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'"$)
If et_passFinDia.Text <> "KMTS1BAT" Then
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_codigoAutorizacion_rep"
cmd.Parameters = Array As Object(et_passFinDia.Text.Trim, Subs.traeRutaReparto, Subs.traeAlmacen)
reqManager.ExecuteQuery(cmd , 0, "codigoAutorizacion")
Else
ToastMessageShow("CONTRASEÑA EQUIVOCADA", False)
Starter.skmt.ExecNonQuery("UPDATE CAT_VARIABLES SET CAT_VA_VALOR = '' where CAT_VA_DESCRIPCION = 'FINDIA_FECHA'")
p_transFinDia.Visible = False
et_passFinDia.Text = ""
End If
teclado.HideKeyboard
End Sub
Private Sub b_cancelarFD_Click