From bae80679d9f2fc323229c1cbf74dbd78c16a3044 Mon Sep 17 00:00:00 2001
From: cheveguerra <cheveguerra@gmail.com>
Date: Fri, 8 Sep 2023 01:31:56 -0600
Subject: [PATCH] 8/9/23 - Se agregaron pendientes
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Se agregó lel modulo "Pendientes", y en él, se anotó que falta modificar la bandera de "pc_envio_ok" en "PEDIDO_CLIENTE" cuando se guarda una venta.
---
 B4A/C_Cliente.bas  |  2 +-
 B4A/INTMEX_LL.b4a  |  9 +++++----
 B4A/Pendientes.bas | 16 ++++++++++++++++
 3 files changed, 22 insertions(+), 5 deletions(-)
 create mode 100644 B4A/Pendientes.bas

diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 2722d65..5ca8567 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -834,7 +834,7 @@ Sub mandaPendientes
 		End If
 
 		'PEDIDO (Pendientes)
-		c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM  pedido_cliente left join PEDIDO where pc_cliente = pe_cliente and pc_envio_ok <> 1")
+		c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_ENVIO_OK, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO FROM pedido_cliente left join PEDIDO where pc_cliente = pe_cliente and pc_envio_ok <> 1")
 		Log($"Pedido PENDIENTE: ${c.RowCount}"$)
 		If c.RowCount>0 Then
 			For i=0 To c.RowCount -1
diff --git a/B4A/INTMEX_LL.b4a b/B4A/INTMEX_LL.b4a
index 202e8e1..06490d7 100644
--- a/B4A/INTMEX_LL.b4a
+++ b/B4A/INTMEX_LL.b4a
@@ -139,9 +139,10 @@ Module19=FileHandler
 Module2=B4XMainPage
 Module20=ManageExternalStorage
 Module21=MAPA_RUTAS
-Module22=Starter
-Module23=Subs
-Module24=Tracker
+Module22=Pendientes
+Module23=Starter
+Module24=Subs
+Module25=Tracker
 Module3=BatteryUtilities
 Module4=C_Cliente
 Module5=C_Clientes
@@ -151,7 +152,7 @@ Module8=C_Nota
 Module9=C_NoVenta
 NumberOfFiles=46
 NumberOfLibraries=32
-NumberOfModules=24
+NumberOfModules=25
 Version=12.2
 @EndOfDesignText@
 #Region  Project Attributes 
diff --git a/B4A/Pendientes.bas b/B4A/Pendientes.bas
new file mode 100644
index 0000000..0e4890d
--- /dev/null
+++ b/B4A/Pendientes.bas
@@ -0,0 +1,16 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=StaticCode
+Version=12.2
+@EndOfDesignText@
+'Code module
+'Subs in this code module will be accessible from all modules.
+Sub Process_Globals
+	'These global variables will be declared once when the application starts.
+	'These variables can be accessed from all modules.
+
+End Sub
+
+'8/9/23 - Cuando se guarda un pedido en "Cliente", el jobDone de "ins_pedidosPendientes_head_" y "ins_pedidosPendientes_prods_" 
+'NO HACE NADA, es necesario que en el JobDone se cambie la columna "PC_ENVIO_OK" a "1" en "PEDIDO_CLIENTE".
\ No newline at end of file