cheveguerra/Tortillas_Guerreras
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Tortillas_Guerreras.git synced 2026-04-17 12:56:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 6.01.01

Browse Source
This commit is contained in:
Javier
2026-01-15 08:37:45 -06:00
parent dde7af5066
commit 064195822c
7 changed files with 43 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/B4XMainPage.bas
View File

@@ -234,6 +234,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
Subs.agregaColumna("PICK_CIEGO", "RESTA", "INT")
Subs.agregaColumna("PEDIDO", "CONSECUTIVO", "INT")
Subs.agregaColumna("PEDIDO", "CONSECUTIVO", "INT")
Subs.agregaColumna("PEDIDO", "CONSECUTIVO", "INT")
Subs.agregaColumna("PEDIDO", "CONSECUTIVO", "INT")
Subs.agregaColumna("PEDIDO", "PE_FOLIOFAC", "INT")
Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")

2
B4A/C_Cliente.bas
View File

@@ -1088,7 +1088,7 @@ Sub GUADAVENTA2
mandaPendientePagare
b_inicioFinVenta.Text = "TERMINAR VENTA"
If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal.
If la_cuenta.Text <> "0" OR la_cuenta.Text <> "1" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal.
b_inicioFinVenta.Visible = True
b_inicioFinVenta.BringToFront
Guardar.SendToBack

64
B4A/C_Principal.bas
View File

