mirror of
https://github.com/KeymonSoft/Intmex_Reparto_2026.git
synced 2026-04-17 21:06:21 +00:00
VERSION 5.10.14
- Se agrego que mande la bandera de "reprogramado" - Se agrego que mande al tmp_drop fin dia, carga y envio.
This commit is contained in:
@@ -111,7 +111,6 @@ Sub Class_Globals
|
||||
Private multiAlmacen As Boolean = False
|
||||
Private idAlmacenExtra As String = ""
|
||||
|
||||
|
||||
Dim btAdmin As BluetoothAdmin
|
||||
Dim cmp20 As Serial
|
||||
' Dim printer As TextWriter
|
||||
@@ -142,6 +141,7 @@ Sub Class_Globals
|
||||
Private b_regresa_inv As Button
|
||||
Private l_pzas As Label
|
||||
Private Label17 As Label
|
||||
Private l_version As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -198,6 +198,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
' b.Close
|
||||
' c.Close
|
||||
End If
|
||||
l_version.Text = Application.VersionName
|
||||
b=Starter.skmt.ExecQuery("select id_almacen from CAT_ALMACEN")
|
||||
If b.RowCount > 0 Then
|
||||
' Log("Traemos almacen ..." & B4XPages.MainPage.server)
|
||||
@@ -863,6 +864,7 @@ Sub envia_reparto
|
||||
End Sub
|
||||
|
||||
Sub envioinfo
|
||||
Subs.mandaDrop("ENVIO", e_ruta.text)
|
||||
' NOVENTA
|
||||
c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO, NV_REPROGRAMAR FROM NOVENTA")
|
||||
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
@@ -954,8 +956,7 @@ Sub envioinfo
|
||||
Next
|
||||
End If
|
||||
ab.Close
|
||||
|
||||
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT * FROM hist_ventas WHERE HVD_RECHAZO = 1 ")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
@@ -975,7 +976,7 @@ Sub envioinfo
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
|
||||
' pedido
|
||||
c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
|
||||
If c.RowCount>0 Then
|
||||
@@ -989,8 +990,7 @@ Sub envioinfo
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'' reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas.
|
||||
' c = Starter.skmt.ExecQuery("SELECT * from reparto")
|
||||
' If c.RowCount > 0 Then
|
||||
@@ -1032,24 +1032,21 @@ Sub envioinfo
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
|
||||
Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$)
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_REPARTO_INTMEX"
|
||||
cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO"))
|
||||
reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$)
|
||||
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
|
||||
'TABULADOR
|
||||
c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
@@ -1075,7 +1072,7 @@ Sub envioinfo
|
||||
b.Close
|
||||
f.Close
|
||||
End If
|
||||
|
||||
|
||||
' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
|
||||
' If c.RowCount > 0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
@@ -1119,7 +1116,6 @@ Sub envioinfo
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
|
||||
@@ -1132,7 +1128,6 @@ Sub envioinfo
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
|
||||
|
||||
Dim fechatabulador3 As String = fechatabulador(0)
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_tabulador_billetes_INTMEX"
|
||||
@@ -1144,13 +1139,13 @@ Sub envioinfo
|
||||
b.Close
|
||||
f.Close
|
||||
End If
|
||||
|
||||
'FIN TABULADOR
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_INTMEX2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",Application.VersionName)
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_drop_rep_INTMEX2"
|
||||
' cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO",Application.VersionName)
|
||||
' reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
End Sub
|
||||
|
||||
@@ -1182,11 +1177,11 @@ Sub cargar_Click
|
||||
LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.server)
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_INTMEX2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_drop_rep_INTMEX2"
|
||||
' cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
|
||||
' reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
' reqs.Add("inst_noventa")
|
||||
|
||||
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||
@@ -1309,6 +1304,8 @@ Sub cargar_Click
|
||||
Log("XXXX")
|
||||
MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
|
||||
End If
|
||||
Sleep(1000)
|
||||
Subs.mandaDrop("CARGA", e_ruta.Text)
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -2039,11 +2036,12 @@ Sub e_ruta_EnterPressed
|
||||
If e_ruta.Text = "FIN DIA" Then
|
||||
RES = Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If RES = DialogResponse.POSITIVE Then
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_INTMEX2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "FIN DIA",Application.VersionName)
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_drop_rep_INTMEX2"
|
||||
' cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "FIN DIA",Application.VersionName)
|
||||
' reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
Subs.mandaDrop("FIN DIA", l_ruta.Text)
|
||||
|
||||
e_ruta.Text = ""
|
||||
Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
|
||||
|
||||
Reference in New Issue
Block a user