From 90af20b09badb4ee4136e0b37be54b3269cde38e Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Tue, 19 Sep 2023 17:18:07 -0600 Subject: [PATCH] 19-09-23 No cambiar abordo --- B4A/C_Cliente.bas | 2 +- B4A/C_Nota.bas | 8 ++++---- B4A/KelloggsV3.b4a | 2 +- B4A/KelloggsV3.b4a.meta | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 1a44303..c5b594d 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -556,7 +556,7 @@ Sub B4XPage_Appear Else Guardar.Visible = True End If - If la_cuenta.text = "0" Then Guardar.Visible = True 'Abordo +' If la_cuenta.text = "0" Then Guardar.Visible = True 'Abordo If l_total.Text = Null Or l_total.Text = "null" Or l_total.text = "0" Then Guardar.Visible = True 'Si no hay venta entonces "Guardar" es visible. 'Promo Especial diff --git a/B4A/C_Nota.bas b/B4A/C_Nota.bas index 26f9071..f454174 100644 --- a/B4A/C_Nota.bas +++ b/B4A/C_Nota.bas @@ -136,7 +136,7 @@ Sub B4XPage_Appear Else borra.Visible = True End If - If Subs.clienteActual = "0" Then borra.Visible = True 'Si el cliente actual es "abordo" entonces SIEMPRE lo dejamos modificar la venta. +' If Subs.clienteActual = "0" Then borra.Visible = True 'Si el cliente actual es "abordo" entonces SIEMPRE lo dejamos modificar la venta. c.Close L_CANT.Text ="" L_TOTAL.Text="" @@ -215,7 +215,7 @@ Sub Activity_KeyPress (key As Int) As Boolean End Sub Sub borra_Click - If folio = "0" Or Subs.clienteActual = "0" Then 'Si el folio es 0 o el cliente actual es "abordo", los deja borrar. - Mod por CHV 220512 + If folio = "0" Then 'Si el folio es 0 o el cliente actual es "abordo", los deja borrar. - Mod por CHV 220512 poner esto para dejar borrar abordo "Or Subs.clienteActual = "0"" result = Msgbox2("Seguro que desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If result = DialogResponse.POSITIVE Then c=Starter.skmt.ExecQuery("select PE_PROID, PE_CANT, PE_TIPO FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) ") @@ -243,7 +243,7 @@ End Sub Sub ListView1_ItemLongClick (Position As Int, Value As Object) c=Starter.skmt.ExecQuery("select count(*) as CUANTOS from CLIENTE_IMPRESO where CI_CUENTA in (Select CUENTA from cuentaa)") c.Position = 0 - If c.GetString("CUANTOS") = 0 Or Subs.clienteActual = "0" Then 'Si la venta no está impresa o es abordo entonces continuamos ... + If c.GetString("CUANTOS") = 0 Then 'Si la venta no está impresa o es abordo entonces continuamos ... poner esto para que si pueda borrar "Or Subs.clienteActual = "0"" c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS, sum(PE_COSTO_TOT) as sumaRMIs FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("DUR")) c.Position = 0 CAMBIOS = c.GetString("CUANTOS") @@ -407,7 +407,7 @@ Private Sub ListView3_ItemLongClick (Position As Int, Value As Object) ToastMessageShow("Esta venta ya esta impresa, no se puede editar ni borrar.", False) Else - If folio = "0" Or Subs.clienteActual = "0" Then 'Si el folio es 0 o el cliente actual es "abordo", los deja borrar. - Mod por CHV 220512 + If folio = "0" Then 'Si el folio es 0 o el cliente actual es "abordo", los deja borrar. - Mod por CHV 220512 poner esto para borrar abordo "Or Subs.clienteActual = "0"" result = Msgbox2("Seguro que desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If result = DialogResponse.POSITIVE Then c=Starter.skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_TIPO FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS = ?", Array As String("DOE")) diff --git a/B4A/KelloggsV3.b4a b/B4A/KelloggsV3.b4a index b8eb8f5..03707bb 100644 --- a/B4A/KelloggsV3.b4a +++ b/B4A/KelloggsV3.b4a @@ -166,7 +166,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 3.07.29 RMI + #VersionName: 3.09.19 RMI #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV3.b4a.meta b/B4A/KelloggsV3.b4a.meta index a0ad441..81359c3 100644 --- a/B4A/KelloggsV3.b4a.meta +++ b/B4A/KelloggsV3.b4a.meta @@ -57,7 +57,7 @@ ModuleBreakpoints9= ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= -ModuleClosedNodes11=1,2,3,5,6,8,9,10,12,15,16,19,21,22,23,24,27 +ModuleClosedNodes11=2,3,5,6,8,9,10,12,15,16,19,21,22,23,24,27 ModuleClosedNodes12=2 ModuleClosedNodes13= ModuleClosedNodes14=1 @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7=3 ModuleClosedNodes8=1 ModuleClosedNodes9=1 -NavigationStack=MAPA_RUTAS,MapFragment1_Ready,249,6,C_Principal,B4XPage_Created,195,0,B4XMainPage,Entrar_Click,374,0,B4XMainPage,JobDone,441,0,C_Principal,B4XPage_Appear,335,0,C_Principal,cargar_Click,489,0,C_Principal,descargaCartaPorte,3009,0,C_Principal,descargaCartaPorteyProgreso,3016,0,Visual Designer,principal.bal,-100,4,C_Principal,ImageView1_LongClick,2977,0,B4XMainPage,Class_Globals,21,0 +NavigationStack=B4XMainPage,b_findiaOk_Click,582,0,C_Principal,e_ruta_EnterPressed,2037,0,C_Principal,Class_Globals,62,0,C_Cliente,B4XPage_Appear,467,0,C_Cliente,B_IMP2_Click,1031,0,C_Cliente,B_VENTA_Click,1454,0,C_Nota,Mods,0,0,C_Nota,B4XPage_Appear,132,0,C_Nota,borra_Click,211,6,C_Nota,ListView1_ItemLongClick,239,6,C_Nota,ListView3_ItemLongClick,403,6 SelectedBuild=0 VisibleModules=25,1,11,3,26,23,12,7,2,13