diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index a657422..2452ba2 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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") diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 75dea44..6150e63 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index aaced98..f579244 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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' "$) diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 27e9ddc..ed85d65 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -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 diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 5d40fec..b37d18e 100644 Binary files a/B4A/Files/principal.bal and b/B4A/Files/principal.bal differ diff --git a/B4A/TG.b4a b/B4A/TG.b4a index 29a9bca..f2fb9b3 100644 --- a/B4A/TG.b4a +++ b/B4A/TG.b4a @@ -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 diff --git a/B4A/TG.b4a.meta b/B4A/TG.b4a.meta index 5458edc..ce94122 100644 --- a/B4A/TG.b4a.meta +++ b/B4A/TG.b4a.meta @@ -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