@@ -628,7 +628,7 @@ Sub B4XPage_Appear
b_productos.Visible = False
b_recarga.Visible = False
Else
p_abordo.Visible = False
p_abordo.Visible = True
b_productos.Visible = True
b_recarga.Visible = True
End If
@@ -909,6 +909,8 @@ Sub Envioinfo
PASO = 1
'End If
If PASO = 1 Then
Sleep(2000)
B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
@@ -1071,15 +1073,17 @@ Sub Envioinfo
cmd.Name = "insert_pedido4_TGUERRERAS" 'CON TOTALES INCLUIDOS
' Log(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")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
If c.GetString("PE_FOLIO") = "PREVENTA_CONTADO" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA")
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA")
Else If c.GetString("PE_FOLIO") = "PREVENTA_CREDITO" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA")
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"PREVENTA")
Else If c.GetString("PE_FOLIO") = "ABORDO" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO")
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO")
Else If c.GetString("PE_FOLIO") = "RECARGA" Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),"RECARGA",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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO")
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),"RECARGA",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"),Subs.traeRuta(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"ABORDO")
Else If (c.GetString("PE_FOLIO") = "VENTA" or c.GetString("PE_FOLIO") = "SOBRANTE") Then
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),l_ruta.text, c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"))
Else
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"VENTA")
cmd.Parameters = Array As Object(c.GetString("PE_CEDIS"),c.GetString("PE_FOLIO"),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"),l_ruta.text, c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),"VENTA")
End If
reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
Next
@@ -2700,8 +2704,8 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_TGUERRERAS4"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario, Application.VersionName)
cmd.Name = "select_ruta_TGUERRERAS5"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, usuario,usuario, Application.VersionName)
' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -3441,15 +3445,15 @@ Private Sub p_mandaInfo_Click
End Sub
Private Sub iv_abordo_Click
' Starter.skmt.ExecNonQuery("delete from CUENTAA")
' Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
' B4XPages.MainPage.tipo_venta = "ABORDO"
' B4XPages.ShowPage("Productos")
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("1"))
B4XPages.MainPage.tipo_venta = "RECARGA"
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
B4XPages.MainPage.tipo_venta = "ABORDO"
B4XPages.ShowPage("Productos")
' Starter.skmt.ExecNonQuery("delete from CUENTAA")
' Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("1"))
' B4XPages.MainPage.tipo_venta = "RECARGA"
' B4XPages.ShowPage("Productos")
End Sub
Sub checaPedido
@@ -3637,7 +3641,7 @@ End Sub
Private Sub b_terpc_Click
Dim sDate, sTime As String
DateTime.DateFormat = "dd/MM/yyyy"
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
sDate = DateTime.Date(DateTime.Now)
sTime = DateTime.Time(DateTime.Now)
@@ -3717,13 +3721,13 @@ Private Sub b_terpc_Click
End If
consecutivo = consecutivo + 1
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, 0, 0, (cantmerma - cantmermacobro) , idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, 0, 0, (cantmerma - cantmermacobro) , idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA",0,0,consecutivo))
If cantmermacobro > 0 Then
Dim mermacobro As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM PEDIDO where PE_PROID = ? AND PE_FOLIO = 'MERMA_COBRO' ", Array As String (idParts(0)))
If mermacobro.RowCount = 0 Then
consecutivo = consecutivo + 1
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
Else
mermacobro.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${cantmermacobro}', PE_COSTO_TOT= '${cantmermacobro}'*'${preciofull}' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${mermacobro.GetString("CONSECUTIVO")}' and PE_FOLIO = 'MERMA_COBRO' "$)
@@ -3772,7 +3776,7 @@ Private Sub b_terpc_Click
If mermacobro.RowCount = 0 Then
consecutivo = consecutivo + 1
Log("trueno")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
Else
mermacobro.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${cantmermacobro}', PE_COSTO_TOT= '${cantmermacobro}'*'${preciofull}' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${mermacobro.GetString("CONSECUTIVO")}' and PE_FOLIO = 'MERMA_COBRO' "$)
@@ -3819,7 +3823,7 @@ Private Sub b_terpc_Click
faltantes.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_FOLIO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
Else
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2((restado * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), restado, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "FALTANTE",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2((restado * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), restado, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "FALTANTE",0,0,consecutivo))
' 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,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
End If
Else If restado < 0 And inputText <> 0 Then
@@ -3837,7 +3841,7 @@ Private Sub b_terpc_Click
faltantes.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_FOLIO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
Else
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2(((-1*restado) * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), (-1*restado), idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "SOBRANTE",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2(((-1*restado) * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), (-1*restado), idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "SOBRANTE",0,0,consecutivo))
' 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,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),(-1*restado),"",Subs.traeCliente,preciofull,(-1*(preciofull*restado)),consecutivo,1000,"SOBRANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
End If
End If
@@ -3866,13 +3870,13 @@ Private Sub b_terpc_Click
End If
consecutivo = consecutivo + 1
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, 0, 0, (cantmerma - cantmermacobro) , idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, 0, 0, (cantmerma - cantmermacobro) , idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA",0,0,consecutivo))
If cantmermacobro > 0 Then
Dim mermacobro As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM PEDIDO where PE_PROID = ? AND PE_FOLIO = 'MERMA_COBRO' ", Array As String (idParts(0)))
If mermacobro.RowCount = 0 Then
consecutivo = consecutivo + 1
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
Else
mermacobro.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${cantmermacobro}', PE_COSTO_TOT= '${cantmermacobro}'*'${preciofull}' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${mermacobro.GetString("CONSECUTIVO")}' and PE_FOLIO = 'MERMA_COBRO' "$)
@@ -3921,7 +3925,7 @@ Private Sub b_terpc_Click
If mermacobro.RowCount = 0 Then
consecutivo = consecutivo + 1
Log("trueno")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
Else
mermacobro.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${cantmermacobro}', PE_COSTO_TOT= '${cantmermacobro}'*'${preciofull}' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${mermacobro.GetString("CONSECUTIVO")}' and PE_FOLIO = 'MERMA_COBRO' "$)
@@ -4030,7 +4034,7 @@ Private Sub b_terpc_Click
faltantes.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${restado}', PE_COSTO_TOT= '${restado}'*'${preciofull}', PE_FOLIO = 'FALTANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
Else
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2((restado * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), restado, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "FALTANTE",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2((restado * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), restado, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "FALTANTE",0,0,consecutivo))
' 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,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
End If
Else If restado < 0 And inputText <> 0 Then
@@ -4048,7 +4052,7 @@ Private Sub b_terpc_Click
faltantes.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${(-1*restado)}', PE_COSTO_TOT= ${(-1*restado)}*${preciofull}, PE_FOLIO = 'SOBRANTE' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${faltantes.GetString("CONSECUTIVO")}'"$)
Else
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2(((-1*restado) * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), (-1*restado), idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "SOBRANTE",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2(((-1*restado) * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), (-1*restado), idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "SOBRANTE",0,0,consecutivo))
' 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,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),(-1*restado),"",Subs.traeCliente,preciofull,(-1*(preciofull*restado)),consecutivo,1000,"SOBRANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
End If
End If
@@ -4081,7 +4085,7 @@ Private Sub b_terpc_Click
Dim preciofull As String = preciocat.GetString("CAT_GP_PRECIO")
End If
preciocat.Close
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2((restado * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), restado, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "FALTANTE",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, NumberFormat2((restado * preciofull),0,2,2,False), NumberFormat2(preciofull,0,2,2,False), restado, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "FALTANTE",0,0,consecutivo))
' 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,PE_RUTA, PE_TIPO,PE_CEDIS,PE_FECHA,PE_USUARIO,FECHA_PREV,RUTA_REP,PE_REGALO) VALUES (?,?,?,?,?,?,?,0,0,?,?,?,?,?,?,?,?,?)", Array As String(idParts(0),idParts(1),restado,"",Subs.traeCliente,preciofull,(preciofull*restado),consecutivo,1000,"FALTANTE",Subs.traeAlmacen, sDate & " " & sTime, Subs.traeUsuario,Subs.traefECHAPREV, Subs.traeRutaReparto,0))
@@ -4111,13 +4115,13 @@ Private Sub b_terpc_Click
End If
consecutivo = consecutivo + 1
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, 0, 0, (cantmerma - cantmermacobro) , idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, 0, 0, (cantmerma - cantmermacobro) , idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA",0,0,consecutivo))
If cantmermacobro > 0 Then
Dim mermacobro As Cursor = Starter.skmt.ExecQuery2("SELECT * FROM PEDIDO where PE_PROID = ? AND PE_FOLIO = 'MERMA_COBRO' ", Array As String (idParts(0)))
If mermacobro.RowCount = 0 Then
consecutivo = consecutivo + 1
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
Else
mermacobro.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${cantmermacobro}', PE_COSTO_TOT= '${cantmermacobro}'*'${preciofull}' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${mermacobro.GetString("CONSECUTIVO")}' and PE_FOLIO = 'MERMA_COBRO' "$)
@@ -4167,7 +4171,7 @@ Private Sub b_terpc_Click
If mermacobro.RowCount = 0 Then
consecutivo = consecutivo + 1
Log("trueno")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, fecha, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO,PE_ENVIO_OK,PE_CANTC,PE_BCAJAS,CONSECUTIVO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?) ", Array As Object (ALMACEN, ((cantmermacobro)*preciofull), preciofull, cantmermacobro, idParts(1), idParts(0), 63403, sDate&sTime, usuario, 1000, 0, "MERMA_COBRO",0,0,consecutivo))
Else
mermacobro.Position = 0
Starter.skmt.ExecNonQuery($"update PEDIDO set PE_CANT = '${cantmermacobro}', PE_COSTO_TOT= '${cantmermacobro}'*'${preciofull}' WHERE PE_PROID = '${idParts(0)}' and PE_CLIENTE = '63403' AND CONSECUTIVO = '${mermacobro.GetString("CONSECUTIVO")}' and PE_FOLIO = 'MERMA_COBRO' "$)

