cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-19 11:09:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

-Se agregó que al entrar a Principal, si hay abordo y NO está impreso, se borre!!

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-02 15:46:15 -06:00
parent 0bb30c9f28
commit a5b4a27836
2 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Principal.bas
View File

@@ -424,6 +424,21 @@ Sub B4XPage_Appear
c.Close
' Subs.guardaUltimaActividadBD("principal")
' Revisamos si hay abordo y si SI hay y no esta impreso, lo borramos.
Private imp As ResultSet = Starter.skmt.ExecQuery("select IMPRESION from kmt_info where CAT_CL_CODIGO = '0'") 'Revisamos si el cliente 0 esta impreso.
Private abordoImpreso As Boolean = False
Do While imp.NextRow
If imp.GetString("IMPRESION") = 1 Then abordoImpreso = True '
Loop
Private ab As ResultSet = Starter.skmt.ExecQuery("select * from PEDIDO where PE_CLIENTE = '0'")
Do While ab.NextRow
If Not(abordoImpreso) Then
LogColor("BORRAMOS PEDIDO DE ABORDO PORQUE NO ESTA IMPRESO", Colors.red)
' Starter.skmt.ExecNonQuery("delete from PEDIDO where PE_CLIENTE = '0'") 'Borramos el abordo si no esta impreso.
Subs.actualizaProducto(ALMACEN, 0, 0, ab.GetString("PE_PRONOMBRE"), ab.GetString("PE_PROID"), ab.GetString("PE_CLIENTE"), Subs.traeFecha, Subs.traeUsuarioDeBD, ab.GetString("PE_RUTA"), 0, ab.GetString("PE_TIPO"))
End If
Loop
' Log("Check phone state: " & rp.Check(rp.PERMISSION_READ_PHONE_STATE))
' Log("Pedimos permisos de estado del cel")

2
B4A/KelloggsV4.b4a.meta
View File

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Productos,cuentaProds,802,0,C_Productos,b_prodMas_Click,671,0,C_Productos,et_pCant_TextChanged,700,0,kms_helperSubs,string2date,808,0,kms_helperSubs,traeDisponibleAbordo,800,0,kms_helperSubs,traeVentaAbordo,791,0,kms_helperSubs,traeLimiteAbordoXInventario,778,0,B4XMainPage,Class_Globals,23,0,Visual Designer,productos.bal,-100,1,C_Principal,B_PROXIMA_Click,2518,4,C_Principal,horaentrada,2600,0
NavigationStack=kms_helperSubs,traeVentaAbordo,791,0,kms_helperSubs,traeLimiteAbordoXInventario,778,0,B4XMainPage,Class_Globals,23,0,Visual Designer,productos.bal,-100,1,C_Principal,B_PROXIMA_Click,2518,4,C_Principal,horaentrada,2595,0,Subs,actualizaProducto,952,0,C_Principal,B4XPage_Appear,436,6,Main,Globals,25,0,Main,Process_Globals,22,0
SelectedBuild=0
VisibleModules=1,27,11,3,12,4,28,17,23,29