From ba244e1c6f4a2bf07a15cf17b9fa61c8d4e3f38d Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Wed, 29 May 2024 11:01:22 -0600 Subject: [PATCH] .... --- B4A/C_Cliente.bas | 18 +++++++++--------- B4A/C_NoVenta.bas | 2 +- B4A/C_Principal.bas | 15 ++++++++++----- B4A/Files/cliente.bal | Bin 34659 -> 34659 bytes B4A/Profina.b4a | 2 +- B4A/Profina.b4a.meta | 4 ++-- 6 files changed, 23 insertions(+), 18 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 47a16b7..d2b63fb 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -199,8 +199,8 @@ Sub B4XPage_Appear ' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Wait For B4XPage_PermissionResult (Permission As String, resultC As Boolean) - Tels.Visible = True - gest.Visible = True +' Tels.Visible = True +' gest.Visible = True LA_GPS.TextColor = Colors.Red LA_GPS.Text = "SIN UBICACION GPS" cercavalor = 0 @@ -333,13 +333,13 @@ Sub B4XPage_Appear ' gest.Visible = True 'Si el cliente es nuevo, no aparece el boton de venta If la_cuenta.text.SubString2(0,1) = "N" Then gest.Visible = False - If LA_GPS.TextColor = Colors.Blue Then - Tels.Visible = True - gest.Visible = True - Else - Tels.Visible = False - gest.Visible = False - End If +' If LA_GPS.TextColor = Colors.Blue Then +' Tels.Visible = True +' gest.Visible = True +' Else +' Tels.Visible = False +' gest.Visible = False +' End If End Sub Sub GPS_LocationChanged (Location1 As Location) diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas index bf12ce4..6a498e6 100644 --- a/B4A/C_NoVenta.bas +++ b/B4A/C_NoVenta.bas @@ -40,7 +40,7 @@ End Sub 'This event will be called once, before the page becomes visible. Private Sub B4XPage_Created (Root1 As B4XView) - B4XPages.SetTitle(Me, $"${subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$) + B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$) Root = Root1 'load the layout to Root Root.LoadLayout("noventa") diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 73c7626..79a6ee6 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -317,7 +317,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) End Sub Sub B4XPage_Appear - Checapedido + checaPedido cpb = Starter.skmt.ExecQuery("SELECT PC_CLIENTE, PC_MONTO FROM PEDIDO_CLIENTE") If cpb.RowCount > 0 Then For i = 0 To cpb.RowCount-1 @@ -1998,7 +1998,7 @@ Sub B_OK_PAS_Click Resumen.Visible= True img2.Visible=False Subs.panelVisible(p_principal, 0, 0) - Checapedido + checaPedido Else if CARGA = "CARGAR" And (S_CP.Text <> "LISTO" Or S_CC.Text <> "LISTO" Or S_CH.Text <> "LISTO") Then RES = Msgbox2("Seguro que desea abortar el proceso","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If RES = DialogResponse.POSITIVE Then @@ -2446,9 +2446,14 @@ Private Sub p_mandaInfo_Click End Sub -Private Sub Checapedido - c = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE") +'Revisa si el cliente tiene venta o No venta y si es así modifica gestion en kmt_info +Sub checaPedido + Private c As Cursor = Starter.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE") If c.RowCount > 0 Then - Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)") + Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)") + End If + Private c As Cursor = Starter.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA") + If c.RowCount > 0 Then + Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)") End If End Sub \ No newline at end of file diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index d58b85b23f2ee3b175e77bd84aa9a3031c339ba3..57f012f9a944575bf9190bd6b648afc03071a42e 100644 GIT binary patch delta 31 lcmaFd$Mm?5X#<