mirror of
https://github.com/KeymonSoft/Guna_Reparto_Imp.git
synced 2026-04-20 14:19:34 +00:00
- VERSION 5.03.08
- Se agregó codigo para la confirmacion de pagares mediante WhatsApp en Cliente. - Se agregaron 270 segundos (4.5 minutos) al tiempo calculado en el ruteo de Clientes. - Se hicieorn mas pequeños los números de los globitos en MAPAS_RUTAS, de 20 a 15. - Se puso un toastMessage cuando las coordenadas del CEDIS están en CERO.
This commit is contained in:
@@ -84,7 +84,6 @@ Sub Class_Globals
|
||||
Private p_principal As Panel
|
||||
Dim ime As IME
|
||||
Private b_tabulador As Button
|
||||
|
||||
Private l_rutasP As Label
|
||||
Private l_rechazo As Label
|
||||
Private Label9 As Label
|
||||
@@ -95,7 +94,6 @@ Sub Class_Globals
|
||||
Private b_regreso As Button
|
||||
Private lv_prod_Prin As ListView
|
||||
Private b_venta_emp As Button
|
||||
|
||||
Private ListView2 As ListView
|
||||
Private Button1 As Button
|
||||
Private P_PAGARES As Panel
|
||||
@@ -146,10 +144,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
' l_aLiquidar.Text = c.GetString("MONTO_DIA")
|
||||
' l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
||||
' l_cuantosn.Text = b.GetString("CUANTOS")
|
||||
'' drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
|
||||
'' drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
|
||||
'' l_montoSalida.Text = Round2(drop,2)
|
||||
'' efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
||||
'' l_efectiva.text = Round2(efectiva * 100, 2)
|
||||
'' efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
||||
'' l_efectiva.text = Round2(efectiva * 100, 2)
|
||||
' l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||
' l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||
' b.Close
|
||||
@@ -284,7 +282,7 @@ Sub B4XPage_Appear
|
||||
' If F4.GetString("CUANTOS") > 0 Then
|
||||
' f3=Starter.skmt.execqUery("select sum(pe_costo_tot) as MONTO_VENTA FROM PEDIDO")
|
||||
' f3.Position=0
|
||||
'' Log(MONTO_REC_DIA & " - " & f3.GetString("MONTO_VENTA"))
|
||||
'' Log(MONTO_REC_DIA & " - " & f3.GetString("MONTO_VENTA"))
|
||||
' l_efectiva.text = to_number_vb(MONTO_REC_DIA - f3.GetString("MONTO_VENTA")) & "..."
|
||||
' f3.Close
|
||||
' Else
|
||||
@@ -315,11 +313,11 @@ Sub B4XPage_Appear
|
||||
' c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES where CAT_VA_DESCRIPCION = ? ", Array As String("CAMBIOS"))
|
||||
' c.Position = 0
|
||||
' If c.GetString("CUANTOS") = 0 Then
|
||||
'' cambios.Text = 0
|
||||
'' cambios.Text = 0
|
||||
' Else
|
||||
' B=Starter.skmt.ExecQuery("select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'CAMBIOS'")
|
||||
' B.Position = 0
|
||||
'' cambios.Text = b.GetString("CAT_VA_VALOR")
|
||||
'' cambios.Text = b.GetString("CAT_VA_VALOR")
|
||||
' b.Close
|
||||
' End If
|
||||
c.Close
|
||||
@@ -398,8 +396,7 @@ Sub B4XPage_Appear
|
||||
Next
|
||||
End If
|
||||
cancelrecha.Close
|
||||
|
||||
|
||||
|
||||
''' RECHAZO - VENTA
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' ORDER BY HVD_PROID "$)
|
||||
|
||||
@@ -410,13 +407,11 @@ Sub B4XPage_Appear
|
||||
Private r6 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5.GetString("CONSECUTIVO")}' "$)
|
||||
Dim totalcantped As String
|
||||
If r6.RowCount > 0 Then
|
||||
r6.Position = 0
|
||||
r6.Position = 0
|
||||
totalcantped = r6.GetString("PE_CANT")
|
||||
Else
|
||||
|
||||
totalcantped = 0
|
||||
End If
|
||||
|
||||
Log(r5.GetString("HVD_RECHAZOCANT") &" - "& totalcantped)
|
||||
rescant = rescant + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("HVD_CANT")))*((r5.GetString("HVD_RECHAZOCANT") - totalcantped)))
|
||||
' Log(rescant)
|
||||
@@ -424,13 +419,10 @@ Sub B4XPage_Appear
|
||||
Next
|
||||
End If
|
||||
If rescant = "NaN" Then rescant = 0
|
||||
LogColor(rescant,Colors.Red)
|
||||
' LogColor(rescant,Colors.Red)
|
||||
r5.Close
|
||||
|
||||
|
||||
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT,IFNULL(CANTC,0) AS CANTC, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
|
||||
' Private r5 As Cursor = Starter.skmt.ExecQuery($"select * from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
|
||||
Private rescant2 As Double = 0
|
||||
@@ -449,11 +441,9 @@ Sub B4XPage_Appear
|
||||
Log(rescant2)
|
||||
r5.Close
|
||||
'''FIN RECHAZO - VENTA
|
||||
|
||||
|
||||
|
||||
'''RECHAZO
|
||||
Private r5r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' "$)
|
||||
|
||||
Private rescantr As String = 0
|
||||
If r5r.RowCount > 0 Then
|
||||
For j4r = 0 To r5r.RowCount -1
|
||||
@@ -470,12 +460,11 @@ Sub B4XPage_Appear
|
||||
' LogColor(rescant,Colors.Red)
|
||||
r5r.Close
|
||||
|
||||
Log(rescantr)
|
||||
|
||||
' Log(rescantr)
|
||||
|
||||
Private r5r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT,IFNULL(CANTC,0) AS CANTC, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
|
||||
' Private r5 As Cursor = Starter.skmt.ExecQuery($"select * from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '1' "$)
|
||||
|
||||
Private rescant2r As String = 0
|
||||
If r5r.RowCount > 0 Then
|
||||
For j5r = 0 To r5r.RowCount -1
|
||||
@@ -496,7 +485,6 @@ Sub B4XPage_Appear
|
||||
'''' FIN RECHAZO
|
||||
|
||||
'''''
|
||||
|
||||
' Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(HVD_COSTO_TOT),0) AS HVD_COSTO_TOT from HIST_VENTAS where HVD_RECHAZO = '0' and BCAJAS = '0' "$)
|
||||
' Private rescant3 As Double = 0
|
||||
' If r5.RowCount > 0 Then
|
||||
@@ -508,25 +496,21 @@ Sub B4XPage_Appear
|
||||
' r5.Close
|
||||
|
||||
Private r55 As Cursor = Starter.skmt.ExecQuery($"select HVD_COSTO_TOT from HIST_VENTAS where HVD_RECHAZO = '0' and BCAJAS = '0' "$)
|
||||
Private rescant3 As Double
|
||||
Private rescant3 As Double
|
||||
If r55.RowCount > 0 Then
|
||||
For r75 = 0 To r55.RowCount -1
|
||||
r55.Position = r75
|
||||
rescant3 = rescant3 + r55.GetString("HVD_COSTO_TOT")
|
||||
rescant3 = NumberFormat2(rescant3, 0, 2, 2, False)
|
||||
|
||||
Next
|
||||
End If
|
||||
Log(rescant3)
|
||||
' Log(rescant3)
|
||||
r55.Close
|
||||
|
||||
|
||||
|
||||
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(HVD_COSTO_TOT),0) AS HVD_COSTO_TOT from HIST_VENTAS where HVD_RECHAZO = '0' and BCAJAS = '1' "$)
|
||||
Private rescant4 As Double
|
||||
If r5.RowCount > 0 Then
|
||||
r5.Position = 0
|
||||
r5.Position = 0
|
||||
rescant4 = r5.GetString("HVD_COSTO_TOT")
|
||||
End If
|
||||
Log(rescant4)
|
||||
@@ -535,14 +519,11 @@ Sub B4XPage_Appear
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_COSTO_TOT),0) AS PE_COSTO_TOT from PEDIDO "$)
|
||||
Private rescant5 As Double
|
||||
If r5.RowCount > 0 Then
|
||||
r5.Position = 0
|
||||
r5.Position = 0
|
||||
rescant5 = r5.GetString("PE_COSTO_TOT")
|
||||
End If
|
||||
Log(rescant5)
|
||||
r5.Close
|
||||
|
||||
|
||||
|
||||
'''
|
||||
Private r5 As Cursor = Starter.skmt.ExecQuery($"select IFNULL(HVD_COSTO_TOT,0) AS HVD_COSTO_TOT, IFNULL(HVD_CANT,0) AS HVD_CANT, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_PROID, HVD_CLIENTE, CONSECUTIVO from HIST_VENTAS where HVD_RECHAZO = '1' and BCAJAS = '0' "$)
|
||||
Private rescant6 As Double
|
||||
@@ -577,12 +558,8 @@ Sub B4XPage_Appear
|
||||
If rescant7 = "NaN" Then rescant7 = 0
|
||||
Log(rescant7)
|
||||
r5.Close
|
||||
|
||||
|
||||
l_rechazo.text = NumberFormat2((rescant + rescant2),0,2,2,False)
|
||||
L_MONTOE.Text = NumberFormat2((rescant3 + rescant4 + rescant5 + rescant6 + rescant7),0,2,2,False)
|
||||
|
||||
|
||||
B4XPages.MainPage.clientesVisitados = L_MONTOE.Text
|
||||
B4XPages.MainPage.clientesVenta = l_cuantosc.Text
|
||||
B4XPages.MainPage.clientesRechazo = l_cuantosn.Text
|
||||
@@ -593,14 +570,12 @@ Sub B4XPage_Appear
|
||||
B4XPages.MainPage.rechazos = l_cuantosn.text
|
||||
B4XPages.MainPage.montoEntregado = L_MONTOE.text
|
||||
B4XPages.MainPage.montoRechazado = l_rechazo.text
|
||||
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.server)
|
||||
' LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
|
||||
|
||||
If l_ctast.Text = 0 And l_porvisitar.Text <> 0 Then
|
||||
Label9.Visible = True
|
||||
L_MONTOE.Visible = True
|
||||
|
||||
'' hacer validacion su hay rechazo
|
||||
' c=Starter.skmt.ExecQuery("select * from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 order by HVD_CODPROMO desc, HVD_PRONOMBRE asc")
|
||||
' If c.RowCount > 0 Then
|
||||
@@ -616,21 +591,16 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
' Label9.Visible = True
|
||||
' L_MONTOE.Visible = True
|
||||
|
||||
' If l_ctast.Text = 0 Then
|
||||
'
|
||||
' Else
|
||||
' StartActivity(MAPA_RUTAS)
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
' checachek
|
||||
End Sub
|
||||
|
||||
Sub checachek
|
||||
b = Starter.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
|
||||
If b.RowCount > 0 Then
|
||||
b = Starter.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
|
||||
If b.RowCount > 0 Then
|
||||
b.Position = 0
|
||||
If b.GetString("CHECADO") = 0 Then
|
||||
b_check.Visible = True
|
||||
@@ -638,7 +608,7 @@ Sub checachek
|
||||
b_check.Visible =False
|
||||
End If
|
||||
b.Close
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub IsConnectedToInternet As Boolean 'ignore
|
||||
@@ -666,12 +636,10 @@ End Sub
|
||||
|
||||
Sub trabajar_Click
|
||||
If b_check.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el checklist.","Atención")
|
||||
MsgboxAsync("Favor de hacer el checklist.","Atención")
|
||||
Else
|
||||
|
||||
B4XPages.ShowPage("Clientes")
|
||||
B4XPages.ShowPage("Clientes")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Subir_Click
|
||||
@@ -686,7 +654,7 @@ Sub Subir_Click
|
||||
' Starter.skmt.ExecNonQuery2("INSERT INTO BLOCKENVIO(ENVIADO) VALUES (?)", Array As Object (1))
|
||||
' envioinfo
|
||||
' Else
|
||||
envioinfo
|
||||
envioinfo
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
@@ -697,9 +665,6 @@ Sub Subir_Click
|
||||
End Sub
|
||||
|
||||
Sub envioinfo
|
||||
|
||||
|
||||
|
||||
' 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")
|
||||
@@ -718,8 +683,7 @@ Sub envioinfo
|
||||
d.Position=0
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
|
||||
|
||||
|
||||
'PAGARES.
|
||||
Dim pa As Cursor =Starter.skmt.ExecQuery("select PA_ALMACEN,PA_RUTA_REP,PA_RUTAPREV,PA_FECHA_PREV,PA_CAPTURA,PA_MONTO,PA_USUARIO,PA_CLIENTE,IFNULL(PA_CANCELADO,0) AS PA_CANCELADO from PAGARES")
|
||||
If pa.RowCount > 0 Then
|
||||
@@ -736,19 +700,15 @@ Sub envioinfo
|
||||
Dim fechaano As String = fechaenvio1(2).SubString(2)
|
||||
Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaano
|
||||
' Log(fechareal)
|
||||
|
||||
Dim fechacap() As String
|
||||
fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA"))
|
||||
Dim fechacapano As String = fechacap(2).SubString(2)
|
||||
Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano
|
||||
|
||||
If pa.GetString("PA_CANCELADO") = "2" Then
|
||||
cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),2)
|
||||
Else
|
||||
cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO"),"")
|
||||
End If
|
||||
|
||||
|
||||
reqManager.ExecuteCommand(cmd , "ins_pagares")
|
||||
Next
|
||||
End If
|
||||
@@ -762,10 +722,9 @@ Sub envioinfo
|
||||
If ab.RowCount > 0 Then
|
||||
For i=0 To ab.RowCount -1
|
||||
ab.Position = i
|
||||
|
||||
Dim ab1 As Cursor = Starter.skmt.ExecQuery($"SELECT SUM(a_abono) AS a_abono from ABONOS where a_cliente = '${ab.GetString("a_cliente")}'"$)
|
||||
ab1.Position = 0
|
||||
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_abono_REP_GUNA_VN"
|
||||
@@ -817,8 +776,6 @@ Sub envioinfo
|
||||
b.Close
|
||||
f.Close
|
||||
End If
|
||||
|
||||
|
||||
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")
|
||||
@@ -831,7 +788,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_GUNA_VN"
|
||||
@@ -887,10 +843,6 @@ Sub envioinfo
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
|
||||
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_GUNA_VN"
|
||||
@@ -1036,7 +988,6 @@ Sub cargar_Click
|
||||
' Next
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
d.Position=0
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
@@ -1048,17 +999,12 @@ Sub cargar_Click
|
||||
ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True)
|
||||
ProgressDialogShow2("Descargando rutas, espere un momento.", False)
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
|
||||
|
||||
|
||||
Else
|
||||
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
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
' Private r As DBResult = reqManager.HandleJob(Job)
|
||||
If Job.Success = False Then
|
||||
@@ -1128,7 +1074,6 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "gunaprod3" Then 'query tag
|
||||
@@ -1362,7 +1307,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If tc.RowCount = 0 Then
|
||||
Log($"Guardamos ${HVD_CLIENTE}"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, bcajas,cantc,consecutivo,bcajas,cantc))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
@@ -1403,8 +1348,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "PAGARES" Then 'query tag
|
||||
@@ -1433,8 +1377,6 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "valida_pedidoc" Then 'query tag
|
||||
@@ -1550,7 +1492,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "ins_reparto" Then 'query tag
|
||||
For Each records() As Object In result.Rows
|
||||
@@ -1574,18 +1516,13 @@ Sub JobDone(Job As HttpJob)
|
||||
Job.Release
|
||||
End If
|
||||
If reqs.Size = 0 Then
|
||||
|
||||
|
||||
|
||||
ProgressDialogHide
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM CHECADO_CHECK")
|
||||
c.Position = 0
|
||||
If c.GetString("CUANTOS") = 0 Then
|
||||
Starter.skmt.ExecNonQuery2("insert into CHECADO_CHECK (CHECADO) VALUES(?)", Array As String("0"))
|
||||
|
||||
Else If c.GetString("CUANTOS") = 1 Then
|
||||
|
||||
End If
|
||||
c.Close
|
||||
' Log(reqs.size)
|
||||
@@ -1636,7 +1573,7 @@ Sub BUSCA_Click
|
||||
MsgboxAsync("Favor de hacer el checklist.","Atención")
|
||||
Else
|
||||
' StartActivity(BUSCAR)
|
||||
B4XPages.ShowPage("Buscar")
|
||||
B4XPages.ShowPage("Buscar")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1710,36 +1647,34 @@ Sub B_CLIEPROD_Click
|
||||
Panel1.Width = Root.Width
|
||||
Panel1.Height = Root.Height
|
||||
' ListView1. = Panel1.Width / 2
|
||||
|
||||
B_REGRESA.Left = (Panel1.Width - B_REGRESA.Width) / 2
|
||||
B_REGRESA.Top = Panel1.Height - B_REGRESA.Height
|
||||
BUSCA.Visible = False
|
||||
connecta.Visible = False
|
||||
trabajar.Visible = False
|
||||
B_CLIEPROD.Visible = False
|
||||
Panel1.Visible = True
|
||||
Panel1.BringToFront
|
||||
Btn_Ubicar_Ru.Visible=False
|
||||
c=Starter.skmt.ExecQuery("select * from kmt_info WHERE gestion <> 0 order by HORAENT")
|
||||
Subs.SetDivider(ListView1, Colors.LightGray, 2)
|
||||
ListView1.Clear
|
||||
ListView1.TwoLinesLayout.ItemHeight = 120dip
|
||||
|
||||
Dim label1 As Label
|
||||
label1 = ListView1.TwoLinesLayout.Label
|
||||
label1.TextSize = 22
|
||||
label1.TextColor = Colors.White
|
||||
label1.Height = 60dip
|
||||
Dim label2 As Label
|
||||
label2 = ListView1.TwoLinesLayout.SecondLabel
|
||||
label2.TextSize = 22
|
||||
label2.TextColor = Colors.White
|
||||
label2.Top = 60dip
|
||||
BUSCA.Visible = False
|
||||
connecta.Visible = False
|
||||
trabajar.Visible = False
|
||||
B_CLIEPROD.Visible = False
|
||||
Panel1.Visible = True
|
||||
Panel1.BringToFront
|
||||
Btn_Ubicar_Ru.Visible=False
|
||||
c=Starter.skmt.ExecQuery("select * from kmt_info WHERE gestion <> 0 order by HORAENT")
|
||||
Subs.SetDivider(ListView1, Colors.LightGray, 2)
|
||||
ListView1.Clear
|
||||
ListView1.TwoLinesLayout.ItemHeight = 120dip
|
||||
Dim label1 As Label
|
||||
label1 = ListView1.TwoLinesLayout.Label
|
||||
label1.TextSize = 22
|
||||
label1.TextColor = Colors.White
|
||||
label1.Height = 60dip
|
||||
Dim label2 As Label
|
||||
label2 = ListView1.TwoLinesLayout.SecondLabel
|
||||
label2.TextSize = 22
|
||||
label2.TextColor = Colors.White
|
||||
label2.Top = 60dip
|
||||
label1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
|
||||
label2.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
If c.GetString("gestion") = "2" Then
|
||||
ESTATUS = "ENTREGADO"
|
||||
Log("entrega")
|
||||
@@ -1749,12 +1684,8 @@ Sub B_CLIEPROD_Click
|
||||
Else
|
||||
ESTATUS = "SIN ESTATUS"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ESTATUS = "ENTREGADO" Then
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID,HVD_COSTO_TOT, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CAT_GP_PRECIO from HIST_VENTAS LEFT JOIN CAT_GUNAPROD ON CAT_GP_ID = HVD_PROID where BCAJAS = 0 and HVD_CODPROMO ='${Subs.traealmacen}' and HVD_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$)
|
||||
|
||||
Private cuenta0 As String = 0
|
||||
Private arti As String = 0
|
||||
If vc.RowCount > 0 Then
|
||||
@@ -1766,7 +1697,6 @@ Sub B_CLIEPROD_Click
|
||||
Next
|
||||
End If
|
||||
' Log(cuenta0)
|
||||
|
||||
Private vc2 As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT from HIST_VENTAS where HVD_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}' AND BCAJAS = 1"$)
|
||||
Private Cuenta1 As String = 0
|
||||
Private arti1 As String = 0
|
||||
@@ -1783,12 +1713,10 @@ Sub B_CLIEPROD_Click
|
||||
Next
|
||||
End If
|
||||
' Log(Cuenta1)
|
||||
|
||||
Private vc4 As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT, HVD_RECHAZO, HVD_CODPROMO from HIST_VENTAS where HVD_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}' AND BCAJAS = 0 and HVD_CODPROMO <> '${Subs.traeAlmacen}'"$)
|
||||
Private Cuenta2 As String = 0
|
||||
Private arti2 As String = 0
|
||||
If vc4.RowCount > 0 Then
|
||||
|
||||
For k = 0 To vc4.RowCount - 1
|
||||
vc4.Position = k
|
||||
If vc4.GetString("HVD_PROID") <> vc4.GetString("HVD_CODPROMO") Then
|
||||
@@ -1805,11 +1733,9 @@ Sub B_CLIEPROD_Click
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
' Log(arti2)
|
||||
|
||||
Private c4 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_CANT,0) AS PE_CANT, iFNULL(PE_COSTO_TOT,0) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$)
|
||||
Private Cuenta3 As String = 0
|
||||
Private arti3 As String = 0
|
||||
@@ -1820,18 +1746,12 @@ Sub B_CLIEPROD_Click
|
||||
Cuenta3 = Cuenta3 + c4.GetString("PE_COSTO_TOT")
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Private TOTALMONTO As String = cuenta0 + Cuenta1 + Cuenta2 + Cuenta3
|
||||
Private TOTALcantidad As String = arti + arti1 +arti2 + arti3
|
||||
|
||||
ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO")&" - " &c.GetString("CAT_CL_NOMBRE"), "Articulos :"& TOTALcantidad &" Monto :"& NumberFormat2(TOTALMONTO,0,2,2,True) & " " & ESTATUS )
|
||||
Log("si entre2")
|
||||
|
||||
Else If ESTATUS = "RECHAZADO" Then
|
||||
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CAT_GP_PRECIO, HVD_COSTO_TOT from HIST_VENTAS LEFT JOIN CAT_GUNAPROD ON CAT_GP_ID = HVD_PROID where BCAJAS = 0 and HVD_CODPROMO ='${Subs.traealmacen}' and HVD_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$)
|
||||
|
||||
Private cuenta0 As String = 0
|
||||
Private arti As String = 0
|
||||
If vc.RowCount > 0 Then
|
||||
@@ -1844,7 +1764,6 @@ Sub B_CLIEPROD_Click
|
||||
Next
|
||||
End If
|
||||
' Log(cuenta0)
|
||||
|
||||
Private vc2 As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT from HIST_VENTAS where HVD_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}' AND BCAJAS = 1"$)
|
||||
Private Cuenta1 As String = 0
|
||||
Private arti1 As String = 0
|
||||
@@ -1861,12 +1780,10 @@ Sub B_CLIEPROD_Click
|
||||
Next
|
||||
End If
|
||||
' Log(Cuenta1)
|
||||
|
||||
Private vc4 As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT, HVD_RECHAZO, HVD_CODPROMO from HIST_VENTAS where HVD_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}' AND BCAJAS = 0 and HVD_CODPROMO <> '${Subs.traeAlmacen}'"$)
|
||||
Private Cuenta2 As String = 0
|
||||
Private arti2 As String = 0
|
||||
If vc4.RowCount > 0 Then
|
||||
|
||||
For k = 0 To vc4.RowCount - 1
|
||||
vc4.Position = k
|
||||
If vc4.GetString("HVD_PROID") <> vc4.GetString("HVD_CODPROMO") Then
|
||||
@@ -1883,11 +1800,9 @@ Sub B_CLIEPROD_Click
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
' Log(arti2)
|
||||
|
||||
Private c4 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_CANT,0) AS PE_CANT, iFNULL(PE_COSTO_TOT,0) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE = '${c.GetString("CAT_CL_CODIGO")}'"$)
|
||||
Private Cuenta3 As String = 0
|
||||
Private arti3 As String = 0
|
||||
@@ -1898,18 +1813,13 @@ Sub B_CLIEPROD_Click
|
||||
Cuenta3 = Cuenta3 + c4.GetString("PE_COSTO_TOT")
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Private TOTALMONTO As String = cuenta0 + Cuenta1 + Cuenta2 + Cuenta3
|
||||
Private TOTALcantidad As String = arti + arti1 +arti2 + arti3
|
||||
|
||||
Log("si entre")
|
||||
' Log("si entre")
|
||||
ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO")&" - " &c.GetString("CAT_CL_NOMBRE"), "Articulos :"& TOTALcantidad &" Monto :"& NumberFormat2(TOTALMONTO,0,2,2,True) & " " & ESTATUS )
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
' c=skmt.ExecQuery("select HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_ESTATUS from HIST_VENTAS ORDER BY HVD_PRONOMBRE")
|
||||
'
|
||||
@@ -1938,7 +1848,7 @@ Sub B_CLIEPROD_Click
|
||||
' ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") & " " & c.GetString("HVD_CLIENTE") , c.GetString("HVD_CANT") & " " & ESTATUS )
|
||||
' Next
|
||||
' End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub B_REGRESA_Click
|
||||
@@ -1956,8 +1866,7 @@ Sub Btn_Ubicar_Ru_Click
|
||||
If b_check.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el checklist.","Atención")
|
||||
Else
|
||||
|
||||
StartActivity(MAPA_RUTAS)
|
||||
StartActivity(MAPA_RUTAS)
|
||||
End If
|
||||
End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
@@ -1966,22 +1875,18 @@ Private Sub b_tabulador_Click
|
||||
If b_check.Visible = True Then
|
||||
MsgboxAsync("Favor de hacer el checklist.","Atención")
|
||||
Else
|
||||
B4XPages.ShowPage("tabulador")
|
||||
B4XPages.ShowPage("tabulador")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_check_Click
|
||||
|
||||
B4XPages.ShowPage("checklist")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_ItemClick (Position As Int, Value As Object)
|
||||
Log(Value)
|
||||
|
||||
' Log(Value)
|
||||
Dim clieasing() As String = Regex.Split(" ", Value)
|
||||
Log(clieasing(0))
|
||||
|
||||
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(clieasing(0)))
|
||||
B4XPages.ShowPage("Cliente")
|
||||
@@ -1999,7 +1904,6 @@ Private Sub b_rechazos_Click
|
||||
b_regreso.Top = p_prod.Height - b_regreso.Height
|
||||
' label1.TextSize = 20
|
||||
label1.Typeface = Typeface.CreateNew(Typeface.DEFAULT_BOLD, Typeface.STYLE_BOLD)
|
||||
|
||||
|
||||
' lv_prod_Prin.Left = p_prod.Width / 2
|
||||
lv_prod_Prin.Width = Root.Width - (Root.Width * .10)
|
||||
@@ -2007,19 +1911,13 @@ Private Sub b_rechazos_Click
|
||||
Subs.centraListView(lv_prod_Prin,Root.Width)
|
||||
p_prod.Visible = True
|
||||
p_prod.BringToFront
|
||||
|
||||
|
||||
|
||||
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("select HVD_PRONOMBRE, IFNULL(SUM(HVD_RECHAZOCANT), 0) AS HVD_RECHAZOCANT, HVD_PROID from HIST_VENTAS WHERE hvd_rechazo <> 2 and HVD_RECHAZOCANT > 0 GROUP BY HVD_PROID order by HVD_PRONOMBRE asc")
|
||||
|
||||
lv_prod_Prin.SingleLineLayout.Label.TextColor = Colors.White
|
||||
lv_prod_Prin.Clear
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim itemText As String
|
||||
|
||||
Private c3 As Cursor=Starter.skmt.ExecQuery($"select Ifnull(sum(PE_CANT),0) AS PE_CANT from PEDIDO WHERE PE_PROID ='${c.GetString("HVD_PROID")}'"$)
|
||||
Private resta As String = 0
|
||||
|
||||
@@ -2030,13 +1928,11 @@ Private Sub b_rechazos_Click
|
||||
resta = 0
|
||||
End If
|
||||
If ( c.GetInt("HVD_RECHAZOCANT") - resta) <= 0 Then
|
||||
|
||||
|
||||
Else
|
||||
itemText = $"${c.GetString("HVD_PRONOMBRE")} ${CRLF}Inventario: ${(c.GetInt("HVD_RECHAZOCANT") - resta)}"$
|
||||
lv_prod_Prin.AddSingleLine(itemText)
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
Else
|
||||
lv_prod_Prin.AddSingleLine("No hay datos disponibles.")
|
||||
@@ -2100,12 +1996,8 @@ Private Sub B_PAGARES_Click
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim itemText As String
|
||||
|
||||
|
||||
itemText = $"NOMBRE.: ${c.GetString("NOMBRE")} ${CRLF}FOLIO: ${(c.GetInt("NOTA"))}, MONTO: $ ${(c.GetInt("SALDO_PENDIENTE"))}"$
|
||||
ListView2.AddSingleLine(itemText)
|
||||
|
||||
|
||||
Next
|
||||
Else
|
||||
ListView2.AddSingleLine("No hay datos disponibles.")
|
||||
@@ -2113,8 +2005,6 @@ Private Sub B_PAGARES_Click
|
||||
c.Close
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button1_Click
|
||||
P_PAGARES.Visible = False
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user