mirror of
https://github.com/KeymonSoft/Marquez_Reparto.git
synced 2026-04-17 21:06:25 +00:00
V 4.11.28
This commit is contained in:
cvaldes1201
@@ -89,6 +89,21 @@ Sub Class_Globals
|
||||
Private ET_Add_Monto As EditText
|
||||
Private p_add_monto As Panel
|
||||
Dim sDate, sTime As String
|
||||
Private p_validacion As Panel
|
||||
Private b_cancelarcodigo As Button
|
||||
Private b_aceptar As Button
|
||||
Private et_codigo As EditText
|
||||
Private P_CIEGO As Panel
|
||||
Private b_terpc As Button
|
||||
Private B_PC_ENV As Button
|
||||
Private CLV_PICK_CIEGO As CustomListView
|
||||
Private et_buspc As EditText
|
||||
Dim q_buscar As String
|
||||
Dim d As Cursor
|
||||
Private L_PICK_CIEGO As Label
|
||||
Private ET_PICK_CIEGO As EditText
|
||||
Dim a As Cursor
|
||||
Dim f As Cursor
|
||||
End Sub
|
||||
|
||||
Public Sub Initialize
|
||||
@@ -137,6 +152,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
B4XPages.AddPage("tabulador", tabulador)
|
||||
checklist.Initialize
|
||||
B4XPages.AddPage("checklist",checklist)
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD3 (CAT_GP_INICIATIVA TEXT, CAT_GP_TIPOPROD TEXT, CAT_GP_DEV TEXT, CAT_GP_ALMACEN NUMERIC, CAT_GP_ID TEXT, CAT_GP_NOMBRE TEXT, CAT_GP_IMP1 TEXT, CAT_GP_IMP2 TEXT, CAT_GP_PRECIO TEXT, CAT_GP_CLASIF TEXT, CAT_GP_STS TEXT, CAT_GP_TIPO TEXT, CAT_GP_SUBTIPO TEXT, CAT_GP_IMG BLOB)")
|
||||
Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_CONVERSION1", "TEXT")
|
||||
Subs.agregaColumna("CAT_GUNAPROD3", "CAT_DP_PRECIO4", "TEXT")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)")
|
||||
@@ -146,14 +165,20 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
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("DROP TABLE IF EXISTS CHECKLIST")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO_CHECK(CHECADO 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("kmt_info", "SECUENCIA", "INT")
|
||||
Subs.agregaColumna("kmt_info", "HORAENT", "TEXT")
|
||||
Subs.agregaColumna("REPARTO", "REP_PRODID", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "PE_CLIENTEOR", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "PE_CAJAS", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "PE_REGALO", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "CONSECUTIVO", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "FECHA_PREV", "TEXT")
|
||||
Subs.agregaColumna("PEDIDO", "RUTA_REP", "TEXT")
|
||||
Subs.agregaColumna("REPARTO", "REP_CLI_ORIG", "TEXT")
|
||||
Subs.agregaColumna("REPARTO", "REP_PRECIO", "TEXT")
|
||||
Subs.agregaColumna("REPARTO", "REP_RECHAZO", "INTEGER")
|
||||
@@ -161,6 +186,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Subs.agregaColumna("VENTAS", "V_PRECIO", "TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","PLACA","TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANT","TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","CONSECUTIVO","TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANT","TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","ESPROMO","TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","HVD_RECHAZOCANTC","TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","BCAJAS","TEXT")
|
||||
Subs.agregaColumna("HIST_VENTAS","CANTC","TEXT")
|
||||
@@ -317,6 +345,98 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "contrasena" Then 'query tag
|
||||
For Each records() As Object In result.Rows
|
||||
Dim CAT_PA_PASS As String = records(result.Columns.Get("CAT_PA_PASS"))
|
||||
If CAT_PA_PASS = et_codigo.Text Then
|
||||
Log(CAT_PA_PASS)
|
||||
p_validacion.Visible = False
|
||||
et_codigo.Text = ""
|
||||
|
||||
Subs.panelVisible(P_CIEGO,0,0)
|
||||
|
||||
Else
|
||||
' MsgboxAsync("Contraseña incorrecta","Atención")
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag.As(String).IndexOf("PICK_C_") > -1 Then 'query tag
|
||||
' Subs.logJobDoneResultados(result)
|
||||
Private id As String= result.Tag
|
||||
id = id.SubString(id.IndexOf("_")+3)
|
||||
For Each records() As Object In result.Rows
|
||||
Dim CUENTA As String = records(result.Columns.Get("CUENTA"))
|
||||
Log(CUENTA)
|
||||
Log(id)
|
||||
If CUENTA = 0 Then
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO WHERE PC_ID_PROD = ?", Array As String (id))
|
||||
If c.RowCount > 0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
c.Position=0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_PICKCIEGO_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_NOM_PROD"), c.GetString("PC_CANT"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
|
||||
reqManager.ExecuteCommand(cmd , "ins_PC")
|
||||
' Next
|
||||
End If
|
||||
c.Close
|
||||
Else if CUENTA > 0 Then
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO WHERE PC_ID_PROD= ?", Array As String (id))
|
||||
If c.RowCount > 0 Then
|
||||
' For i=0 To c.RowCount -1
|
||||
c.Position = 0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_PICKCIEGO_MARQUEZ"
|
||||
Log("FECHA" & c.GetString("PC_FECHA"))
|
||||
cmd.Parameters = Array As Object(c.GetString("PC_CANT"), c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
|
||||
reqManager.ExecuteCommand(cmd, "update_PC")
|
||||
' Next
|
||||
End If
|
||||
c.Close
|
||||
End If
|
||||
|
||||
Next
|
||||
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
|
||||
enviarmonto
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "estatus2" 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
|
||||
passaquci
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "SelectMontoLiq" Then
|
||||
@@ -346,7 +466,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_Monto_Liq_MARQUEZrep"
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "PREVENTA", c.GetString("EML_FECHA_PED"))
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), f.GetString("RUTAA"), c.GetString("EML_USUARIO"), "REPARTO", c.GetString("EML_FECHA_PED"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_Mon_Liq")
|
||||
MsgboxAsync("Monto Enviado", "Atención")
|
||||
' Next
|
||||
@@ -360,7 +480,7 @@ Sub JobDone(Job As HttpJob)
|
||||
c.Position = 0
|
||||
cmd.Initialize
|
||||
cmd.Name = "update_MontoCuenta_MARQUEZrep"
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"),c.GetString("EML_FECHA_PED"),"PREVENTA")
|
||||
cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"),c.GetString("EML_FECHA_PED"),"REPARTO")
|
||||
|
||||
Log(c.GetString("EML_MONTO")& " " & c.GetString("EML_ALMACEN")& " " & c.GetString("EML_RUTA")& " " & c.GetString("EML_USUARIO"))
|
||||
reqManager.ExecuteCommand(cmd, "update_MC")
|
||||
@@ -510,6 +630,21 @@ Private Sub p_add_monto_Click
|
||||
End Sub
|
||||
|
||||
Private Sub B_Aceptar_Monto_Click
|
||||
Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
f.Position=0
|
||||
Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
a.Position = 0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_estatus_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(a.GetString("ID_ALMACEN"),f.GetString("RUTAA"))
|
||||
reqManager.ExecuteQuery(cmd , 0, "estatus")
|
||||
f.Close
|
||||
a.Close
|
||||
End Sub
|
||||
|
||||
Sub enviarmonto
|
||||
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
@@ -546,6 +681,7 @@ Private Sub B_Aceptar_Monto_Click
|
||||
f.Close
|
||||
a.Close
|
||||
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
@@ -574,8 +710,291 @@ Private Sub B_Aceptar_Monto_Click
|
||||
End If
|
||||
|
||||
p_add_monto.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub B_Can_Monto_Click
|
||||
p_add_monto.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub b_arqueocieego_Click
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM CAT_GUNAPROD3")
|
||||
If c.RowCount > 0 Then
|
||||
Subs.panelVisible(p_validacion,0,0)
|
||||
Else
|
||||
MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub et_buspc_TextChanged (Old As String, New As String)
|
||||
If New = "" Then
|
||||
CLV_PICK_CIEGO.Clear
|
||||
Else If New.Length >= 3 Then
|
||||
CLV_PICK_CIEGO.Clear
|
||||
|
||||
q_buscar = "%" & et_buspc.Text & "%"
|
||||
Log(q_buscar)
|
||||
c=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID , ifnull(PC_CANT,0) AS PC_CANT FROM CAT_GUNAPROD3 INNER JOIN PICK_CIEGO ON PC_ID_PROD = CAT_GP_ID AND PC_NOM_PROD = CAT_GP_NOMBRE WHERE (CAT_GP_NOMBRE LIKE ? OR CAT_GP_ID LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'"$, Array As String(q_buscar,q_buscar))
|
||||
If c.RowCount > 0 Then
|
||||
|
||||
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
CLV_PICK_CIEGO.Add(CreateListItem(c.GetString("CAT_GP_ID"), c.GetString("CAT_GP_NOMBRE"), c.GetString("PC_CANT")),i)
|
||||
' Log(c.GetString("CAT_GP_ID") & ", " & c.GetString("CAT_GP_NOMBRE") & " ," & c.GetString("PC_CANT"))
|
||||
Next
|
||||
c.Close
|
||||
|
||||
d=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE (CAT_GP_NOMBRE LIKE ? OR CAT_GP_ID LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'AND CAT_GP_ID NOT IN (SELECT PC_ID_PROD FROM PICK_CIEGO)"$, Array As String(q_buscar,q_buscar))
|
||||
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
|
||||
' Log(d.GetString("CAT_GP_ID") & ", " & d.GetString("CAT_GP_NOMBRE"))
|
||||
Next
|
||||
d.Close
|
||||
|
||||
Else If c.RowCount = 0 Then
|
||||
d=Starter.skmt.ExecQuery2($"select CAT_GP_NOMBRE, CAT_GP_ID FROM CAT_GUNAPROD3 WHERE (CAT_GP_NOMBRE LIKE ? OR CAT_GP_ID LIKE ? ) and CAT_GP_CLASIF <> 'PROMOS'"$, Array As String(q_buscar,q_buscar))
|
||||
|
||||
For i = 0 To d.RowCount - 1
|
||||
d.Position = i
|
||||
CLV_PICK_CIEGO.Add(CreateListItem2(d.GetString("CAT_GP_ID"), d.GetString("CAT_GP_NOMBRE")),i)
|
||||
' Log(d.GetString("CAT_GP_ID") & ", " & d.GetString("CAT_GP_NOMBRE"))
|
||||
Next
|
||||
d.Close
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub B_PC_ENV_Click
|
||||
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)
|
||||
|
||||
|
||||
For i = 0 To CLV_PICK_CIEGO.Size - 1
|
||||
' Retrieve the panel and child views for the current item
|
||||
Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i)
|
||||
Dim innerPanel As B4XView = itemPanel.GetView(0)
|
||||
Dim editText As B4XView = innerPanel.GetView(1)
|
||||
Dim inputText As String = editText.As(EditText).Text
|
||||
|
||||
' Check if the input text matches the regex pattern for zeros or if it's empty
|
||||
If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then
|
||||
inputText = "0"
|
||||
End If
|
||||
|
||||
' Retrieve and process the ID label
|
||||
Dim idLabel As B4XView = innerPanel.GetView(0)
|
||||
Dim idText As String = idLabel.As(Label).Text
|
||||
Dim idParts() As String = Regex.Split(CRLF, idText)
|
||||
' Log(idParts(1))
|
||||
f=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
f.Position=0
|
||||
Log(f.GetString("RUTAA"))
|
||||
a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
If a.RowCount>0 Then
|
||||
a.Position=0
|
||||
End If
|
||||
Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
|
||||
k.Position = 0
|
||||
Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA"))
|
||||
Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
|
||||
Dim fechatabulador3 As String = fechatabulador2(2)&"/"&fechatabulador2(1)&"/"&fechatabulador2(0)
|
||||
k.Close
|
||||
If inputText <> "" Then
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
|
||||
If c.RowCount = 0 Then
|
||||
' Insert data into the database
|
||||
Log(f.GetString("RUTAA"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime))
|
||||
|
||||
Else
|
||||
Log(f.GetString("RUTAA"))
|
||||
Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
|
||||
End If
|
||||
|
||||
End If
|
||||
f.Close
|
||||
a.Close
|
||||
Log("Processed item " & i)
|
||||
Next
|
||||
et_buspc.Text = ""
|
||||
CLV_PICK_CIEGO.Clear
|
||||
End Sub
|
||||
|
||||
Private Sub b_terpc_Click
|
||||
Msgbox2Async("Una vez enviada la información no podras hacer modificaciones","Atención","SI","", "",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
Msgbox2Async("Estas seguro de enviar la información?","Atención","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
|
||||
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)
|
||||
|
||||
For i = 0 To CLV_PICK_CIEGO.Size - 1
|
||||
' Retrieve the panel and child views for the current item
|
||||
Dim itemPanel As B4XView = CLV_PICK_CIEGO.GetPanel(i)
|
||||
Dim innerPanel As B4XView = itemPanel.GetView(0)
|
||||
Dim editText As B4XView = innerPanel.GetView(1)
|
||||
Dim inputText As String = editText.As(EditText).Text
|
||||
|
||||
' Check if the input text matches the regex pattern for zeros or if it's empty
|
||||
If Regex.IsMatch("^[0]+$", inputText) Or inputText = "" Then
|
||||
inputText = "0"
|
||||
End If
|
||||
|
||||
' Retrieve and process the ID label
|
||||
Dim idLabel As B4XView = innerPanel.GetView(0)
|
||||
Dim idText As String = idLabel.As(Label).Text
|
||||
Dim idParts() As String = Regex.Split(CRLF, idText)
|
||||
' Log(idParts(1))
|
||||
f=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
f.Position=0
|
||||
Log(f.GetString("RUTAA"))
|
||||
|
||||
a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
If a.RowCount>0 Then
|
||||
a.Position=0
|
||||
End If
|
||||
Log(a.GetString("ID_ALMACEN"))
|
||||
|
||||
Dim k As Cursor = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
|
||||
k.Position = 0
|
||||
Dim fechatabulador() As String = Regex.Split(" ", k.GetString("HVD_FECHA"))
|
||||
Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
|
||||
Dim fechatabulador3 As String = fechatabulador2(2)&"/"&fechatabulador2(1)&"/"&fechatabulador2(0)
|
||||
k.Close
|
||||
If inputText <> "" Then
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
|
||||
If c.RowCount = 0 Then
|
||||
' Insert data into the database
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("RUTAA"), fechatabulador3&" "&sTime))
|
||||
Else
|
||||
Starter.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ? WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
|
||||
End If
|
||||
End If
|
||||
f.Close
|
||||
a.Close
|
||||
Log("Processed item " & i)
|
||||
Next
|
||||
Log("Finished processing all items")
|
||||
P_CIEGO.Visible = False
|
||||
et_buspc.Text = ""
|
||||
CLV_PICK_CIEGO.Clear
|
||||
c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_HIST_PICKCIEGO_MARQUEZ" '
|
||||
cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"),"REPARTO")
|
||||
reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$)
|
||||
Next
|
||||
End If
|
||||
c.close
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub P_CIEGO_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_aceptar_Click
|
||||
Private f As Cursor=Starter.skmt.ExecQuery("select RUTAA from RUTAA")
|
||||
f.Position=0
|
||||
Private a As Cursor =Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
a.Position = 0
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_estatus_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(a.GetString("ID_ALMACEN"),f.GetString("RUTAA"))
|
||||
reqManager.ExecuteQuery(cmd , 0, "estatus2")
|
||||
f.Close
|
||||
a.Close
|
||||
' p_validacion.Visible = False
|
||||
' et_codigo.Text = ""
|
||||
'
|
||||
' Subs.panelVisible(P_CIEGO,0,0)
|
||||
End Sub
|
||||
|
||||
Sub passaquci
|
||||
f=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
|
||||
f.Position=0
|
||||
|
||||
a=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
If a.RowCount>0 Then
|
||||
a.Position=0
|
||||
End If
|
||||
Log(a.GetString("ID_ALMACEN"))
|
||||
Log(f.GetString("CAT_CL_RUTA"))
|
||||
|
||||
If et_codigo.Text = "KMTS1" Then
|
||||
p_validacion.Visible = False
|
||||
et_codigo.Text = ""
|
||||
Subs.panelVisible(P_CIEGO,0,0)
|
||||
Else
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_CAT_PASS_ARQUEO_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(f.GetString("CAT_CL_RUTA"),a.GetString("ID_ALMACEN"),"REPARTO")
|
||||
reqManager.ExecuteQuery(cmd , 0, "contrasena")
|
||||
f.Close
|
||||
a.Close
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_cancelarcodigo_Click
|
||||
p_validacion.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub p_validacion_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Sub CreateListItem(Id_prod As String, Prod As String,cant As String) As Panel
|
||||
Dim pa As B4XView = xui.CreatePanel("")
|
||||
pa.SetLayoutAnimated(0, 0, 0, 1, 10)
|
||||
pa.LoadLayout("PANEL_PICK_CIEGO")
|
||||
pa.Height = 55dip
|
||||
pa.Width = 298dip
|
||||
'pa.Width = clv_orden.GetBase.Width
|
||||
L_PICK_CIEGO.Text = Id_prod & CRLF & Prod
|
||||
L_PICK_CIEGO.TextSize = 12
|
||||
L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
|
||||
ET_PICK_CIEGO.Text = cant
|
||||
'cxc.Id_prod = mostrar3
|
||||
'Log(pa.Width)
|
||||
Return pa
|
||||
End Sub
|
||||
|
||||
Sub CreateListItem2(Id_prod As String, Prod As String) As Panel
|
||||
Dim pa As B4XView = xui.CreatePanel("")
|
||||
pa.SetLayoutAnimated(0, 0, 0, 1, 10)
|
||||
pa.LoadLayout("PANEL_PICK_CIEGO")
|
||||
pa.Height = 55dip
|
||||
pa.Width = 298dip
|
||||
'pa.Width = clv_orden.GetBase.Width
|
||||
L_PICK_CIEGO.Text = Id_prod & CRLF & Prod
|
||||
L_PICK_CIEGO.TextSize = 12
|
||||
L_PICK_CIEGO.Gravity = Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
|
||||
'cxc.Id_prod = mostrar3
|
||||
'Log(pa.Width)
|
||||
Return pa
|
||||
End Sub
|
||||
|
||||
Private Sub ImageView1_LongClick
|
||||
|
||||
End Sub
|
||||
@@ -20,7 +20,7 @@ Sub Class_Globals
|
||||
Dim TAMANO As Int
|
||||
Dim ESPACIO As Int
|
||||
Dim BLANCO As String
|
||||
|
||||
Dim impresoraConectada As Boolean = False
|
||||
Dim LONGITUD As String
|
||||
Dim LATITUD As String
|
||||
Dim NOMBRE As String
|
||||
@@ -48,7 +48,7 @@ Sub Class_Globals
|
||||
Dim Tar As Button
|
||||
Private L_QR As Label
|
||||
Private BT_QR As Button
|
||||
|
||||
Dim Printer1 As EscPosPrinter
|
||||
Dim la_comm As Label
|
||||
Dim la_actdte As Label
|
||||
Dim la_usuario As Label
|
||||
@@ -69,6 +69,13 @@ Sub Class_Globals
|
||||
Private p_principal As Panel
|
||||
Private B_PASO2 As Button
|
||||
Private L_CANT As Label
|
||||
Dim errorImpresora As Int = 0
|
||||
Dim banderaimp As Int
|
||||
Private l_credi As Label
|
||||
Private l_pagare As Label
|
||||
Private l_montopag As Label
|
||||
Private l_efectivo As Label
|
||||
Private l_montoefec As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -117,6 +124,7 @@ End Sub
|
||||
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
|
||||
|
||||
Sub B4XPage_Appear
|
||||
banderaimp = 0
|
||||
Subs.centraPanel(p_principal, Root.Width)
|
||||
Starter.skmt.Initialize(Starter.ruta,"kmt.db", True)
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.SERVER)
|
||||
@@ -155,26 +163,32 @@ Sub B4XPage_Appear
|
||||
L_CANT.Text = cym.Get("cantidad")
|
||||
l_total.Text = Round2(cym.Get("monto"), 2)
|
||||
|
||||
If CREDITO = "1" Then
|
||||
Msgbox("AVISO","SE TIENE QUE IMPRIMIR PAGARÉ") 'ignore
|
||||
End If
|
||||
' If CREDITO = "1" Then
|
||||
' Msgbox("AVISO","SE TIENE QUE IMPRIMIR PAGARÉ") 'ignore
|
||||
' End If
|
||||
' Private cym As Map = Subs.traemosCantYMonto(clv_pedido)
|
||||
' L_CANT.Text = cym.Get("cantidad")
|
||||
' l_total.Text = cym.Get("monto")
|
||||
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, 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 in (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("UPDATE HIST_VENTAS set ESPROMO = 1 where HVD_CODPROMO = HVD_PROID AND HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID,HVD_COSTO_TOT, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT from HIST_VENTAS where BCAJAS = 0 and HVD_CODPROMO ='${Subs.traealmacen}' and HVD_CLIENTE in (select cuenta from cuentaa)"$)
|
||||
|
||||
Private cuenta As String = 0
|
||||
Private cuenta0 As String = 0
|
||||
Private arti As String = 0
|
||||
If vc.RowCount > 0 Then
|
||||
For i = 0 To vc.RowCount - 1
|
||||
vc.Position = i
|
||||
Log(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")))
|
||||
|
||||
|
||||
|
||||
' Log(vc.GetString("HVD_CANT")&","&vc.GetString("HVD_RECHAZOCANT"))
|
||||
arti = arti + (vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT"))
|
||||
cuenta = cuenta + ((vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT"))*vc.GetString("CAT_GP_PRECIO"))
|
||||
' Log(vc.GetString("HVD_CANT") &" - "& vc.GetString("HVD_RECHAZOCANT")&" * "& vc8.GetString("CAT_GP_PRECIO"))
|
||||
Next
|
||||
End If
|
||||
Log(cuenta)
|
||||
' 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 in (select cuenta from cuentaa) AND BCAJAS = 1")
|
||||
Private Cuenta1 As String = 0
|
||||
@@ -191,9 +205,9 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Log(Cuenta1)
|
||||
' 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 in (select cuenta from cuentaa) AND BCAJAS = 0 and HVD_CODPROMO <> '${Subs.traeAlmacen}'"$)
|
||||
Private vc4 As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID,HVD_PRONOMBRE,HVD_COSTO_TOT, HVD_CANT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT, CANTC,HVD_COSTO_TOT, HVD_RECHAZO, HVD_CODPROMO from HIST_VENTAS where HVD_CLIENTE in (select cuenta from cuentaa) AND BCAJAS = 0 and HVD_CODPROMO <> '${Subs.traeAlmacen}'"$)
|
||||
Private Cuenta2 As String = 0
|
||||
Private arti2 As String = 0
|
||||
If vc4.RowCount > 0 Then
|
||||
@@ -202,14 +216,14 @@ Sub B4XPage_Appear
|
||||
vc4.Position = i
|
||||
If vc4.GetString("HVD_PROID") <> vc4.GetString("HVD_CODPROMO") Then
|
||||
If vc4.GetString("HVD_RECHAZO") = 0 Then
|
||||
Cuenta2 = vc4.GetString("HVD_COSTO_TOT")
|
||||
arti2 = vc4.GetString("HVD_CANT")
|
||||
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"))
|
||||
' Log(vc5.GetString("CAT_GP_PRECIO"))
|
||||
Cuenta2 = Cuenta2 +((vc4.GetString("HVD_CANT")- vc4.GetString("HVD_RECHAZOCANT"))*(vc4.GetString("HVD_COSTO_TOT")/vc4.GetString("HVD_CANT")))
|
||||
arti2 = arti2 +(vc4.GetString("HVD_CANT")- vc4.GetString("HVD_RECHAZOCANT"))
|
||||
End If
|
||||
End If
|
||||
@@ -217,7 +231,7 @@ Sub B4XPage_Appear
|
||||
|
||||
Next
|
||||
End If
|
||||
Log(cuenta)
|
||||
' 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 IN (SELECT CUENTA FROM CUENTAA)"$)
|
||||
Private Cuenta3 As String = 0
|
||||
@@ -229,14 +243,60 @@ Sub B4XPage_Appear
|
||||
Cuenta3 = Cuenta3 + c4.GetString("PE_COSTO_TOT")
|
||||
Next
|
||||
End If
|
||||
|
||||
Log(cuenta0)
|
||||
Log(Cuenta1)
|
||||
Log(Cuenta2)
|
||||
Log(Cuenta3)
|
||||
|
||||
l_total.Text = cuenta + Cuenta1 + Cuenta2 + Cuenta3
|
||||
L_CANT.Text = arti + arti1 +arti2 + arti3
|
||||
l_total.Text = NumberFormat2((cuenta0 + Cuenta1 + Cuenta2 + Cuenta3),0,2,2,True)
|
||||
L_CANT.Text = NumberFormat2((arti + arti1 +arti2 + arti3),0,0,0,True)
|
||||
|
||||
' l_total.Text = cuenta + Cuenta1 + Cuenta2
|
||||
' L_CANT.Text = arti + arti1 +arti2
|
||||
|
||||
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Starter.MAC_IMPRESORA = c.GetString("CAT_VA_VALOR")
|
||||
End If
|
||||
If Starter.MAC_IMPRESORA = "" Then Starter.MAC_IMPRESORA = "0"
|
||||
' Log("|" & Starter.MAC_IMPRESORA & "|")
|
||||
Printer1.Initialize(Me, "Printer1")
|
||||
|
||||
If Printer1.IsConnected = False Then
|
||||
' Printer1.Connect
|
||||
' Log("1")
|
||||
Else
|
||||
Printer1.DisConnect
|
||||
Printer1.Connect
|
||||
Log("2")
|
||||
End If
|
||||
|
||||
Dim pag As Cursor = Starter.skmt.ExecQuery("select * FROM PAGARES WHERE TMP_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If pag.RowCount > 0 Then
|
||||
pag.Position = 0
|
||||
l_credi.Visible = True
|
||||
l_pagare.Visible = True
|
||||
l_montoefec.Visible = True
|
||||
l_efectivo.Visible = True
|
||||
l_montopag.Visible = True
|
||||
l_montopag.Text = pag.GetString("TMP_MONTO_PAGARE")
|
||||
Dim PAGAREMONTO As Float = cuenta0 + Cuenta1 + Cuenta2 + Cuenta3
|
||||
Dim PAGAREMONTO2 As Float = pag.GetString("TMP_MONTO_PAGARE")
|
||||
' Log
|
||||
If PAGAREMONTO - PAGAREMONTO2 < 0 Then
|
||||
l_montoefec.Text = 0
|
||||
Else
|
||||
l_montoefec.Text = PAGAREMONTO - PAGAREMONTO2
|
||||
End If
|
||||
Else If pag.RowCount = 0 Then
|
||||
l_credi.Visible = False
|
||||
l_pagare.Visible = False
|
||||
l_montoefec.Visible = False
|
||||
l_efectivo.Visible = False
|
||||
l_montopag.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Activity_Pause (UserClosed As Boolean)
|
||||
@@ -259,6 +319,11 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
End Sub
|
||||
|
||||
Sub gest_Click
|
||||
B_IMP_Click
|
||||
banderaimp = 1
|
||||
End Sub
|
||||
|
||||
Sub Guardado
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
@@ -285,7 +350,7 @@ Sub gest_Click
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate &" "& sTime, usuario, "ENTREGA","ENTREGA COMPLETA", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,0)",Array As String (la_cuenta.Text, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, "ENTREGADO"))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa) ")
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 2, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa) "$)
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_ESTATUS = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
mandaPendientesreparto
|
||||
B4XPages.ShowPage("Principal")
|
||||
@@ -330,127 +395,439 @@ Sub HIST_Click
|
||||
End Sub
|
||||
|
||||
Sub B_IMP_Click
|
||||
' c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
' c.Position=0
|
||||
' usuario = c.GetString("USUARIO")
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
' sDate=DateTime.Date(DateTime.Now)
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' CREDITO ="1"
|
||||
' If CREDITO = "1" Then
|
||||
' DateTime.DateFormat = "MM/dd/yyyy"
|
||||
' sDate=DateTime.Date(DateTime.Now)
|
||||
' sTime=DateTime.Time(DateTime.Now)
|
||||
' printer.Initialize(cmp20.OutputStream)
|
||||
' printer.WriteLine("DBC.")
|
||||
' printer.WriteLine("RFC: ")
|
||||
' printer.WriteLine(sDate)
|
||||
' printer.WriteLine(sTime)
|
||||
' printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
' s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
' s.Position=0
|
||||
' printer.WriteLine("Debo (emos) y pagare (mos) incondicionamelte a la orden de DBC a la cantidad de $" & s.GetString("PC_MONTO") & " PESOS _______________________________________________________________________________________________________________ ")
|
||||
' printer.WriteLine("en esta ciudad o en cualquier otra que se requiera de pago, valor recibido a mi entera satisfaccion y que me obligo a cumplir el dia______________________.")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine("Si este pagare no fuera cubiertoa su vencimiento Me (nos) obligo (amos) a pagar intereses moratorios a razon de 3 % mensual")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.WriteLine("------------------------------")
|
||||
' printer.WriteLine(" NOMBRE Y FIRMA ")
|
||||
' printer.WriteLine("------------------------------")
|
||||
' printer.WriteLine(" ")
|
||||
' printer.Flush
|
||||
' End If
|
||||
|
||||
' printer.Initialize(cmp20.OutputStream)
|
||||
' printer.WriteLine("PROFINA")
|
||||
' printer.WriteLine("RFC: ")
|
||||
' printer.WriteLine("Tel.:")
|
||||
' printer.WriteLine(sDate)
|
||||
' printer.WriteLine(sTime)
|
||||
' printer.WriteLine("Vendedor:" & usuario)
|
||||
' printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
' s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
' s.Position=0
|
||||
' c=Starter.skmt.ExecQuery("select SUM(PE_CANT) AS PE_CANT, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
' C.Position=0
|
||||
'
|
||||
' printer.WriteLine("Total : $" & (s.GetString("PC_MONTO") + c.GetString("PE_COSTO_TOT")))
|
||||
' s.Close
|
||||
' printer.WriteLine("-----------ENTREGA------------")
|
||||
' S=Starter.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,length(HVD_cant) as L_CANT,HVD_COSTO_TOT,length(HVD_COSTO_TOT) as L_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) ")
|
||||
'
|
||||
' 's=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
' If S.RowCount>0 Then
|
||||
' For i=0 To S.RowCount -1
|
||||
' S.Position=i
|
||||
' 'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' ' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
'
|
||||
' 'Else
|
||||
'
|
||||
' printer.WriteLine(s.GetString("HVD_CANT") & " " & s.GetString("HVD_PRONOMBRE"))
|
||||
' TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
' 'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
'
|
||||
' ESPACIO = ESPACIO - TAMANO
|
||||
'
|
||||
' For E=0 To ESPACIO -1
|
||||
' BLANCO = " " & BLANCO
|
||||
' Next
|
||||
' printer.WriteLine("$" & s.GETSTRING("HVD_COSTO_TOT") )
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' 'End If
|
||||
' Next
|
||||
' End If
|
||||
' s.Close
|
||||
'
|
||||
' s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
' If S.RowCount>0 Then
|
||||
' For i=0 To S.RowCount -1
|
||||
' S.Position=i
|
||||
' 'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' ' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
'
|
||||
' 'Else
|
||||
'
|
||||
' printer.WriteLine(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE"))
|
||||
' TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
' 'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
' TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
'
|
||||
' ESPACIO = ESPACIO - TAMANO
|
||||
'
|
||||
' For E=0 To ESPACIO -1
|
||||
' BLANCO = " " & BLANCO
|
||||
' Next
|
||||
' printer.WriteLine("$" & s.GETSTRING("PE_COSTO_TOT") )
|
||||
' TAMANO = 0
|
||||
' ESPACIO = 21
|
||||
' BLANCO = " "
|
||||
' 'End If
|
||||
' Next
|
||||
' End If
|
||||
' s.Close
|
||||
' printer.WriteLine("------------------------------")
|
||||
' printer.WriteLine("---NO ES UN COMPROBANTE ------")
|
||||
' printer.WriteLine("---------FISCAL---------------")
|
||||
' printer.WriteLine("---COMPROBANTE DE ENTREGA-----")
|
||||
' printer.WriteLine("------------------------------")
|
||||
'
|
||||
' printer.Flush
|
||||
' printer.Close
|
||||
|
||||
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c.Close
|
||||
' c=Starter.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As String ("SUCURSAL"))
|
||||
' c.Position = 0
|
||||
' sucursal = c.GetString("CAT_VA_VALOR")
|
||||
' c.Close
|
||||
|
||||
ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
Printer1.DisConnect
|
||||
If Not(Printer1.IsConnected) Then
|
||||
' Log("Conectando a impresora ...")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada)
|
||||
Sleep(1000)
|
||||
' Log("++++++ " & cont)
|
||||
cont = cont + 1
|
||||
If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
|
||||
If cont > 3 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
Else
|
||||
' Log("conectando 2")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
||||
Sleep(1000)
|
||||
' Log("****** " & cont)
|
||||
cont = cont + 1
|
||||
If cont = 2 Then Printer1.Connect
|
||||
If cont > 3 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
End If
|
||||
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
ESPACIO = 28
|
||||
BLANCO = " "
|
||||
CREDITO ="1"
|
||||
If CREDITO = "1" Then
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
printer.Initialize(cmp20.OutputStream)
|
||||
printer.WriteLine("DBC.")
|
||||
printer.WriteLine("RFC: ")
|
||||
printer.WriteLine(sDate)
|
||||
printer.WriteLine(sTime)
|
||||
printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
printer.WriteLine("Debo (emos) y pagare (mos) incondicionamelte a la orden de DBC a la cantidad de $" & s.GetString("PC_MONTO") & " PESOS _______________________________________________________________________________________________________________ ")
|
||||
printer.WriteLine("en esta ciudad o en cualquier otra que se requiera de pago, valor recibido a mi entera satisfaccion y que me obligo a cumplir el dia______________________.")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine("Si este pagare no fuera cubiertoa su vencimiento Me (nos) obligo (amos) a pagar intereses moratorios a razon de 3 % mensual")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine(" ")
|
||||
printer.WriteLine("------------------------------")
|
||||
printer.WriteLine(" NOMBRE Y FIRMA ")
|
||||
printer.WriteLine("------------------------------")
|
||||
printer.WriteLine(" ")
|
||||
printer.Flush
|
||||
End If
|
||||
|
||||
printer.Initialize(cmp20.OutputStream)
|
||||
printer.WriteLine("PROFINA")
|
||||
printer.WriteLine("RFC: ")
|
||||
printer.WriteLine("Tel.:")
|
||||
printer.WriteLine(sDate)
|
||||
printer.WriteLine(sTime)
|
||||
printer.WriteLine("Vendedor:" & usuario)
|
||||
printer.WriteLine("Tienda: " & La_nombre.Text)
|
||||
s=Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
c=Starter.skmt.ExecQuery("select SUM(PE_CANT) AS PE_CANT, SUM(PE_COSTO_TOT) AS PE_COSTO_TOT FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
C.Position=0
|
||||
' Dim bmp As Bitmap
|
||||
' bmp.InitializeResize(File.DirAssets, "mariana.jpg", 192, 250, True) 'ignore
|
||||
' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
|
||||
printer.WriteLine("Total : $" & (s.GetString("PC_MONTO") + c.GetString("PE_COSTO_TOT")))
|
||||
s.Close
|
||||
printer.WriteLine("-----------ENTREGA------------")
|
||||
S=Starter.skmt.ExecQuery("select HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,length(HVD_cant) as L_CANT,HVD_COSTO_TOT,length(HVD_COSTO_TOT) as L_COSTO_TOT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) ")
|
||||
' myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
'
|
||||
' myimage= Printer1.PackImage(myimage)
|
||||
' Printer1.WriteString(CRLF) ' nudge the Printer1 to show the user something is happening
|
||||
' Printer1.WriteString(Printer1.REVERSE)
|
||||
'
|
||||
' Printer1.PrintImage(myimage)
|
||||
' Printer1.WriteString(Printer1.UNREVERSE)
|
||||
|
||||
' Printer1.Justify = 1
|
||||
'Printer1.Initialize(cmp20.OutputStream)
|
||||
' Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" & CRLF)
|
||||
Printer1.WriteString("Marquez Distribuciones" & CRLF)
|
||||
' Printer1.WriteString(sucursal & CRLF)
|
||||
Printer1.WriteString(sDate & CRLF)
|
||||
Printer1.WriteString(sTime & CRLF)
|
||||
Printer1.WriteString("Vendedor:" & usuario & CRLF)
|
||||
Printer1.WriteString("Tienda: " & La_nombre.Text & CRLF)
|
||||
Printer1.WriteString("ID.Cliente: " & la_cuenta.Text & CRLF)
|
||||
Printer1.WriteString("Calle: " & la_Calle.Text & CRLF)
|
||||
Printer1.WriteString("Colonia: " & la_col.Text & CRLF)
|
||||
' Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
||||
' Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
' Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
Printer1.WriteString("------------ENTREGA-----------" & CRLF)
|
||||
|
||||
' Printer1.WriteString("--------------------------------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
|
||||
s=Starter.skmt.ExecQuery($"select HVD_PRONOMBRE, HVD_CANT, length(HVD_CANT) as L_CANT, HVD_COSTO_TOT, length(HVD_COSTO_TOT) as L_COSTOU,HVD_PROID, HVD_CODPROMO,IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_RECHAZO FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PROID"$)
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
Log(s.GetString("HVD_RECHAZO"))
|
||||
If s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") > 0 Then
|
||||
|
||||
|
||||
If s.GetString("HVD_CODPROMO") = Subs.traeAlmacen Then
|
||||
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
|
||||
|
||||
Dim punit As String = NumberFormat2((s.GETSTRING("HVD_COSTO_TOT")/s.GetString("HVD_CANT")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
|
||||
' Private ptot As String = NumberFormat2((punit*s.GetString("HVD_CANT")),0,2,2,False)
|
||||
Private ptot As String = NumberFormat2(( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT")) * punit ),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
' Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT"))& BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString( ptot & CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
|
||||
Else If s.GetString("HVD_RECHAZO") = 1 Then
|
||||
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
|
||||
Private vc5 As Cursor = Starter.skmt.ExecQuery($"select iFNULL(CAT_GP_PRECIO,0) AS CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${s.GetString("HVD_PROID")}'"$)
|
||||
vc5.Position = 0
|
||||
Dim punit As String = NumberFormat2((vc5.GetString("CAT_GP_PRECIO")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
vc5.Close
|
||||
|
||||
Private ptot As String = NumberFormat2(( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT")) * punit ),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
' Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT"))& BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString(ptot& CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
Printer1.Justify = 0
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Printer1.Justify = 0
|
||||
s.Close
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
s=Starter.skmt.ExecQuery($"select HVD_PRONOMBRE, HVD_CANT, length(HVD_CANT) as L_CANT, HVD_COSTO_TOT, length(HVD_COSTO_TOT) as L_COSTOU,HVD_PROID, HVD_CODPROMO,IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) AND HVD_RECHAZO = 0 AND HVD_CODPROMO <> '${Subs.traeAlmacen}' order by HVD_CODPROMO, ESPROMO DESC, HVD_PROID"$)
|
||||
|
||||
's=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("-------PROMOS ENTREGA--------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
If s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT") > 0 Then
|
||||
|
||||
'Else
|
||||
|
||||
If s.GetString("HVD_CODPROMO") <> Subs.traeAlmacen Then
|
||||
|
||||
Printer1.Justify = 0
|
||||
If s.GetString("HVD_CODPROMO") = s.GetString("HVD_PROID") Then
|
||||
Printer1.WriteString("* "&s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
Else
|
||||
Printer1.WriteString(s.GetString("HVD_PRONOMBRE") & CRLF)
|
||||
End If
|
||||
|
||||
|
||||
Dim punit As String =NumberFormat2((s.GETSTRING("HVD_COSTO_TOT")/s.GetString("HVD_CANT")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
|
||||
|
||||
Private ptot As String = NumberFormat2((punit*s.GetString("HVD_CANT")),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
printer.WriteLine(s.GetString("HVD_CANT") & " " & s.GetString("HVD_PRONOMBRE"))
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( (s.GetString("HVD_CANT") - s.GetString("HVD_RECHAZOCANT"))& BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString(ptot & CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
Printer1.Justify = 0
|
||||
Else
|
||||
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
s=Starter.skmt.ExecQuery($"select PE_PRONOMBRE, PE_CANT, length(PE_CANT) as L_CANT, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTOU,PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) order BY PE_PROID"$)
|
||||
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("-----------VENTA------------" & CRLF)
|
||||
Printer1.WriteString("Cant. Precio Importe" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString(s.GetString("PE_PRONOMBRE") & CRLF)
|
||||
|
||||
|
||||
Dim punit As String =NumberFormat2( (s.GETSTRING("PE_COSTO_TOT")/s.GetString("PE_CANT")),0,2,2,False)
|
||||
TAMANO = punit.Length + TAMANO
|
||||
|
||||
Private ptot As String = NumberFormat2((punit*s.GetString("PE_CANT")),0,2,2,False)
|
||||
TAMANO = ptot.Length + TAMANO
|
||||
|
||||
|
||||
ESPACIO = (ESPACIO - TAMANO)/2
|
||||
Log(ESPACIO)
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
printer.WriteLine("$" & s.GETSTRING("HVD_COSTO_TOT") )
|
||||
Printer1.Justify = 0
|
||||
Printer1.WriteString( s.GetString("PE_CANT") & BLANCO)
|
||||
Printer1.Justify = 1
|
||||
Printer1.WriteString( punit & BLANCO)
|
||||
Printer1.Justify = 2
|
||||
Printer1.WriteString(ptot & CRLF )
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
ESPACIO = 29
|
||||
BLANCO = " "
|
||||
'End If
|
||||
Printer1.Justify = 0
|
||||
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
If S.RowCount>0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
S.Position=i
|
||||
'If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
|
||||
' printer.WriteLine(s.GetString("PE_PRONOMBRE"))
|
||||
|
||||
'Else
|
||||
|
||||
printer.WriteLine(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE"))
|
||||
TAMANO = s.GetLong("L_CANT") + TAMANO
|
||||
'TAMANO = s.GetLong("L_COSTOU") + TAMANO
|
||||
TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
|
||||
|
||||
Printer1.WriteString("Total Articulos: " & L_CANT.Text & CRLF)
|
||||
Printer1.WriteString("Total: $" & l_total.Text)
|
||||
|
||||
|
||||
ESPACIO = ESPACIO - TAMANO
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
' Printer1.WriteString("ENTREGA EN :" & CRLF)
|
||||
' Printer1.WriteString(la_Calle.Text & CRLF)
|
||||
Printer1.WriteString("----ESTE TICKET NO ES UN -----" & CRLF)
|
||||
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
||||
Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
|
||||
For E=0 To ESPACIO -1
|
||||
BLANCO = " " & BLANCO
|
||||
Next
|
||||
printer.WriteLine("$" & s.GETSTRING("PE_COSTO_TOT") )
|
||||
TAMANO = 0
|
||||
ESPACIO = 21
|
||||
BLANCO = " "
|
||||
'End If
|
||||
Next
|
||||
ProgressDialogHide
|
||||
|
||||
If banderaimp = 1 Then
|
||||
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
B_IMP_Click
|
||||
Else
|
||||
Guardado
|
||||
End If
|
||||
|
||||
' printer.Flush
|
||||
' printer.Close
|
||||
Else If banderaimp = 0 Then
|
||||
Msgbox2Async("Deseas imprimir de nuevo el ticket?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
B_IMP_Click
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Printer1_Connected (Success As Boolean)
|
||||
' If Logger Then Log("Printer1_Connected")
|
||||
If Success Then
|
||||
ToastMessageShow("Impresora conectada", False)
|
||||
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP",Starter.mac_impresora))
|
||||
LogColor("Impresora conectada", Colors.Green)
|
||||
' B_IMP2.Enabled = True
|
||||
impresoraConectada = True
|
||||
Else
|
||||
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") 'ignore
|
||||
' ToastMessageShow("Error conectando la impresora", False)
|
||||
LogColor("Error conectando la impresora", Colors.Red)
|
||||
errorImpresora = errorImpresora + 1
|
||||
If errorImpresora > 1 Then
|
||||
Starter.MAC_IMPRESORA = "0"
|
||||
errorImpresora = 0
|
||||
End If
|
||||
End If
|
||||
s.Close
|
||||
printer.WriteLine("------------------------------")
|
||||
printer.WriteLine("---NO ES UN COMPROBANTE ------")
|
||||
printer.WriteLine("---------FISCAL---------------")
|
||||
printer.WriteLine("---COMPROBANTE DE ENTREGA-----")
|
||||
printer.WriteLine("------------------------------")
|
||||
|
||||
printer.Flush
|
||||
' printer.Close
|
||||
End Sub
|
||||
|
||||
Sub Printer_Connected (Success As Boolean)
|
||||
|
||||
@@ -83,7 +83,7 @@ Sub B4XPage_Appear
|
||||
Existe = C.GetString("EXISTE")
|
||||
C.Close
|
||||
' c=Starter.skmt.ExecQuery("select distinct hist_ventas.hvd_num_registro, HIST_VENTAS.HVD_CLIENTE, HIST_VENTAS.HVD_PRONOMBRE, HIST_VENTAS.HVD_PROID, HIST_VENTAS.HVD_CANT, HIST_VENTAS2.HVD_CANT as HVD_CANT2, HIST_VENTAS.HVD_COSTO_TOT, HIST_VENTAS.HVD_CODPROMO from HIST_VENTAS inner join HIST_VENTAS2 on HIST_VENTAS.HVD_PROID = HIST_VENTAS2.HVD_PROID and HIST_VENTAS.HVD_CLIENTE = HIST_VENTAS2.HVD_CLIENTE WHERE HIST_VENTAS.HVD_CLIENTE IN (Select CUENTA from cuentaa) and HIST_VENTAS.HVD_RECHAZO = 0 order by HIST_VENTAS.HVD_CODPROMO desc, HIST_VENTAS.HVD_PRONOMBRE asc")
|
||||
c=Starter.skmt.ExecQuery("select hvd_num_registro, HVD_CLIENTE, HVD_PRONOMBRE, HVD_PROID, HVD_CANT, HVD_COSTO_TOT, HVD_CODPROMO, BCAJAS, CANTC, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) and hvd_rechazo <> 2 and hvd_cant > 0 order by HVD_CODPROMO desc, HVD_PRONOMBRE asc")
|
||||
c=Starter.skmt.ExecQuery("select hvd_num_registro,CONSECUTIVO, HVD_CLIENTE, HVD_PRONOMBRE, HVD_PROID, HVD_CANT, HVD_COSTO_TOT, HVD_CODPROMO, BCAJAS, CANTC, IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) and hvd_rechazo <> 2 and hvd_cant > 0 order by HVD_CODPROMO desc, HVD_PRONOMBRE asc")
|
||||
ListView1.Clear
|
||||
clv_pedido.Clear
|
||||
Subs.SetDivider(ListView1, Colors.LightGray, 2)
|
||||
@@ -96,7 +96,7 @@ Sub B4XPage_Appear
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
|
||||
Private c4 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_CANT,0) AS PE_CANT FROM PEDIDO WHERE PE_PROID = '${c.GetString("HVD_PROID")}' AND PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA)"$)
|
||||
Private c4 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(PE_CANT,0) AS PE_CANT FROM PEDIDO WHERE PE_PROID = '${c.GetString("HVD_PROID")}' AND PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA) AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$)
|
||||
If c4.RowCount > 0 Then
|
||||
c4.Position = 0
|
||||
Private cantres As Int = c4.GetString("PE_CANT")
|
||||
@@ -131,7 +131,7 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
' Log($"Agregamos prod a lista1 | ${c.GetString("HVD_CANT")} - ${c.GetString("HVD_CANT2")}"$) 'HVD_CANT2 es la original de la orden.
|
||||
' ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT"))
|
||||
clv_pedido.Add(CreateListItem(c.GetString("HVD_PRONOMBRE"), Subs.traePrecio(c.GetString("HVD_PROID"), c.GetString("HVD_CODPROMO")), (c.GetString("HVD_CANT") - c.GetString("HVD_RECHAZOCANT")-cantres), c.GetString("HVD_RECHAZOCANT") , clv_pedido.AsView.Width, 118dip, bmp, c.GetString("HVD_PROID"), bgColor, textColor, c.GetString("HVD_CODPROMO"),Subs.traeCliente,Subs.traeCliente),i)
|
||||
clv_pedido.Add(CreateListItem(c.GetString("HVD_PRONOMBRE"), Subs.traePrecio2(c.GetString("HVD_PROID"), c.GetString("HVD_CODPROMO"),c.GetString("CONSECUTIVO")), (c.GetString("HVD_CANT") - c.GetString("HVD_RECHAZOCANT")-cantres), c.GetString("HVD_RECHAZOCANT") , clv_pedido.AsView.Width, 118dip, bmp, c.GetString("HVD_PROID"), bgColor, textColor, c.GetString("HVD_CODPROMO"),Subs.traeCliente,Subs.traeCliente,0,c.GetString("CONSECUTIVO")),i)
|
||||
' Log(c.GetString("HVD_CODPROMO"))
|
||||
End If
|
||||
Else If c.GetString("BCAJAS") = "1" Then
|
||||
@@ -161,7 +161,7 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
' Log($"Agregamos prod a lista1 | ${c.GetString("HVD_CANT")} - ${c.GetString("HVD_CANT2")}"$) 'HVD_CANT2 es la original de la orden.
|
||||
' ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE"),"Cantidad #"& c.GetString("HVD_CANT")& " SubTotal $"& c.GetString("HVD_COSTO_TOT"))
|
||||
clv_pedido.Add(CreateListItem2(c.GetString("HVD_PRONOMBRE"), Subs.traePrecio(c.GetString("HVD_PROID"), c.GetString("HVD_CODPROMO")), ((c.GetString("HVD_CANT") - c.GetString("HVD_RECHAZOCANT"))), c.GetString("HVD_RECHAZOCANT"), clv_pedido.AsView.Width, 118dip, bmp, c.GetString("HVD_PROID"), bgColor, textColor, c.GetString("HVD_CODPROMO"),Subs.traeCliente,Subs.traeCliente),i)
|
||||
clv_pedido.Add(CreateListItem2(c.GetString("HVD_PRONOMBRE"), (c.GetString("HVD_COSTO_TOT")/c.GetString("CANTC")), ((c.GetString("HVD_CANT") - c.GetString("HVD_RECHAZOCANT"))), c.GetString("HVD_RECHAZOCANT"), clv_pedido.AsView.Width, 118dip, bmp, c.GetString("HVD_PROID"), bgColor, textColor, c.GetString("HVD_CODPROMO"),Subs.traeCliente,Subs.traeCliente,0,c.GetString("CONSECUTIVO")),i)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
@@ -174,15 +174,23 @@ Sub B4XPage_Appear
|
||||
For i= 0 To c3.RowCount -1
|
||||
c3.Position = i
|
||||
If c3.GetString("PE_BCAJAS") = "1" Then
|
||||
clv_pedido.Add(CreateListItem2(c3.GetString("PE_PRONOMBRE"),c3.GetString("PE_COSTOU"), c3.GetString("PE_CANT"), 0 , clv_pedido.AsView.Width, 118dip, bmp, c3.GetString("PE_PROID"), bgColor, textColor, Subs.traeAlmacen,Subs.traeCliente, c3.GetString("PE_CLIENTEOR")),i)
|
||||
Private bgColor, textColor As Int
|
||||
bgColor = Colors.RGB(221, 132, 132)'rosa
|
||||
textColor = Colors.black
|
||||
clv_pedido.Add(CreateListItem2(c3.GetString("PE_PRONOMBRE"),c3.GetString("PE_COSTOU"), c3.GetString("PE_CANT"), 0 , clv_pedido.AsView.Width, 118dip, bmp, c3.GetString("PE_PROID"), bgColor, textColor, Subs.traeAlmacen,Subs.traeCliente, c3.GetString("PE_CLIENTEOR"),1,c3.GetString("CONSECUTIVO")),i)
|
||||
Log("#####################"&c3.GetString("PE_PRONOMBRE")&","& c3.GetString("PE_CANT"))
|
||||
Else
|
||||
clv_pedido.Add(CreateListItem(c3.GetString("PE_PRONOMBRE"),c3.GetString("PE_COSTOU"), c3.GetString("PE_CANT"), 0 , clv_pedido.AsView.Width, 118dip, bmp, c3.GetString("PE_PROID"), bgColor, textColor, Subs.traeAlmacen,Subs.traeCliente, c3.GetString("PE_CLIENTEOR")),i)
|
||||
Private bgColor, textColor As Int
|
||||
bgColor = Colors.RGB(221, 132, 132)'rosa
|
||||
textColor = Colors.black
|
||||
Log("#####################"&c3.GetString("PE_PRONOMBRE")&","& c3.GetString("PE_CANT"))
|
||||
clv_pedido.Add(CreateListItem(c3.GetString("PE_PRONOMBRE"),c3.GetString("PE_COSTOU"), c3.GetString("PE_CANT"), 0 , clv_pedido.AsView.Width, 118dip, bmp, c3.GetString("PE_PROID"), bgColor, textColor, Subs.traeAlmacen,Subs.traeCliente, c3.GetString("PE_CLIENTEOR"),1, c3.GetString("CONSECUTIVO")),i)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, 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 in (select cuenta from cuentaa)"$)
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select HVD_PROID, HVD_CANT,HVD_COSTO_TOT, IFNULL(HVD_RECHAZOCANT, 0) AS HVD_RECHAZOCANT from HIST_VENTAS where BCAJAS = 0 and HVD_CODPROMO ='${Subs.traealmacen}' and HVD_CLIENTE in (select cuenta from cuentaa)"$)
|
||||
|
||||
Private Cuenta As String = 0
|
||||
Private arti As String = 0
|
||||
@@ -198,11 +206,13 @@ Sub B4XPage_Appear
|
||||
Else
|
||||
cantres = 0
|
||||
End If
|
||||
Log(cantres)
|
||||
|
||||
' Log(cantres)
|
||||
' Log(cantres)
|
||||
' Log(vc.GetString("HVD_CANT")&","&vc.GetString("HVD_RECHAZOCANT"))
|
||||
arti = arti + (vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT")- cantres)
|
||||
Cuenta = Cuenta + ((vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT") - cantres)*vc.GetString("CAT_GP_PRECIO"))
|
||||
Cuenta = Cuenta + ((vc.GetString("HVD_CANT") - vc.GetString("HVD_RECHAZOCANT") - cantres)*(vc.GetString("HVD_COSTO_TOT")/vc.GetString("HVD_CANT")))
|
||||
' Log(arti)
|
||||
' Log(Cuenta)
|
||||
Next
|
||||
End If
|
||||
' Log(Cuenta)
|
||||
@@ -233,8 +243,8 @@ Sub B4XPage_Appear
|
||||
vc4.Position = i
|
||||
If vc4.GetString("HVD_PROID") <> vc4.GetString("HVD_CODPROMO") Then
|
||||
If vc4.GetString("HVD_RECHAZO") = 0 Then
|
||||
Cuenta2 = vc4.GetString("HVD_COSTO_TOT")
|
||||
arti2 = vc4.GetString("HVD_CANT")
|
||||
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
|
||||
@@ -248,7 +258,7 @@ Sub B4XPage_Appear
|
||||
|
||||
Next
|
||||
End If
|
||||
' Log(Cuenta)
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -262,10 +272,45 @@ Sub B4XPage_Appear
|
||||
Cuenta3 = Cuenta3 + c4.GetString("PE_COSTO_TOT")
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
L_TOTAL.Text = Cuenta + Cuenta1 + Cuenta2 + Cuenta3
|
||||
L_CANT.Text = arti + arti1 +arti2 + arti3
|
||||
If Cuenta < 0 Then
|
||||
Cuenta = 0
|
||||
End If
|
||||
If Cuenta1 < 0 Then
|
||||
Cuenta = 0
|
||||
End If
|
||||
If Cuenta2 < 0 Then
|
||||
Cuenta = 0
|
||||
End If
|
||||
If Cuenta3 < 0 Then
|
||||
Cuenta = 0
|
||||
End If
|
||||
|
||||
If arti < 0 Then
|
||||
arti = 0
|
||||
End If
|
||||
If arti1 < 0 Then
|
||||
arti = 0
|
||||
End If
|
||||
If arti2 < 0 Then
|
||||
arti = 0
|
||||
End If
|
||||
If arti3 < 0 Then
|
||||
arti = 0
|
||||
End If
|
||||
|
||||
Log(Cuenta&","&Cuenta1&","&Cuenta2&","&Cuenta3)
|
||||
Log(arti&","&arti1&","&arti2&","&arti3)
|
||||
If Cuenta + Cuenta1 + Cuenta2 + Cuenta3 < 0 Then
|
||||
L_TOTAL.Text = 0
|
||||
Else
|
||||
L_TOTAL.Text = NumberFormat2((Cuenta + Cuenta1 + Cuenta2 + Cuenta3),0,2,2,True)
|
||||
End If
|
||||
If arti + arti1 +arti2 + arti3 < 0 Then
|
||||
L_CANT.Text = 0
|
||||
Else
|
||||
L_CANT.Text = NumberFormat2((arti + arti1 +arti2 + arti3),0,0,0,True)
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
@@ -400,7 +445,7 @@ End Sub
|
||||
'***************** PARA EL MAS/MENOS *************************************
|
||||
'****************************************************************************
|
||||
|
||||
Sub CreateListItem(Text As String, precioU As String, inv As Int, inv2 As Int, Width As Int, Height As Int, img As Bitmap, prodId As String, bc As Int, tc As Int, promo As String, cliente_original As String,clienterecha As String) As Panel
|
||||
Sub CreateListItem(Text As String, precioU As String, inv As Int, inv2 As Int, Width As Int, Height As Int, img As Bitmap, prodId As String, bc As Int, tc As Int, promo As String, cliente_original As String,clienterecha As String, bandera As String,consecutivo As Int) As Panel
|
||||
Dim p As B4XView = xui.CreatePanel("")
|
||||
Private cs As CSBuilder
|
||||
cs.Initialize
|
||||
@@ -415,9 +460,9 @@ Sub CreateListItem(Text As String, precioU As String, inv As Int, inv2 As Int, W
|
||||
End If
|
||||
l_prodX.Tag = $"ID: ${prodId}${CRLF}${Text}${CRLF}Precio: $$1.2{precioU}${CRLF}Inv: ${inv} pzs"$
|
||||
' l_pCant.Text = 0
|
||||
Log("PRECIO " & Round2(precioU,2)&"| INV "&inv&"| ID "&prodId&"| PROMO "&promo&"| INV2? "&inv2&"| CLIENTE OR NONONO YA NO VA Y UN ESPACIO POR FAVOR "&cliente_original)
|
||||
l_pCant.Tag = Round2(precioU,2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha
|
||||
et_pCant.Tag = Round2(precioU,2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha
|
||||
' Log("PRECIO " & Round2(precioU,2)&"| INV "&inv&"| ID "&prodId&"| PROMO "&promo&"| INV2? "&inv2&"| CLIENTE OR NONONO YA NO VA Y UN ESPACIO POR FAVOR "&cliente_original)
|
||||
l_pCant.Tag = Round2(precioU.Replace(",",""),2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha&"|"&bandera&"|"&consecutivo
|
||||
et_pCant.Tag = Round2(precioU.Replace(",",""),2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha&"|"&bandera&"|"&consecutivo
|
||||
p_prods.Tag = l_pCant.tag
|
||||
' Log($"Ponemos la cant en ${inv}"$)
|
||||
l_pCant.Text = inv
|
||||
@@ -432,7 +477,7 @@ Sub CreateListItem(Text As String, precioU As String, inv As Int, inv2 As Int, W
|
||||
Return p
|
||||
End Sub
|
||||
|
||||
Sub CreateListItem2(Text As String, precioU As String, inv As Int, inv2 As Int, Width As Int, Height As Int, img As Bitmap, prodId As String, bc As Int, tc As Int, promo As String, cliente_original As String,clienterecha As String) As Panel
|
||||
Sub CreateListItem2(Text As String, precioU As String, inv As Int, inv2 As Int, Width As Int, Height As Int, img As Bitmap, prodId As String, bc As Int, tc As Int, promo As String, cliente_original As String,clienterecha As String, bandera As String,consecutivo As Int) As Panel
|
||||
Dim p As B4XView = xui.CreatePanel("")
|
||||
Private cs As CSBuilder
|
||||
cs.Initialize
|
||||
@@ -442,13 +487,17 @@ Sub CreateListItem2(Text As String, precioU As String, inv As Int, inv2 As Int,
|
||||
l_prodX.TextColor = tc
|
||||
precioU = $"$1.2{precioU}"$
|
||||
l_prodX.Text = Text&CRLF&"Cant: " & inv2 & " $" & precioU
|
||||
'' Log(Text&CRLF&"Cant: " & inv2 & " $" & precioU)
|
||||
If promo <> "1" And precioU = 0 Then
|
||||
l_prodX.Text = cs.Color(Colors.RGB(123,0,0)).append(Text&CRLF&"Cant: " & inv2 & " $" & precioU).PopAll
|
||||
End If
|
||||
l_prodX.Tag = $"ID: ${prodId}${CRLF}${Text}${CRLF}Precio: $$1.2{precioU}${CRLF}Inv: ${inv} pzs"$
|
||||
' l_pCant.Text = 0
|
||||
l_pCantC.Tag = Round2(precioU,2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha
|
||||
et_pCantC.Tag = Round2(precioU,2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha
|
||||
' Log(Round2(precioU,2))
|
||||
precioU.Replace(",","")
|
||||
l_pCantC.Tag = Round2(precioU.Replace(",",""),2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha&"|"&bandera&"|"&consecutivo
|
||||
|
||||
et_pCantC.Tag = Round2(precioU.Replace(",",""),2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original&"|"&clienterecha&"|"&bandera&"|"&consecutivo
|
||||
p_prods.Tag = l_pCantC.tag
|
||||
' Log($"Ponemos la cant en ${inv}"$)
|
||||
l_pCantC.Text = NumberFormat2(inv/Subs.traeConversion(prodId),0,0,0,False)
|
||||
@@ -475,15 +524,47 @@ Sub b_prodMenos_Click
|
||||
Dim esteTag As List = Regex.Split("\|", laCant.Tag)
|
||||
Log("LC_TEXT:"&laCant.Text&"|PROMO:"&esteTag.Get(3)&"|LC_TAG:"&laCant.Tag&"|ET:"&esteTag)
|
||||
|
||||
|
||||
If esteTag.Get(7) = "1" Then
|
||||
If laCant.Text = "" Then laCant.Text = 0
|
||||
laCant.Text = $"$1.0{laCant.Text-1}"$
|
||||
If laCant.Text < 0 Then laCant.Text = 0
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery2("SELECT PE_CANT FROM PEDIDO WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND CONSECUTIVO = ?", Array As String(esteTag.Get(2),esteTag.Get(8)))
|
||||
If c3.RowCount > 0 Then
|
||||
c3.Position = 0
|
||||
If c3.GetString("PE_CANT") > 1 Then
|
||||
Private c2 As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?", Array As String(esteTag.Get(2)))
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(5)}'"$)
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)-1, PE_COSTO_TOT= ((IFNULL(PE_CANT,0) -1)*'${c2.GetString("CAT_GP_PRECIO")}') WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) and CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
End If
|
||||
Else If c3.GetString("PE_CANT") = 1 Then
|
||||
Private c2 As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?", Array As String(esteTag.Get(2)))
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(5)}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)-1, PE_COSTO_TOT= ((IFNULL(PE_CANT,0) -1)*'${c2.GetString("CAT_GP_PRECIO")}') WHERE PE_PROID_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
B4XPage_Appear
|
||||
Else
|
||||
|
||||
If esteTag.Get(5) = esteTag.Get(6) Then
|
||||
If laCant.Text > 0 Then
|
||||
If esteTag.Get(3) <> Subs.traeAlmacen Then 'Si es PROMO entonces ...
|
||||
Private c2 As Cursor =Starter.skmt.ExecQuery($"select HVD_RECHAZO FROM HIST_VENTAS WHERE HVD_PROID = '${esteTag.Get(2)}' AND HVD_CLIENTE IN (Select CUENTA from cuentaa)"$)
|
||||
Private c2 As Cursor =Starter.skmt.ExecQuery($"select HVD_RECHAZO FROM HIST_VENTAS WHERE HVD_PROID = '${esteTag.Get(2)}' AND HVD_CLIENTE IN (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
c2.Position = 0
|
||||
If c2.GetString("HVD_RECHAZO") = "0" Then
|
||||
|
||||
|
||||
Log("ES PROMO")
|
||||
Log(esteTag.Get(3))
|
||||
result = Msgbox2("Si se modifica una promoción, la promoción se rompe y solo quedarán los productos sueltos, ¿seguro que desea continuar?","Modificar Promoción", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If result = DialogResponse.POSITIVE Then 'Quitamos esta promo
|
||||
prodsMap.Remove(esteTag.Get(3))
|
||||
@@ -491,8 +572,10 @@ Sub b_prodMenos_Click
|
||||
' For i = 0 To c.RowCount -1
|
||||
' c.Position = i
|
||||
LogColor(esteTag.Get(3),Colors.Blue)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT + 1 WHERE HVD_CODPROMO = '${esteTag.Get(3)}' and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT + 1 WHERE HVD_PROID = '${esteTag.Get(3)}' and HVD_CODPROMO = '${esteTag.Get(3)}' and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT + 1 WHERE HVD_CODPROMO = '${esteTag.Get(3)}' and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT + 1 WHERE HVD_PROID = '${esteTag.Get(3)}' and HVD_CODPROMO = '${esteTag.Get(3)}' and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT WHERE HVD_CODPROMO = '${esteTag.Get(3)}' and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_CANT WHERE HVD_PROID = '${esteTag.Get(3)}' and HVD_CODPROMO = '${esteTag.Get(3)}' and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_CODPROMO = '${Subs.traeAlmacen}' WHERE HVD_cliente in (Select CUENTA from cuentaa) AND HVD_CODPROMO = '${esteTag.Get(3)}'"$)
|
||||
' Next
|
||||
c.Close
|
||||
@@ -506,7 +589,7 @@ Sub b_prodMenos_Click
|
||||
laCant.Text = $"$1.0{laCant.Text-1}"$
|
||||
If laCant.Text < 0 Then laCant.Text = 0
|
||||
Log("NO ES promo")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) + 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) + 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + 1 where cat_gp_id = ?", Array As Object(esteTag.Get(2)))
|
||||
B4XPage_Appear
|
||||
End If
|
||||
@@ -515,7 +598,7 @@ Sub b_prodMenos_Click
|
||||
laCant.Text = $"$1.0{laCant.Text-1}"$
|
||||
If laCant.Text < 0 Then laCant.Text = 0
|
||||
Log("NO ES promo")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) + 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) + 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + 1 where cat_gp_id = ?", Array As Object(esteTag.Get(2)))
|
||||
B4XPage_Appear
|
||||
End If
|
||||
@@ -526,29 +609,30 @@ Sub b_prodMenos_Click
|
||||
laCant.Text = $"$1.0{laCant.Text-1}"$
|
||||
If laCant.Text < 0 Then laCant.Text = 0
|
||||
Log("NO ES promo")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) + 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(6)}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) + 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(6)}'"$)
|
||||
' Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + 1 where cat_gp_id = ?", Array As Object(esteTag.Get(2)))
|
||||
' Starter.skmt.ExecNonQuery2("update PEDIDO set cat_gp_almacen = cat_gp_almacen + 1 where cat_gp_id = ?", Array As Object(esteTag.Get(2)))
|
||||
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery2("SELECT PE_CANT FROM PEDIDO WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String(esteTag.Get(2)))
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery2("SELECT PE_CANT FROM PEDIDO WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND CONSECUTIVO = ?", Array As String(esteTag.Get(2), esteTag.Get(8)))
|
||||
If c3.RowCount > 0 Then
|
||||
c3.Position = 0
|
||||
If c3.GetString("PE_CANT") > 1 Then
|
||||
Private c2 As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?", Array As String(esteTag.Get(2)))
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)-1, PE_COSTO_TOT= ((IFNULL(PE_CANT,0) -1)*'${c2.GetString("CAT_GP_PRECIO")}') WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)-1, PE_COSTO_TOT= ((IFNULL(PE_CANT,0) -1)*'${c2.GetString("CAT_GP_PRECIO")}') WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
End If
|
||||
Else If c3.GetString("PE_CANT") = 1 Then
|
||||
Private c2 As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?", Array As String(esteTag.Get(2)))
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
B4XPage_Appear
|
||||
End If
|
||||
End If
|
||||
Dim preciou As Float = esteTag.Get(0)/esteTag.Get(1)
|
||||
Log("PU: " & preciou)
|
||||
' LogColor("estamos aqui mmenos " & laCant.Text& " , " & (preciou * laCant.Text),Colors.Green )
|
||||
@@ -582,13 +666,17 @@ Sub b_prodMas_Click
|
||||
|
||||
LogColor($"++++++++++++++++++++++++++ ${esteTag}"$, Colors.Green)
|
||||
' Log(esteTag.get(4))
|
||||
|
||||
If esteTag.Get(7) <> "1" Then
|
||||
|
||||
|
||||
If esteTag.Get(5) = esteTag.Get(6) Then
|
||||
|
||||
If laCant.Text + 1 <= maxProds Then
|
||||
Log($"NuevaCant = ${laCant.Text + 1}"$)
|
||||
laCant.Text = $"$1.0{laCant.Text + 1}"$
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - 1 where cat_gp_id = ?", Array As Object(esteTag.Get(2)))
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
|
||||
Subs.prodVenta(esteTag.Get(5), esteTag.Get(2))
|
||||
' Private cym As Map = Subs.traemosCantYMonto(clv_pedido)
|
||||
@@ -603,20 +691,20 @@ Sub b_prodMas_Click
|
||||
Log($"NuevaCant = ${laCant.Text + 1}"$)
|
||||
laCant.Text = $"$1.0{laCant.Text + 1}"$
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - 1 where cat_gp_id = ?", Array As String(esteTag.Get(2)))
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_PROID = ? and PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String(esteTag.Get(2)))
|
||||
c = Starter.skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_PROID = ? and PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND CONSECUTIVO = ?", Array As String(esteTag.Get(2),esteTag.Get(8)))
|
||||
If c.RowCount > 0 Then
|
||||
Private c2 As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?", Array As String(esteTag.Get(2)))
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(5)}'"$)
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+1, PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+1)*'${c2.GetString("CAT_GP_PRECIO")}') WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(5)}'"$)
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = IFNULL(PE_CANT,0)+1, PE_COSTO_TOT= ((IFNULL(PE_CANT,0)+1)*'${c2.GetString("CAT_GP_PRECIO")}') WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
End If
|
||||
Else
|
||||
Private c2 As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?", Array As String(esteTag.Get(2)))
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(5)}'"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS) VALUES (?,?,?,?,?,?,?,0,0)", Array As String(esteTag.Get(2),c2.GetString("CAT_GP_NOMBRE"),1,esteTag.Get(5),Subs.traeCliente,c2.GetString("CAT_GP_PRECIO"),c2.GetString("CAT_GP_PRECIO")))
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(5)}'"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO PEDIDO(PE_PROID,PE_PRONOMBRE,PE_CANT,PE_CLIENTEOR,PE_CLIENTE,PE_COSTOU,PE_COSTO_TOT,PE_CAJAS,PE_BCAJAS,CONSECUTIVO) VALUES (?,?,?,?,?,?,?,0,0,?)", Array As String(esteTag.Get(2),c2.GetString("CAT_GP_NOMBRE"),1,esteTag.Get(5),Subs.traeCliente,c2.GetString("CAT_GP_PRECIO"),c2.GetString("CAT_GP_PRECIO"),esteTag.Get(8)))
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -630,6 +718,7 @@ Sub b_prodMas_Click
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
' Dim preciou As Float = esteTag.Get(0)/esteTag.Get(1)
|
||||
' Log(preciou)
|
||||
' LogColor("estamos aquii mas " & laCant.Text& " , " & (preciou * laCant.Text) ,Colors.Green )
|
||||
@@ -846,13 +935,15 @@ Private Sub b_prodMasC_Click
|
||||
Log(maxProds)
|
||||
|
||||
' l_pCantC.Tag = Round2(precioU,2)&"|"&inv&"|"&prodId&"|"&promo&"|"&inv2&"|"&cliente_original
|
||||
If esteTag.Get(7) <> "1" Then
|
||||
|
||||
|
||||
If laCantc.Text + 1 <= maxProds Then
|
||||
Log($"NuevaCant = ${laCantc.Text + 1}"$)
|
||||
laCantc.Text = $"$1.0{laCantc.Text + 1}"$
|
||||
|
||||
Log(laCantc.Text)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) -(1 * ${Subs.traeConversion(esteTag.Get(2))}) WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = IFNULL(HVD_RECHAZOCANT,0) -(1 * ${Subs.traeConversion(esteTag.Get(2))}) WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_RECHAZOCANT - 1 WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
|
||||
' Subs.prodVenta(esteTag.Get(5), esteTag.Get(2))
|
||||
@@ -862,6 +953,7 @@ Private Sub b_prodMasC_Click
|
||||
' cuentaProds("+")
|
||||
B4XPage_Appear
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub b_prodMenosC_Click
|
||||
@@ -875,7 +967,29 @@ Private Sub b_prodMenosC_Click
|
||||
' Log(pnl.GetView(2).GetView(0) & "|" & pnl.GetView(2).GetView(1) & "|" & pnl.GetView(2).GetView(2))
|
||||
Dim esteTag As List = Regex.Split("\|", laCantc.Tag)
|
||||
Log("LC_TEXT:"&laCantc.Text&"|PROMO:"&esteTag.Get(3)&"|LC_TAG:"&laCantc.Tag&"|ET:"&esteTag)
|
||||
Log(esteTag)
|
||||
|
||||
If esteTag.Get(7) = "1" Then
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery2("SELECT PE_CAJAS, CONSECUTIVO FROM PEDIDO WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND CONSECUTIVO = ? ", Array As String(esteTag.Get(2), esteTag.Get(8)))
|
||||
Log(c3.RowCount)
|
||||
Log(esteTag.Get(8))
|
||||
If c3.RowCount > 0 Then
|
||||
Log("AQUI VEMOS SI ACTUALIZAMOS")
|
||||
c3.Position = 0
|
||||
If c3.GetString("PE_CAJAS") > 1 Then
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = (IFNULL(PE_CANT,0)-(1 * '${Subs.traeConversion(esteTag.Get(2))}')), PE_COSTO_TOT= ((IFNULL(PE_CAJAS,0)-1) *'${Subs.traePrecioC(esteTag.Get(2))}'), PE_CAJAS = IFNULL(PE_CAJAS,0) - 1 WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${c3.GetString("CONSECUTIVO")}'"$)
|
||||
Else If c3.GetString("PE_CAJAS") = 1 Then
|
||||
Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${c3.GetString("CONSECUTIVO")}'"$)
|
||||
End If
|
||||
End If
|
||||
Log("entre al if o algo asi ")
|
||||
If laCantc.Text = "" Then laCantc.Text = 0
|
||||
laCantc.Text = laCantc.Text - 1
|
||||
If laCantc.Text < 0 Then laCantc.Text = 0
|
||||
B4XPage_Appear
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If esteTag.Get(5) = esteTag.Get(6) Then
|
||||
|
||||
@@ -884,7 +998,7 @@ Private Sub b_prodMenosC_Click
|
||||
If laCantc.Text = "" Then laCantc.Text = 0
|
||||
laCantc.Text = laCantc.Text - 1
|
||||
If laCantc.Text < 0 Then laCantc.Text = 0
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = (IFNULL(HVD_RECHAZOCANT,0) +(1 * ${Subs.traeConversion(esteTag.Get(2))})) WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = (IFNULL(HVD_RECHAZOCANT,0) +(1 * ${Subs.traeConversion(esteTag.Get(2))})) WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = (cat_gp_almacen + (1 * ?)) where cat_gp_id = ?", Array As Object(esteTag.Get(2), Subs.traeConversion(esteTag.Get(2))))
|
||||
B4XPage_Appear
|
||||
Else If laCantc.Text = 0 Then
|
||||
@@ -895,14 +1009,15 @@ Private Sub b_prodMenosC_Click
|
||||
|
||||
If laCantc.Text > 0 Then
|
||||
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = (IFNULL(HVD_RECHAZOCANT,0) +(1 * ${Subs.traeConversion(esteTag.Get(2))})) WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(6)}'"$)
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery2("SELECT PE_CAJAS FROM PEDIDO WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String(esteTag.Get(2)))
|
||||
' Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 1, HVD_RECHAZOCANT = (IFNULL(HVD_RECHAZOCANT,0) +(1 * ${Subs.traeConversion(esteTag.Get(2))})) WHERE HVD_PROID = '${esteTag.Get(2)}' and HVD_cliente = '${esteTag.Get(6)}'"$)
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery2("SELECT PE_CAJAS FROM PEDIDO WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA) and CONSECUTIVO = ? ", Array As String(esteTag.Get(2),esteTag.Get(8)))
|
||||
If c3.RowCount > 0 Then
|
||||
Log("AQUI VEMOS SI ACTUALIZAMOS")
|
||||
c3.Position = 0
|
||||
If c3.GetString("PE_CAJAS") > 1 Then
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = (IFNULL(PE_CANT,0)-(1 * '${Subs.traeConversion(esteTag.Get(2))}')), PE_COSTO_TOT= ((IFNULL(PE_CAJAS,0)-1) *'${Subs.traePrecioC(esteTag.Get(2))}'), PE_CAJAS = IFNULL(PE_CAJAS,0) - 1 WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = (IFNULL(PE_CANT,0)-(1 * '${Subs.traeConversion(esteTag.Get(2))}')), PE_COSTO_TOT= ((IFNULL(PE_CAJAS,0)-1) *'${Subs.traePrecioC(esteTag.Get(2))}'), PE_CAJAS = IFNULL(PE_CAJAS,0) - 1 WHERE PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
Else If c3.GetString("PE_CAJAS") = 1 Then
|
||||
Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery($"delete from PEDIDO where PE_PROID = '${esteTag.Get(2)}' and PE_CLIENTE in (Select CUENTA from cuentaa) AND CONSECUTIVO = '${esteTag.Get(8)}'"$)
|
||||
End If
|
||||
End If
|
||||
Log("entre al if o algo asi ")
|
||||
@@ -915,6 +1030,7 @@ Private Sub b_prodMenosC_Click
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Dim preciou As Float = esteTag.Get(0)/esteTag.Get(1)
|
||||
Log("PU: " & preciou)
|
||||
@@ -925,7 +1041,14 @@ Private Sub l_pCantC_Click
|
||||
End Sub
|
||||
|
||||
Private Sub b_revversar_Click
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 0, HVD_RECHAZOCANT = 0 WHERE HVD_cliente in (Select CUENTA from cuentaa) AND HVD_PROID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA))"$)
|
||||
B4XPage_Appear
|
||||
Private c3 As Cursor = Starter.skmt.ExecQuery("SELECT * FROM PEDIDO WHERE PE_CLIENTEOR IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c3.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 0, HVD_RECHAZOCANT = 0 WHERE HVD_cliente in (Select CUENTA from cuentaa)"$)
|
||||
B4XPage_Appear
|
||||
Else
|
||||
MsgboxAsync("Hay productos que ya se vendieron, no se puede regresar la venta","Atención")
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -108,7 +108,7 @@ Sub Camera1_PictureTaken (Data() As Byte)
|
||||
Next
|
||||
End If
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, USUARIO, "CERRADO", B4XPages.MainPage.noVenta.COMENTARIO, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, Data))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End Sub
|
||||
|
||||
@@ -60,77 +60,85 @@ Sub CANCELA_Click
|
||||
End Sub
|
||||
|
||||
Sub GUARDA_Click
|
||||
If r_1.Checked Then
|
||||
motivo = "CERRADO"
|
||||
Else If r_2.Checked Then
|
||||
motivo = "NO PIDIO"
|
||||
Else If r_3.Checked Then
|
||||
motivo = "CANCELA"
|
||||
If r_1.Checked = False And r_2.Checked = False And r_3.Checked = False And r_4.Checked = False Then
|
||||
MsgboxAsync("Selecciona un motivo de rechazo","Atención")
|
||||
Else
|
||||
motivo = "NO ESTA EL ENCARGADO"
|
||||
End If
|
||||
If motivo <> "CERRADO" Or motivo = "CERRADO" Then
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
|
||||
c.Position = 0
|
||||
cuenta = c.GetString("CUENTA")
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)")
|
||||
'Traemos los productos del pedido.
|
||||
c=Starter.skmt.ExecQuery("select HVD_NUM_REGISTRO, HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_COSTO_TOT, HVD_FECHA, HVD_PROID, CAT_GP_PRECIO from HIST_VENTAS2 join CAT_GUNAPROD on CAT_GP_ID = HVD_PROID WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc")
|
||||
If c.RowCount > 0 Then 'Si hay pedido en HIST_VENTAS ...
|
||||
|
||||
If r_1.Checked Then
|
||||
motivo = "CERRADO"
|
||||
Else If r_2.Checked Then
|
||||
motivo = "NO PIDIO"
|
||||
Else If r_3.Checked Then
|
||||
motivo = "CANCELA"
|
||||
Else
|
||||
motivo = "NO ESTA EL ENCARGADO"
|
||||
End If
|
||||
|
||||
If motivo <> "CERRADO" Or motivo = "CERRADO" Then
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
c=Starter.skmt.ExecQuery("select CUENTA from cuentaa")
|
||||
c.Position = 0
|
||||
cuenta = c.GetString("CUENTA")
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)")
|
||||
'Traemos los productos del pedido.
|
||||
c=Starter.skmt.ExecQuery("select HVD_NUM_REGISTRO, HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_COSTO_TOT, HVD_FECHA, HVD_PROID, CAT_GP_PRECIO from HIST_VENTAS2 join CAT_GUNAPROD on CAT_GP_ID = HVD_PROID WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc")
|
||||
If c.RowCount > 0 Then 'Si hay pedido en HIST_VENTAS ...
|
||||
|
||||
'Revisamos si se le ha agregado venta al pedido.
|
||||
Private esteCliente As String = Subs.traeCliente
|
||||
Private rv As Cursor = Starter.skmt.ExecQuery($"select * from REPARTO where REP_CLIENTE = '${esteCliente}' and REP_CLI_ORIG <> '${esteCliente}' and REP_RECHAZO = 0"$)
|
||||
If rv.RowCount > 0 Then 'Si tenemos venta en el pedido ...
|
||||
For i2=0 To rv.RowCount - 1
|
||||
rv.Position = i2
|
||||
Log($"Actualizamos REPARTO - cliente=${rv.GetString("REP_CLIENTE")}, cliente orignal=${rv.GetString("REP_CLI_ORIG")}, le agregamos ${rv.GetString("REP_CANT")}"$)
|
||||
Starter.skmt.ExecNonQuery($"update REPARTO set REP_CANT = REP_CANT + ${rv.GetString("REP_CANT")} where REP_RECHAZO = '1' and REP_CLIENTE = '${rv.GetString("REP_CLI_ORIG")}' and REP_CLI_ORIG = '${rv.GetString("REP_CLI_ORIG")}'"$)
|
||||
'Revisamos si se le ha agregado venta al pedido.
|
||||
Private esteCliente As String = Subs.traeCliente
|
||||
Private rv As Cursor = Starter.skmt.ExecQuery($"select * from REPARTO where REP_CLIENTE = '${esteCliente}' and REP_CLI_ORIG <> '${esteCliente}' and REP_RECHAZO = 0"$)
|
||||
If rv.RowCount > 0 Then 'Si tenemos venta en el pedido ...
|
||||
For i2=0 To rv.RowCount - 1
|
||||
rv.Position = i2
|
||||
Log($"Actualizamos REPARTO - cliente=${rv.GetString("REP_CLIENTE")}, cliente orignal=${rv.GetString("REP_CLI_ORIG")}, le agregamos ${rv.GetString("REP_CANT")}"$)
|
||||
Starter.skmt.ExecNonQuery($"update REPARTO set REP_CANT = REP_CANT + ${rv.GetString("REP_CANT")} where REP_RECHAZO = '1' and REP_CLIENTE = '${rv.GetString("REP_CLI_ORIG")}' and REP_CLI_ORIG = '${rv.GetString("REP_CLI_ORIG")}'"$)
|
||||
Next
|
||||
End If
|
||||
|
||||
Starter.skmt.ExecNonQuery("delete from reparto where REP_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
For i=0 To c.RowCount - 1 'Insertamos los productos en REPARTO.
|
||||
c.Position=i
|
||||
Log($"REGISTRO= ${c.GetString("HVD_NUM_REGISTRO")}"$)
|
||||
Starter.skmt.ExecNonQuery2("insert into reparto(REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA, REP_RECHAZO, REP_PRODID, REP_PRECIO, REP_PRODREGISTRO, REP_CLI_ORIG) VALUES (?,?,?,?,?,1,?,?,?,?) ", Array As String(c.GetString("HVD_CLIENTE"),c.GetString("HVD_PRONOMBRE"),c.GetString("HVD_CANT"),c.GetString("HVD_COSTO_TOT"),c.GetString("HVD_FECHA"), c.GetString("HVD_PROID"), c.GetString("CAT_GP_PRECIO"), c.GetString("HVD_NUM_REGISTRO"), c.GetString("HVD_CLIENTE")))
|
||||
Starter.skmt.ExecNonQuery2("insert into reparto(REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA, REP_RECHAZO, REP_PRODID, REP_PRECIO, REP_PRODREGISTRO, REP_CLI_ORIG) VALUES (?,?,?,?,?,0,?,?,?,?) ", Array As String(c.GetString("HVD_CLIENTE"),c.GetString("HVD_PRONOMBRE"),0,c.GetString("HVD_COSTO_TOT"),c.GetString("HVD_FECHA"), c.GetString("HVD_PROID"), c.GetString("CAT_GP_PRECIO"), c.GetString("HVD_NUM_REGISTRO"), c.GetString("HVD_CLIENTE")))
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_nombre = ?", Array As Object(c.GetString("HVD_CANT"),c.GetString("HVD_PRONOMBRE")))
|
||||
Next
|
||||
End If
|
||||
|
||||
Starter.skmt.ExecNonQuery("delete from reparto where REP_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
For i=0 To c.RowCount - 1 'Insertamos los productos en REPARTO.
|
||||
c.Position=i
|
||||
Log($"REGISTRO= ${c.GetString("HVD_NUM_REGISTRO")}"$)
|
||||
Starter.skmt.ExecNonQuery2("insert into reparto(REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA, REP_RECHAZO, REP_PRODID, REP_PRECIO, REP_PRODREGISTRO, REP_CLI_ORIG) VALUES (?,?,?,?,?,1,?,?,?,?) ", Array As String(c.GetString("HVD_CLIENTE"),c.GetString("HVD_PRONOMBRE"),c.GetString("HVD_CANT"),c.GetString("HVD_COSTO_TOT"),c.GetString("HVD_FECHA"), c.GetString("HVD_PROID"), c.GetString("CAT_GP_PRECIO"), c.GetString("HVD_NUM_REGISTRO"), c.GetString("HVD_CLIENTE")))
|
||||
Starter.skmt.ExecNonQuery2("insert into reparto(REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA, REP_RECHAZO, REP_PRODID, REP_PRECIO, REP_PRODREGISTRO, REP_CLI_ORIG) VALUES (?,?,?,?,?,0,?,?,?,?) ", Array As String(c.GetString("HVD_CLIENTE"),c.GetString("HVD_PRONOMBRE"),0,c.GetString("HVD_COSTO_TOT"),c.GetString("HVD_FECHA"), c.GetString("HVD_PROID"), c.GetString("CAT_GP_PRECIO"), c.GetString("HVD_NUM_REGISTRO"), c.GetString("HVD_CLIENTE")))
|
||||
Starter.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_nombre = ?", Array As Object(c.GetString("HVD_CANT"),c.GetString("HVD_PRONOMBRE")))
|
||||
Next
|
||||
End If
|
||||
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1, HVD_RECHAZOCANT = HVD_CANT, HVD_RECHAZOCANTC = CANTC WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Starter.skmt.ExecNonQuery($"update HIST_VENTAS set HVD_RECHAZO = 2, HVD_RECHAZOCANT = HVD_RECHAZOCANT WHERE HVD_PROID = HVD_CODPROMO and HVD_CLIENTE in (Select CUENTA from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM PEDIDO WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ruta As String = d.GetString("RUTAA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim fechaprev As String = d.GetString("HVD_FECHA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
d.Position = 0
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0)",Array As String (cuenta, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, motivo, e_comm.Text,"NO ENTREGADO"))
|
||||
|
||||
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
|
||||
d.Position = 0
|
||||
Dim ruta As String = d.GetString("RUTAA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
d.Position = 0
|
||||
Dim fechaprev As String = d.GetString("HVD_FECHA")
|
||||
d.Close
|
||||
d = Starter.skmt.ExecQuery("SELECT CUENTA FROM CUENTAA")
|
||||
d.Position = 0
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO REPARTO_GEO (CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO,ENVIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0)",Array As String (cuenta, usuario, sDate &" "&sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps,B4XPages.MainPage.almacen,ruta,rutapre,fechaprev, motivo, e_comm.Text,"NO ENTREGADO"))
|
||||
mandaPendientesreparto
|
||||
B4XPages.ShowPage("Principal")
|
||||
Else
|
||||
COMENTARIO = e_comm.Text
|
||||
mandaPendientesreparto
|
||||
B4XPages.ShowPage("Principal")
|
||||
Else
|
||||
COMENTARIO = e_comm.Text
|
||||
' B4XPages.ShowPage("Foto")
|
||||
' StartActivity(foto)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -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
|
||||
1656
B4A/C_Productos.bas
1656
B4A/C_Productos.bas
File diff suppressed because it is too large
Load Diff
1158
B4A/EscPosPrinter.bas
Normal file
1158
B4A/EscPosPrinter.bas
Normal file
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
BIN
B4A/Files/panel_pick_ciego.bal
Normal file
BIN
B4A/Files/panel_pick_ciego.bal
Normal file
Binary file not shown.
Binary file not shown.
File diff suppressed because one or more lines are too long
@@ -22,6 +22,7 @@ ModuleBookmarks27=
|
||||
ModuleBookmarks28=
|
||||
ModuleBookmarks29=
|
||||
ModuleBookmarks3=
|
||||
ModuleBookmarks30=
|
||||
ModuleBookmarks4=
|
||||
ModuleBookmarks5=
|
||||
ModuleBookmarks6=
|
||||
@@ -52,6 +53,7 @@ ModuleBreakpoints27=
|
||||
ModuleBreakpoints28=
|
||||
ModuleBreakpoints29=
|
||||
ModuleBreakpoints3=
|
||||
ModuleBreakpoints30=
|
||||
ModuleBreakpoints4=
|
||||
ModuleBreakpoints5=
|
||||
ModuleBreakpoints6=
|
||||
@@ -66,8 +68,8 @@ ModuleClosedNodes12=
|
||||
ModuleClosedNodes13=
|
||||
ModuleClosedNodes14=
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=1
|
||||
ModuleClosedNodes17=8,9,16,17,18,19,20,21
|
||||
ModuleClosedNodes16=
|
||||
ModuleClosedNodes17=9,16,17,18,19,20,21
|
||||
ModuleClosedNodes18=
|
||||
ModuleClosedNodes19=
|
||||
ModuleClosedNodes2=
|
||||
@@ -77,17 +79,18 @@ ModuleClosedNodes22=
|
||||
ModuleClosedNodes23=
|
||||
ModuleClosedNodes24=
|
||||
ModuleClosedNodes25=
|
||||
ModuleClosedNodes26=3
|
||||
ModuleClosedNodes27=
|
||||
ModuleClosedNodes26=
|
||||
ModuleClosedNodes27=3
|
||||
ModuleClosedNodes28=
|
||||
ModuleClosedNodes29=
|
||||
ModuleClosedNodes3=
|
||||
ModuleClosedNodes30=
|
||||
ModuleClosedNodes4=
|
||||
ModuleClosedNodes5=
|
||||
ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=1,2,3,6,7,8,9,10,13,15,16
|
||||
ModuleClosedNodes7=2,3,7,8,9,10,13,15,16
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=5,6,7,8,9,13,14,15,16,17,20
|
||||
NavigationStack=Diseñador Visual,no_venta.bal,-100,1,Diseñador Visual,nuevocliente.bal,-100,2,Diseñador Visual,pedido.bal,-100,1,Diseñador Visual,principal.bal,-100,3,Diseñador Visual,proditem.bal,-100,1,Diseñador Visual,productos.bal,-100,5,Diseñador Visual,tabulador.bal,-100,1,Diseñador Visual,telefonos.bal,-100,1,B4XMainPage,B_Aceptar_Monto_Click,516,0,B4XMainPage,B4XPage_Created,165,0,Starter,Process_Globals,29,0
|
||||
ModuleClosedNodes9=5,6,7,8,9,15,16,20
|
||||
NavigationStack=C_Cliente,B4XPage_Appear,120,0,C_DetalleVenta,CreateListItem2,491,6,C_DetalleVenta,CreateListItem,458,0,C_Principal,B4XPage_Appear,418,0,B4XMainPage,b_arqueocieego_Click,718,0,B4XMainPage,enviarmonto,699,0,B4XMainPage,b_aceptar_Click,915,0,B4XMainPage,B_Aceptar_Monto_Click,634,0,B4XMainPage,b_CargarMonto_Click,618,0,B4XMainPage,JobDone,384,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=27,2,16,7,26,28,5,17,6,9
|
||||
VisibleModules=28,2,16,7,27,29,5,17,6,9
|
||||
|
||||
@@ -27,6 +27,7 @@ Sub Process_Globals
|
||||
Dim trackerActividad As String = "501231235959"
|
||||
Dim pushServiceActividad As String = "501231235959"
|
||||
'Para los Logs
|
||||
Dim MAC_IMPRESORA As String
|
||||
Private logs As StringBuilder
|
||||
Private logcat As LogCat
|
||||
Public SharedFolder As String 'Para actualizar apk
|
||||
|
||||
70
B4A/Subs.bas
70
B4A/Subs.bas
@@ -613,6 +613,7 @@ End Sub
|
||||
'Trae el precio del ID dado, desde CAT_GUNAPROD o HIST_VENTAS, dependiendo de si es promoción o no.
|
||||
Sub traePrecio(id As String, quePromo As String) As String
|
||||
Private pu As String = "0"
|
||||
' Log(id & ", "& quePromo)
|
||||
If quePromo = traeAlmacen Then
|
||||
Private idc As Cursor = kmt.ExecQuery($"select CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${id}'"$)
|
||||
If idc.RowCount > 0 Then
|
||||
@@ -625,13 +626,46 @@ Sub traePrecio(id As String, quePromo As String) As String
|
||||
Private pc As Cursor = Starter.skmt.ExecQuery($"select HVD_CANT, HVD_COSTO_TOT from HIST_VENTAS2 where HVD_CLIENTE in (select cuenta from cuentaa) and HVD_PROID = '${id}' and HVD_CODPROMO = '${quePromo}'"$)
|
||||
If pc.RowCount > 0 Then
|
||||
pc.Position = 0
|
||||
' Log(pc.GetString("HVD_COSTO_TOT")&", "& pc.GetString("HVD_CANT"))
|
||||
If pc.GetString("HVD_COSTO_TOT")<> Null And pc.GetString("HVD_CANT") <> Null Then
|
||||
pu = pc.GetString("HVD_COSTO_TOT") / pc.GetString("HVD_CANT")
|
||||
End If
|
||||
End If
|
||||
' Log("x cosa")
|
||||
pc.Close
|
||||
End If
|
||||
' Log(pu)
|
||||
Return pu
|
||||
|
||||
End Sub
|
||||
|
||||
'Trae el precio del ID dado, desde CAT_GUNAPROD o HIST_VENTAS, dependiendo de si es promoción o no.
|
||||
Sub traePrecio2(id As String, quePromo As String, consecutivo As String) As String
|
||||
Private pu As String = "0"
|
||||
' Log(id & ", "& quePromo)
|
||||
If quePromo = traeAlmacen Then
|
||||
Private idc As Cursor = kmt.ExecQuery($"select CAT_GP_PRECIO from CAT_GUNAPROD where CAT_GP_ID = '${id}'"$)
|
||||
If idc.RowCount > 0 Then
|
||||
idc.Position=0
|
||||
If idc.RowCount > 0 And IsNumber(idc.GetString("CAT_GP_PRECIO")) Then pu = idc.GetString("CAT_GP_PRECIO")
|
||||
' Log("id=" & id & "|p=" & x & "|" & idc.GetString("CAT_GP_PRECIO"))
|
||||
End If
|
||||
idc.Close
|
||||
Else 'Si es una promo, entonces sacamos el costo total del producto en la promo de HIST_VENTAS2 y lo dividimos entre la cantidad.
|
||||
Private pc As Cursor = Starter.skmt.ExecQuery($"select HVD_CANT, HVD_COSTO_TOT from HIST_VENTAS where HVD_CLIENTE in (select cuenta from cuentaa) and HVD_PROID = '${id}' and HVD_CODPROMO = '${quePromo}' AND CONSECUTIVO = '${consecutivo}'"$)
|
||||
If pc.RowCount > 0 Then
|
||||
pc.Position = 0
|
||||
' Log(pc.GetString("HVD_COSTO_TOT")&", "& pc.GetString("HVD_CANT"))
|
||||
If pc.GetString("HVD_COSTO_TOT")<> Null And pc.GetString("HVD_CANT") <> Null Then
|
||||
pu = pc.GetString("HVD_COSTO_TOT") / pc.GetString("HVD_CANT")
|
||||
End If
|
||||
End If
|
||||
' Log("x cosa")
|
||||
pc.Close
|
||||
End If
|
||||
' Log(pu)
|
||||
Return pu
|
||||
|
||||
End Sub
|
||||
|
||||
'Trae el precio del ID dado, desde CAT_GUNAPROD o HIST_VENTAS, dependiendo de si es promoción o no Y CAJAS.
|
||||
@@ -934,4 +968,40 @@ Sub traeAlmacen As String 'ignore
|
||||
a = C.GetString("ID_ALMACEN")
|
||||
c.Close
|
||||
Return a
|
||||
End Sub
|
||||
|
||||
Sub traeUsuario As String 'ignore
|
||||
Private c As Cursor
|
||||
Private a As String
|
||||
c = Starter.skmt.ExecQuery("select USUARIO from USUARIOA")
|
||||
c.Position = 0
|
||||
a = C.GetString("USUARIO")
|
||||
c.Close
|
||||
Return a
|
||||
End Sub
|
||||
|
||||
|
||||
Sub traefECHAPREV As String 'ignore
|
||||
Private c As Cursor
|
||||
Private a As String
|
||||
c = Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS where HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
c.Position = 0
|
||||
Dim fecha() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
|
||||
Dim fecha2() As String = Regex.Split("-", fecha(0))
|
||||
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
|
||||
Log(fecha3)
|
||||
Dim hora() As String = Regex.Split("\.", fecha(1))
|
||||
a = fecha3 & " " & hora(0)
|
||||
c.Close
|
||||
Return a
|
||||
End Sub
|
||||
|
||||
Sub traerUTAPREV As String 'ignore
|
||||
Private c As Cursor
|
||||
Private a As String
|
||||
c = Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
|
||||
c.Position = 0
|
||||
a = C.GetString("CAT_CL_RUTA")
|
||||
c.Close
|
||||
Return a
|
||||
End Sub
|
||||
@@ -128,7 +128,7 @@ Sub Camera1_PictureTaken (Data() As Byte)
|
||||
|
||||
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, USUARIO, "CERRADO", B4XPages.MainPage.noVenta.COMENTARIO, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, Data))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
Starter.skmt.ExecNonQuery($"UPDATE kmt_info set gestion = 3, HORAENT = '${sDate & " " & sTime}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$)
|
||||
Starter.skmt.ExecNonQuery("update HIST_VENTAS SET HVD_RECHAZO = 1 WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
B4XPages.ShowPage("Principal")
|
||||
|
||||
|
||||
Reference in New Issue
Block a user