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

19-09-23 No cambiar abordo

Browse Source
This commit is contained in:
cvaldes1201
2023-09-19 17:18:07 -06:00
parent 9640c2768e
commit 90af20b09b
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -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

8
B4A/C_Nota.bas
View File

@@ -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"))

2
B4A/KelloggsV3.b4a
View File

@@ -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

4
B4A/KelloggsV3.b4a.meta
View File

@@ -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