2
B4A/C_Productos.bas
View File

@@ -1546,7 +1546,7 @@ Sub LlenaProdsLL(p As ResultSet)
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10, PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' union all select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10 , PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$)
Else
Log("AQUI2")
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO${Subs.traeTipoCliente} as CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10, PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_DP_PRECIO${Subs.traeTipoCliente} > 0 AND CAT_DP_PRECIO${Subs.traeTipoCliente} <> 0.0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' union all select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO${Subs.traeTipoCliente} AS CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10 , PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_DP_PRECIO${Subs.traeTipoCliente} > 0 AND CAT_DP_PRECIO${Subs.traeTipoCliente} <> 0.0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$)
Dim p As ResultSet = B4XPages.MainPage.skmt.ExecQuery($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO${Subs.traeTipoCliente} as CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10, PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_DP_PRECIO${Subs.traeTipoCliente} > 0 AND CAT_DP_PRECIO${Subs.traeTipoCliente} <> 0.0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' union all select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO${Subs.traeTipoCliente} AS CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10 , PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_DP_PRECIO${Subs.traeTipoCliente} > 0 AND CAT_DP_PRECIO${Subs.traeTipoCliente} <> 0.0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa) AND PE_FOLIO = '${B4XPages.MainPage.tipo_venta}') order by 2"$)
Log($"select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO${Subs.traeTipoCliente} as CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10, PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_DP_PRECIO${Subs.traeTipoCliente} > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_CLASIF <> 'PROMOS' union all select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_DP_PRECIO${Subs.traeTipoCliente} AS CAT_GP_PRECIO, CAT_GP_TIPOPROD, CAT_DP_CONVERSION1, CAT_DP_PRECIO10 , PE_BCAJAS from ${Starter.tabla} LEFT JOIN PEDIDO ON CAT_GP_ID = PE_PROID where CAT_DP_PRECIO${Subs.traeTipoCliente} > 0 And CAT_GP_ALMACEN = 0 And CAT_GP_CLASIF <> 'PROMOS' and cat_gp_id in (select pe_proid from pedido where pe_cliente in (select cuenta from cuentaa)) order by 2"$)
End If

BIN
B4A/Files/principal.bal
View File

Binary file not shown.

2
B4A/TG.b4a
View File

@@ -1126,7 +1126,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: TGUERRERAS
#VersionCode: 1
#VersionName: 5.12.16
#VersionName: 6.01.01
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

6
B4A/TG.b4a.meta
View File

@@ -78,7 +78,7 @@ ModuleClosedNodes16=
ModuleClosedNodes17=
ModuleClosedNodes18=
ModuleClosedNodes19=
ModuleClosedNodes2=4
ModuleClosedNodes2=
ModuleClosedNodes20=
ModuleClosedNodes21=3
ModuleClosedNodes22=
@@ -100,6 +100,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Starter,Service_Start,66,0,Starter,Timer1_Tick,77,0,Diseñador Visual,ticketsdia.bal,-100,1,B4XMainPage,Class_Globals,130,0,Starter,timerRecordatorio_Tick,167,5,C_Principal,B4XPage_Appear,395,0,Diseñador Visual,login.bal,-100,2,C_Principal,connecta_Click,2706,2,Starter,JobDone,146,0,Starter,Process_Globals,21,0
NavigationStack=C_Cliente,GUADAVENTA2,1084,1,C_Productos,Class_Globals,0,0,C_Productos,LlenaProdsLL,1542,6,C_Productos,b_prodMas_Click,640,0,B4XMainPage,B4XPage_Created,232,0,C_Principal,Label4_Click,4276,0,C_Principal,et_merma_FocusChanged,4260,0,C_Principal,b_terpc_Click,3637,5,C_Clientes,Class_Globals,0,0,C_Principal,JobDone,2614,0,C_Principal,connecta_Click,2700,2
SelectedBuild=0
VisibleModules=31,2,13,4,32,14,5,18,15,23,17,21,11,10,28
VisibleModules=31,2,13,4,32,14,5,18,15,23