mirror of
https://github.com/KeymonSoft/Marquez_Reparto.git
synced 2026-04-20 06:09:17 +00:00
V 4.11.28
This commit is contained in:
cvaldes1201
@@ -370,8 +370,201 @@ Sub B4XPage_Appear
|
||||
Dim rechMap As Map = Subs.traeRechazados
|
||||
Dim vendMap As Map = Subs.traeVendidos
|
||||
l_aLiquidar.Text = entMap.Get("monto") + vendMap.Get("monto")
|
||||
l_rechazo.text = rechMap.Get("monto")
|
||||
L_MONTOE.Text = entMap.Get("monto") + vendMap.Get("monto")
|
||||
|
||||
Dim cancelrecha As Cursor = Starter.skmt.ExecQuery("SELECT ifnull(HVD_RECHAZOCANT,0), HVD_RECHAZO, CONSECUTIVO FROM HIST_VENTAS")
|
||||
If cancelrecha.RowCount > 0 Then
|
||||
For h54 = 0 To cancelrecha.RowCount - 1
|
||||
cancelrecha.Position = h54
|
||||
Starter.skmt.ExecNonQuery2("Update HIST_VENTAS set HVD_RECHAZO = '0' WHERE CONSECUTIVO = ? and (HVD_RECHAZOCANT = 0 OR HVD_RECHAZOCANT IS NULL)" , Array As String(cancelrecha.GetString("CONSECUTIVO")))
|
||||
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 "$)
|
||||
|
||||
Private rescant As String = 0
|
||||
If r5.RowCount > 0 Then
|
||||
For j4 = 0 To r5.RowCount -1
|
||||
r5.Position = j4
|
||||
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
|
||||
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)
|
||||
r6.Close
|
||||
Next
|
||||
End If
|
||||
If rescant = "NaN" Then rescant = 0
|
||||
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 String = 0
|
||||
If r5.RowCount > 0 Then
|
||||
For j5 = 0 To r5.RowCount -1
|
||||
r5.Position = j5
|
||||
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")}'"$)
|
||||
r6.Position = 0
|
||||
' Log(r6.GetString("PE_CANT"))
|
||||
rescant2 = rescant2 + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("CANTC")))*((r5.GetString("HVD_RECHAZOCANT") - r6.GetString("PE_CANT"))/Subs.traeConversion(r5.GetString("HVD_PROID"))))
|
||||
'(456/1)(4-0/0)
|
||||
|
||||
r6.Close
|
||||
Next
|
||||
End If
|
||||
If rescant2 = "NaN" Then rescant2 = 0
|
||||
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
|
||||
r5r.Position = j4r
|
||||
Private r6r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5r.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5r.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5r.GetString("CONSECUTIVO")}' "$)
|
||||
r6r.Position = 0
|
||||
' LogColor(r5.GetString("HVD_COSTO_TOT")&" / "& r5.GetString("HVD_CANT")&" * "&r5.GetString("HVD_RECHAZOCANT")&" - "&r6.GetString("PE_CANT"),Colors.Blue)
|
||||
' LogColor(r6.GetString("PE_CANT"),Colors.Blue)
|
||||
rescantr = rescantr + ((r5r.GetString("HVD_COSTO_TOT")/(r5r.GetString("HVD_CANT")))*(r5r.GetString("HVD_RECHAZOCANT")))
|
||||
r6r.Close
|
||||
Next
|
||||
End If
|
||||
If rescantr = "NaN" Then rescantr = 0
|
||||
' LogColor(rescant,Colors.Red)
|
||||
r5r.Close
|
||||
|
||||
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
|
||||
r5r.Position = j5r
|
||||
Private r6r As Cursor = Starter.skmt.ExecQuery($"select IFNULL(SUM(PE_CANT),0) AS PE_CANT from PEDIDO where PE_CLIENTEOR = '${r5r.GetString("HVD_CLIENTE")}' AND PE_PROID = '${r5r.GetString("HVD_PROID")}' AND CONSECUTIVO = '${r5r.GetString("CONSECUTIVO")}'"$)
|
||||
r6r.Position = 0
|
||||
' Log(r6.GetString("PE_CANT"))
|
||||
rescant2r = rescant2r + ((r5r.GetString("HVD_COSTO_TOT")/(r5r.GetString("CANTC")))*((r5r.GetString("HVD_RECHAZOCANT"))/Subs.traeConversion(r5r.GetString("HVD_PROID"))))
|
||||
r6r.Close
|
||||
Next
|
||||
End If
|
||||
If rescant2r = "NaN" Then rescant2r = 0
|
||||
' Log(rescant2)
|
||||
r5r.Close
|
||||
Log(rescant2r)
|
||||
Log(rescant2r+rescantr)
|
||||
|
||||
'''' 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
|
||||
' r5.Position = 0
|
||||
' rescant3 = r5.GetString("HVD_COSTO_TOT")
|
||||
'
|
||||
' End If
|
||||
' Log(NumberFormat2(rescant3, 0, 2, 2, False))
|
||||
' 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
|
||||
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)
|
||||
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
|
||||
rescant4 = r5.GetString("HVD_COSTO_TOT")
|
||||
End If
|
||||
Log(rescant4)
|
||||
r5.Close
|
||||
|
||||
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
|
||||
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
|
||||
If r5.RowCount > 0 Then
|
||||
For j4 = 0 To r5.RowCount -1
|
||||
r5.Position = j4
|
||||
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")}' "$)
|
||||
r6.Position = 0
|
||||
' LogColor(r5.GetString("HVD_COSTO_TOT")&" / "& r5.GetString("HVD_CANT")&" * "&r5.GetString("HVD_RECHAZOCANT")&" - "&r6.GetString("PE_CANT"),Colors.Blue)
|
||||
' LogColor(r6.GetString("PE_CANT"),Colors.Blue)
|
||||
rescant6 = rescant6 + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("HVD_CANT")))*(r5.GetString("HVD_CANT")- r5.GetString("HVD_RECHAZOCANT")))
|
||||
' Log(rescant6)
|
||||
r6.Close
|
||||
Next
|
||||
End If
|
||||
If rescant6 = "NaN" Then rescant6 = 0
|
||||
LogColor(rescant6,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 rescant7 As Double
|
||||
If r5.RowCount > 0 Then
|
||||
For j5 = 0 To r5.RowCount -1
|
||||
r5.Position = j5
|
||||
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")}'"$)
|
||||
r6.Position = 0
|
||||
' Log(r6.GetString("PE_CANT"))
|
||||
rescant7 = rescant7 + ((r5.GetString("HVD_COSTO_TOT")/(r5.GetString("CANTC")))*((r5.GetString("HVD_CANT") - r5.GetString("HVD_RECHAZOCANT") )/Subs.traeConversion(r5.GetString("HVD_PROID"))))
|
||||
r6.Close
|
||||
Next
|
||||
End If
|
||||
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
|
||||
@@ -394,6 +587,7 @@ Sub B4XPage_Appear
|
||||
L_MONTOE.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'checachek
|
||||
End Sub
|
||||
@@ -445,14 +639,20 @@ Sub trabajar_Click
|
||||
End Sub
|
||||
|
||||
Sub Subir_Click
|
||||
|
||||
|
||||
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_estatus_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "estatus")
|
||||
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 FROM NOVENTA")
|
||||
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
@@ -485,18 +685,20 @@ Sub Subir_Click
|
||||
c.Close
|
||||
End If
|
||||
' pedido
|
||||
c=Starter.skmt.ExecQuery("SELECT PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, 1 as PE_DESC FROM 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
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedido_REPG"
|
||||
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),"0","VENTA")
|
||||
reqManager.ExecuteCommand(cmd , "ins_pedido")
|
||||
cmd.Name = "insert_pedido_REP_marquez"
|
||||
cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), c.GetString("PE_COSTO_TOT"), c.GetString("PE_COSTOU"), c.GetString("PE_CANT"), c.GetString("PE_PRONOMBRE"), c.GetString("PE_PROID"), c.GetString("PE_CLIENTE"), c.GetString("PE_FECHA"), c.GetString("PE_USUARIO"), c.GetString("PE_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_pedido_marquez")
|
||||
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
|
||||
@@ -563,13 +765,18 @@ Sub Subir_Click
|
||||
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 FROM HIST_VENTAS")
|
||||
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 FROM HIST_VENTAS")
|
||||
If c.RowCount > 0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position = i
|
||||
Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$)
|
||||
d4.Position = 0
|
||||
|
||||
Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$)
|
||||
d5.Position = 0
|
||||
Private restacant As String = d5.GetString("PE_CANT")
|
||||
d5.Close
|
||||
|
||||
Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
|
||||
Dim fecha2() As String = Regex.Split("-", fecha1(0))
|
||||
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
|
||||
@@ -577,11 +784,23 @@ Sub Subir_Click
|
||||
Dim hora() As String = Regex.Split("\.", fecha1(1))
|
||||
Log(hora(0))
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_HVD_MARQUEZrep"
|
||||
cmd.Parameters = Array As Object(c.GetString("HVD_RECHAZOCANT"), c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"))
|
||||
' HVD_CANT_RECHAZO_MOVIL = ? where HVD_CLIENTE = ? And HVD_PROID = ? And TRUNC(HVD_FECHA) = TRUNC(to_date((?),DD/MM/YYYY HH24:MI:ss)) AND HVD_RUTA = ? AND HVD_ALMACEN = ? AND HVD_COBA = ? AND HVD_CODPROMO = ? AND HVD_NUM_TICKET = ?
|
||||
reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
Dim sDate, sTime As String
|
||||
DateTime.DateFormat = "dd/MM/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
If c.GetString("HVD_RECHAZOCANT") <> "0" Then
|
||||
Log((c.GetString("HVD_RECHAZOCANT")-restacant))
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_HVD_MARQUEZrep"
|
||||
cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),sDate& " "& sTime,1, c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
Else
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_HVD_MARQUEZrep"
|
||||
cmd.Parameters = Array As String("","","", c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"), c.GetString("HVD_CANT"))
|
||||
reqManager.ExecuteCommand(cmd, "update_hvd")
|
||||
End If
|
||||
d4.Close
|
||||
Next
|
||||
End If
|
||||
@@ -619,7 +838,6 @@ Sub Subir_Click
|
||||
cmd.Name = "insert_drop_rep_marquez"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
|
||||
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
End Sub
|
||||
|
||||
@@ -668,6 +886,7 @@ Sub cargar_Click
|
||||
If l_ruta.Text = "0" Then '
|
||||
Log("********************* No hay ruta, BORRAMOS TODO")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod3")
|
||||
Starter.skmt.ExecNonQuery("delete from REPARTO")
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS2")
|
||||
@@ -690,8 +909,8 @@ Sub cargar_Click
|
||||
|
||||
If l_ruta.Text = "0" Then
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_marquez_re_REPG"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
|
||||
cmd.Name = "select_almacen_marquez_re_REPG2"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
|
||||
reqs.Add("gunaprod")
|
||||
@@ -716,6 +935,16 @@ Sub cargar_Click
|
||||
cmd.Name = "select_coords_almacen_Marquez"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod3_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod3")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_pagares_marquez"
|
||||
cmd.Parameters = Array As Object(e_ruta.text,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "PAGARES")
|
||||
|
||||
' c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
|
||||
' If c.RowCount > 0 Then
|
||||
@@ -817,6 +1046,47 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "gunaprod3" Then 'query tag
|
||||
If reqs.IndexOf("gunaprod3") > -1 Then
|
||||
reqs.RemoveAt(reqs.IndexOf("gunaprod3"))
|
||||
Log(reqs.Size)
|
||||
End If
|
||||
Starter.skmt.BeginTransaction
|
||||
For Each records() As Object In result.Rows
|
||||
Dim CAT_GP_ID As String = records(result.Columns.Get("CAT_GP_ID"))
|
||||
Dim CAT_GP_NOMBRE As String = records(result.Columns.Get("CAT_GP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(result.Columns.Get("CAT_GP_IMP1"))
|
||||
Dim CAT_GP_IMP2 As String = records(result.Columns.Get("CAT_GP_IMP2"))
|
||||
Dim CAT_GP_PRECIO As String = records(result.Columns.Get("CAT_GP_PRECIO"))
|
||||
Dim CAT_GP_CLASIF As String = records(result.Columns.Get("CAT_GP_CLASIF"))
|
||||
Dim CAT_GP_STS As String = records(result.Columns.Get("CAT_GP_STS"))
|
||||
Dim CAT_GP_TIPO As String = records(result.Columns.Get("CAT_GP_TIPO"))
|
||||
Dim CAT_GP_SUBTIPO As String = records(result.Columns.Get("CAT_GP_SUBTIPO"))
|
||||
Dim CAT_GP_IMG() As Byte = records(result.Columns.Get("CAT_GP_IMG"))
|
||||
Dim CAT_GP_ALMACEN As Int = records(result.Columns.Get("CAT_GP_ALMACEN"))
|
||||
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
|
||||
Dim CAT_GP_TIPOPROD As Int = records(result.Columns.Get("CAT_GP_TIPOPROD"))
|
||||
Dim CAT_GP_INICIATIVA As Int = records(result.Columns.Get("CAT_GP_INICIATIVA"))
|
||||
Dim CAT_DP_PRECIO4 As Float = records(result.Columns.Get("CAT_DP_PRECIO4"))
|
||||
Dim CAT_DP_CONVERSION1 As Int = records(result.Columns.Get("CAT_DP_CONVERSION1"))
|
||||
' CAT_GP_INICIATIVA = 5
|
||||
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD3(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA,CAT_DP_PRECIO4,CAT_DP_CONVERSION1))
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
Listo2=1
|
||||
If Listo1 = 1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
|
||||
ToastMessageShow("Datos Actualizados." , True)
|
||||
B4XPage_Appear
|
||||
img2.Visible = False
|
||||
EJECUTANDO=0
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -930,6 +1200,21 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "estatus" Then 'query tag
|
||||
For Each records() As Object In result.Rows
|
||||
Dim hvd_estatus As String = records(result.Columns.Get("HVD_ESTATUS"))
|
||||
If hvd_estatus = "Liquidado" Then
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
MsgboxAsync("La venta ya fue liquidada","Atención")
|
||||
Else
|
||||
envioinfo
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -965,6 +1250,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Log(l_ruta.text)
|
||||
Log($"******** Insertamos HV - ${result.Rows.Size}"$)
|
||||
Starter.skmt.BeginTransaction
|
||||
Dim consecutivo As Int= 0
|
||||
For Each records() As Object In result.Rows
|
||||
Dim HVD_CLIENTE As String = records(result.Columns.Get("HVD_CLIENTE"))
|
||||
Dim HVD_PRONOMBRE As String = records(result.Columns.Get("HVD_PRONOMBRE"))
|
||||
@@ -980,17 +1266,17 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim bcajas As String = records(result.Columns.Get("HVD_BCAJAS"))
|
||||
Dim cantc As String = records(result.Columns.Get("HVD_CANTC"))
|
||||
' Log(" ++ insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
|
||||
|
||||
consecutivo = consecutivo +1
|
||||
If l_ruta.Text = "0" Then 'Si no hay ruta cargada, guardamos todos los clientes
|
||||
Log("No hay ruta, guardamos todos")
|
||||
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, PLACA,BCAJAS,CANTC) 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, HVD_PLACA,bcajas,cantc))
|
||||
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, PLACA,BCAJAS,CANTC,CONSECUTIVO) 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, HVD_PLACA,bcajas,cantc,consecutivo))
|
||||
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))
|
||||
Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
|
||||
' Log("Hay ruta, guardamos los nuevos")
|
||||
Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
|
||||
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, PLACA,BCAJAS,CANTC) 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, HVD_PLACA,bcajas,cantc))
|
||||
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, PLACA,BCAJAS,CANTC,CONSECUTIVO) 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, HVD_PLACA,bcajas,cantc,consecutivo))
|
||||
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
|
||||
@@ -1032,6 +1318,20 @@ 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
|
||||
For Each records() As Object In result.Rows
|
||||
|
||||
Dim TMP_MONTO_PAGARE As String = records(result.Columns.Get("TMP_MONTO_PAGARE"))
|
||||
Dim TMP_CLIENTE As String = records(result.Columns.Get("TMP_CLIENTE"))
|
||||
' Log(" ++ insert into CAT_VARIABLES: "&Cat_Va_Descripcion&","&Cat_Va_Valor)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES(TMP_MONTO_PAGARE, TMP_CLIENTE) VALUES (?,?)", Array As Object (TMP_MONTO_PAGARE, TMP_CLIENTE))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -1047,6 +1347,8 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -1228,7 +1530,7 @@ Sub connecta_Click
|
||||
reqManager.ExecuteQuery(cmd , 0, "version")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_re_REPG_marquez"
|
||||
cmd.Name = "select_ruta_re_REPG_marquez5"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, imei)
|
||||
' Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
@@ -1258,6 +1560,7 @@ Sub e_ruta_EnterPressed
|
||||
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
|
||||
e_ruta.Text = ""
|
||||
Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
|
||||
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
|
||||
Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK")
|
||||
Starter.skmt.ExecNonQuery("delete from CHECKLIST2")
|
||||
@@ -1266,6 +1569,7 @@ Sub e_ruta_EnterPressed
|
||||
Starter.skmt.ExecNonQuery("delete from clie_act")
|
||||
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod")
|
||||
Starter.skmt.ExecNonQuery("delete from cat_gunaprod3")
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
Starter.skmt.ExecNonQuery("delete from HIST_VENTAS")
|
||||
Starter.skmt.ExecNonQuery("delete from REPARTO")
|
||||
@@ -1313,7 +1617,7 @@ Sub B_CLIEPROD_Click
|
||||
Panel1.Visible = True
|
||||
Panel1.BringToFront
|
||||
Btn_Ubicar_Ru.Visible=False
|
||||
c=Starter.skmt.ExecQuery("select HVD_PRONOMBRE, SUM(HVD_CANT) AS HVD_CANT, HVD_RECHAZO from HIST_VENTAS GROUP BY HVD_PRONOMBRE, HVD_RECHAZO ORDER BY HVD_PRONOMBRE")
|
||||
c=Starter.skmt.ExecQuery("select * from kmt_info WHERE gestion <> 0 order by HORAENT")
|
||||
Subs.SetDivider(ListView1, Colors.LightGray, 2)
|
||||
ListView1.Clear
|
||||
Dim label1 As Label
|
||||
@@ -1328,14 +1632,172 @@ Sub B_CLIEPROD_Click
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
If c.GetString("HVD_RECHAZO") = "0" Then
|
||||
ESTATUS = " "
|
||||
ELSE IF c.GetString("HVD_RECHAZO") = "1" Then
|
||||
ESTATUS = "RECHAZADO"
|
||||
Else
|
||||
ESTATUS = "SIN ESTATUS"
|
||||
End If
|
||||
ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") , c.GetString("HVD_CANT") & " " & ESTATUS )
|
||||
If c.GetString("gestion") = "2" Then
|
||||
ESTATUS = "ENTREGADO"
|
||||
Log("entrega")
|
||||
ELSE IF c.GetString("gestion") = "3" Then
|
||||
Log("no entrega")
|
||||
ESTATUS = "RECHAZADO"
|
||||
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
|
||||
For a = 0 To vc.RowCount - 1
|
||||
vc.Position = a
|
||||
' Log(vc.GetString("HVD_CANT")&","&vc.GetString("HVD_RECHAZOCANT"))
|
||||
arti = arti + (vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT"))
|
||||
cuenta0 = cuenta0 + ((vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT"))*(vc.GetString("HVD_COSTO_TOT")/vc.GetString("HVD_CANT")))
|
||||
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
|
||||
If vc2.RowCount > 0 Then
|
||||
For h = 0 To vc2.RowCount - 1
|
||||
vc2.Position = h
|
||||
Dim preu As Float = NumberFormat2(vc2.GetString("HVD_COSTO_TOT")/vc2.GetString("CANTC"),0,2,2,False)
|
||||
Private vc3 As Cursor = Starter.skmt.ExecQuery($"select PRECIOCONVER, CONVERSION from CAT_GUNAPROD where CAT_GP_ID = '${vc2.GetString("HVD_PROID")}'"$)
|
||||
If vc3.RowCount > 0 Then
|
||||
vc3.Position = 0
|
||||
Cuenta1 = Cuenta1 + ((vc2.GetString("CANTC")-(vc2.GetString("HVD_RECHAZOCANT")/vc3.GetString("CONVERSION")))*preu)
|
||||
arti1 = arti1 + (vc2.GetString("HVD_CANT") - vc2.GetString("HVD_RECHAZOCANT"))
|
||||
End If
|
||||
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
|
||||
If vc4.GetString("HVD_RECHAZO") = 0 Then
|
||||
Cuenta2 = Cuenta2 + vc4.GetString("HVD_COSTO_TOT")
|
||||
arti2 = arti2 + vc4.GetString("HVD_CANT")
|
||||
Else
|
||||
Private vc5 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${vc4.GetString("HVD_PROID")}'"$)
|
||||
If vc5.RowCount > 0 Then
|
||||
vc5.Position= 0
|
||||
' Log(vc5.GetString("CAT_GP_PRECIO"))
|
||||
Cuenta2 = Cuenta2 +((vc4.GetString("HVD_CANT")- vc4.GetString("HVD_RECHAZOCANT"))*vc5.GetString("CAT_GP_PRECIO"))
|
||||
arti2 = arti2 +(vc4.GetString("HVD_CANT")- vc4.GetString("HVD_RECHAZOCANT"))
|
||||
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
|
||||
If c4.RowCount > 0 Then
|
||||
For x = 0 To c4.RowCount -1
|
||||
c4.Position = x
|
||||
arti3 = arti3 + c4.GetString("PE_CANT")
|
||||
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
|
||||
For a = 0 To vc.RowCount - 1
|
||||
vc.Position = a
|
||||
Dim preu As Float = NumberFormat2(vc.GetString("HVD_COSTO_TOT")/vc.GetString("HVD_CANT"),0,2,2,False)
|
||||
' Log(vc.GetString("HVD_CANT")&","&vc.GetString("HVD_RECHAZOCANT"))
|
||||
arti = arti + (vc.GetString("HVD_RECHAZOCANT"))
|
||||
cuenta0 = cuenta0 + ((vc.GetString("HVD_RECHAZOCANT"))*preu)
|
||||
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
|
||||
If vc2.RowCount > 0 Then
|
||||
For h = 0 To vc2.RowCount - 1
|
||||
vc2.Position = h
|
||||
Dim preu As Float = NumberFormat2(vc2.GetString("HVD_COSTO_TOT")/vc2.GetString("CANTC"),0,2,2,False)
|
||||
Private vc3 As Cursor = Starter.skmt.ExecQuery($"select PRECIOCONVER, CONVERSION from CAT_GUNAPROD where CAT_GP_ID = '${vc2.GetString("HVD_PROID")}'"$)
|
||||
If vc3.RowCount > 0 Then
|
||||
vc3.Position = 0
|
||||
Cuenta1 = Cuenta1 + ((vc2.GetString("HVD_RECHAZOCANT")/vc3.GetString("CONVERSION"))*preu)
|
||||
arti1 = arti1 + (vc2.GetString("HVD_RECHAZOCANT"))
|
||||
End If
|
||||
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
|
||||
If vc4.GetString("HVD_RECHAZO") = 0 Then
|
||||
Cuenta2 = Cuenta2 + vc4.GetString("HVD_COSTO_TOT")
|
||||
arti2 = arti2 + vc4.GetString("HVD_RECHAZOCANT")
|
||||
Else
|
||||
Private vc5 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${vc4.GetString("HVD_PROID")}'"$)
|
||||
If vc5.RowCount > 0 Then
|
||||
vc5.Position= 0
|
||||
' Log(vc5.GetString("CAT_GP_PRECIO"))
|
||||
Cuenta2 = Cuenta2 +(( vc4.GetString("HVD_RECHAZOCANT"))*vc5.GetString("CAT_GP_PRECIO"))
|
||||
arti2 = arti2 +(vc4.GetString("HVD_RECHAZOCANT"))
|
||||
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
|
||||
If c4.RowCount > 0 Then
|
||||
For x = 0 To c4.RowCount -1
|
||||
c4.Position = x
|
||||
arti3 = arti3 + c4.GetString("PE_CANT")
|
||||
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")
|
||||
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
|
||||
|
||||
@@ -1373,7 +1835,7 @@ End Sub
|
||||
|
||||
Sub B_REGRESA_Click
|
||||
Log("B_REGRESA_Click")
|
||||
BUSCA.Visible = True
|
||||
BUSCA.Visible = False
|
||||
connecta.Visible = True
|
||||
trabajar.Visible = True
|
||||
B_CLIEPROD.Visible = True
|
||||
@@ -1404,4 +1866,15 @@ Private Sub b_check_Click
|
||||
|
||||
B4XPages.ShowPage("checklist")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_ItemClick (Position As Int, Value As Object)
|
||||
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")
|
||||
End Sub
|
||||
Reference in New Issue
Block a user