From ef884300887a1e3886790062af6db46af2c98397 Mon Sep 17 00:00:00 2001 From: IsR0d Date: Thu, 8 May 2025 15:04:19 -0600 Subject: [PATCH] Version: 5.05.04 La version anterior tenia un problema al entrar al abordo, esta version lo resulve, el problema se origino al agregarle una bandera de credito, esta bandera la lleno al hacer una preventa ya que necesito saber si sera una preventa a credito o a contado y al estar vacia desde el princio la aplicacion tronaba. Agrege un IFNULL para hacerlo 0 desde un principio y modificarlo cuando se debe modificar. --- B4A/C_Cliente.bas | 2 +- B4A/MARQUEZ.b4a | 2 +- B4A/MARQUEZ.b4a.meta | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 3fe3f00..8f55ff4 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -431,7 +431,7 @@ Sub B4XPage_Appear 'SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) - Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO2 LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") + Private credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA) UNION SELECT CAT_CL_BCREDITO, CAT_CL_CODIGO, Ifnull(SALDO_PENDIENTE,0) As SALDO_PENDIENTE, Ifnull(CAT_CL_LIMITECREDITO,0) As CAT_CL_LIMITECREDITO FROM KMT_INFO2 LEFT JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") Log(credi2.RowCount) If credi2.RowCount > 0 Then credi2.Position = 0 diff --git a/B4A/MARQUEZ.b4a b/B4A/MARQUEZ.b4a index 1adad3d..33664d4 100644 --- a/B4A/MARQUEZ.b4a +++ b/B4A/MARQUEZ.b4a @@ -207,7 +207,7 @@ Version=13.1 #Region Project Attributes #ApplicationLabel: Marquez #VersionCode: 1 - #VersionName: 5.04.28 + #VersionName: 5.05.04 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta index e93612d..756e85e 100644 --- a/B4A/MARQUEZ.b4a.meta +++ b/B4A/MARQUEZ.b4a.meta @@ -94,6 +94,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,calc_ean_checksum,1069,0,C_Principal,B4XPage_Appear,582,0,Subs,borraPedidoCredito,1528,0,C_Cliente,TraeVendedor,1115,0,C_Cliente,B4XPage_Appear,428,0,C_Cliente,TraeNumVendedor,1138,0,C_Cliente,imprime_venta,1575,0,C_Cliente,GUADAVENTA2,959,0,C_Cliente,Guardar_Click,657,0,C_Cliente,imprime_preventa,1145,6,B4XMainPage,B4XPage_Appear,330,0 +NavigationStack=C_Principal,B4XPage_Appear,582,0,Subs,borraPedidoCredito,1528,0,C_Cliente,TraeVendedor,1115,0,C_Cliente,TraeNumVendedor,1138,0,C_Cliente,imprime_venta,1575,0,C_Cliente,GUADAVENTA2,959,0,C_Cliente,Guardar_Click,657,0,C_Cliente,imprime_preventa,1145,6,B4XMainPage,B4XPage_Appear,330,0,C_Cliente,B4XPage_Appear,502,2 SelectedBuild=0 -VisibleModules=1,2,13,4,5,7,8,9,10,14,30,19 +VisibleModules=1,2,13,4,5,7,8,9,10,14