From a5b4a278369b66afd02db5b02f567ea2b6371b7a Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 2 May 2024 15:46:15 -0600 Subject: [PATCH] =?UTF-8?q?-Se=20agreg=C3=B3=20que=20al=20entrar=20a=20Pri?= =?UTF-8?q?ncipal,=20si=20hay=20abordo=20y=20NO=20est=C3=A1=20impreso,=20s?= =?UTF-8?q?e=20borre!!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 15 +++++++++++++++ B4A/KelloggsV4.b4a.meta | 2 +- 2 files changed, 16 insertions(+), 1 deletion(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index e488e09..0a71370 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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") diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index da255da..6b0e55b 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -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