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

8/9/23 - Se agregaron pendientes

Browse Source 
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.
This commit is contained in:
cheveguerra
2023-09-08 01:31:56 -06:00
parent 62b422dd5d
commit bae80679d9
3 changed files with 22 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -834,7 +834,7 @@ Sub mandaPendientes
End If End If
'PEDIDO (Pendientes) '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}"$) Log($"Pedido PENDIENTE: ${c.RowCount}"$)
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1

9
B4A/INTMEX_LL.b4a
View File

@@ -139,9 +139,10 @@ Module19=FileHandler
Module2=B4XMainPage Module2=B4XMainPage
Module20=ManageExternalStorage Module20=ManageExternalStorage
Module21=MAPA_RUTAS Module21=MAPA_RUTAS
Module22=Starter Module22=Pendientes
Module23=Subs Module23=Starter
Module24=Tracker Module24=Subs
Module25=Tracker
Module3=BatteryUtilities Module3=BatteryUtilities
Module4=C_Cliente Module4=C_Cliente
Module5=C_Clientes Module5=C_Clientes
@@ -151,7 +152,7 @@ Module8=C_Nota
Module9=C_NoVenta Module9=C_NoVenta
NumberOfFiles=46 NumberOfFiles=46
NumberOfLibraries=32 NumberOfLibraries=32
NumberOfModules=24 NumberOfModules=25
Version=12.2 Version=12.2
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes

16
B4A/Pendientes.bas Normal file
View File

@@ -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".