diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 5090a87..27a91a3 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -843,7 +843,7 @@ Sub mandaPendientes Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_pedidos_INTMEX" - cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), ALMACEN, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) + cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) PCNoArts = c.GetString("PC_NOART") PCMonto = c.GetString("PC_MONTO") ' sql.insert_pedidos_INTMEX=INSERT INTO INTMEX.PEDIDO_CLIENTE(PC_FECHA_SINC,PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT,PC_IDALMACEN, PC_RUTA, PC_COSTO_SIN, PC_FACTURA) VALUES (SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?)) diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas index 423d80b..f5a548c 100644 --- a/B4A/C_NoVenta.bas +++ b/B4A/C_NoVenta.bas @@ -134,7 +134,7 @@ Sub mandaPendientesnoventa 'PEDIDO_CLIENTE (Pendientes) ' c = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE where pc_envio_ok <> 1") c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM NOVENTA where ifnull(NV_ENVIO_OK, 0) <> 1") - Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$) + Log($"NO VENTA PENDIENTE: ${c.RowCount}"$) If c.RowCount>0 Then For i=0 To c.RowCount -1 c.Position=i diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index 7b00739..f4d2773 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -85,6 +85,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9=1 -NavigationStack=Visual Designer,productos.bal,-100,1,Visual Designer,login.bal,-100,1,B4XMainPage,i_engrane_Click,689,6,B4XMainPage,muestraProgreso,674,0,B4XMainPage,b_apk_Click,666,0,B4XMainPage,ocultaProgreso,676,0,C_NoVenta,GUARDA_Click,115,0,C_NoVenta,mandaPendientesnoventa,138,5,C_NoVenta,JobDone,149,6,B4XMainPage,B4XPage_Created,175,4 +NavigationStack=C_Cliente,JobDone,1015,0,B4XMainPage,i_engrane_Click,689,6,B4XMainPage,muestraProgreso,674,0,B4XMainPage,b_apk_Click,666,0,B4XMainPage,ocultaProgreso,676,0,C_NoVenta,GUARDA_Click,115,0,C_NoVenta,JobDone,149,6,B4XMainPage,B4XPage_Created,173,4,C_Cliente,mandaPendientes,925,2,C_NoVenta,mandaPendientesnoventa,130,6 SelectedBuild=0 VisibleModules=2,26,13,16,14,4,27,15,9,6,10