cheveguerra/Kelloggs_V3
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_V3.git synced 2026-04-21 06:39:23 +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 Else
Guardar.Visible = True Guardar.Visible = True
End If 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. 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 'Promo Especial

8
B4A/C_Nota.bas
View File

@@ -136,7 +136,7 @@ Sub B4XPage_Appear
Else Else
borra.Visible = True borra.Visible = True
End If 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 c.Close
L_CANT.Text ="" L_CANT.Text =""
L_TOTAL.Text="" L_TOTAL.Text=""
@@ -215,7 +215,7 @@ Sub Activity_KeyPress (key As Int) As Boolean
End Sub End Sub
Sub borra_Click 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 result = Msgbox2("Seguro que desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then 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) ") 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) 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=Starter.skmt.ExecQuery("select count(*) as CUANTOS from CLIENTE_IMPRESO where CI_CUENTA in (Select CUENTA from cuentaa)")
c.Position = 0 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=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 c.Position = 0
CAMBIOS = c.GetString("CUANTOS") 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) ToastMessageShow("Esta venta ya esta impresa, no se puede editar ni borrar.", False)
Else 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 result = Msgbox2("Seguro que desea borrar el pedido?","Cancelar pedido", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
If result = DialogResponse.POSITIVE Then 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")) 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 #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 3.07.29 RMI #VersionName: 3.09.19 RMI
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

4
B4A/KelloggsV3.b4a.meta
View File

@@ -57,7 +57,7 @@ ModuleBreakpoints9=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes10= 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 ModuleClosedNodes12=2
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14=1 ModuleClosedNodes14=1
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=3 ModuleClosedNodes7=3
ModuleClosedNodes8=1 ModuleClosedNodes8=1
ModuleClosedNodes9=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 SelectedBuild=0
VisibleModules=25,1,11,3,26,23,12,7,2,13 VisibleModules=25,1,11,3,26,23,12,7,2,13