cheveguerra/Guna_Reparto_BAT
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_BAT.git synced 2026-04-21 14:49:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION PARA PACHUCA Y GUADAJARA BAT

Browse Source
This commit is contained in:
cvaldes1201
2026-04-20 22:09:40 -06:00
parent cdd72a1b04
commit 60ea62def1
4 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Cliente.bas
View File

@@ -565,7 +565,7 @@ Sub B4XPage_Appear
'
' End If
If (almacen = 81 Or almacen = 94) Then
If (almacen = 81 Or almacen = 94 OR Subs.traeAlmacen = 8 Or Subs.traeAlmacen = 92 ) Then
HIST.Visible = True
' b_cxc.Visible = True
b_noEntrega.Visible = True
@@ -840,7 +840,7 @@ Sub gest_Click
MsgboxAsync($"Para poder hacer una entrega se necesita liberar '${creditofaltante}' de credito."$,"Atención")
' checacredito
checacredito
End If
' Else If cliecred.GetString("CAT_CL_LIMITECREDITO") >= u.GetString("SALDO_PENDIENTE") + l_total.Text.Replace(",","") Then 'AQUI VAMOS A VALIDAR SI EL CREDITO ALCANZA'
' MsgboxAsync("Para poder hacer una entrega se necesita liquidar el(los) pagare(s)","Atención")
@@ -850,7 +850,7 @@ Sub gest_Click
Dim creditofaltante As Float = (cliecred.GetString("CAT_CL_LIMITECREDITO") - ( u.GetString("SALDO_PENDIENTE") + l_total.Text.Replace(",",""))) * -1
MsgboxAsync($"Para poder hacer una entrega se necesita liberar '${creditofaltante}' de credito."$,"Atención")
' checacredito
checacredito
End If
Else If u.GetString("SALDO_PENDIENTE") = 0 Then
checacredito
@@ -910,7 +910,7 @@ Sub checacredito
limite_credito = 0
If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito
If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 6 Then
If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 88 Or Subs.traeAlmacen = 92 Or Subs.traeAlmacen = 6 Then
Log(12)
escreditoono = 1
@@ -981,7 +981,7 @@ Sub checacredito
limite_credito = 0
If CREDITO = 1 And x1.GetString("CAT_CL_LIMITECREDITO") <> 0 Then '''' se debe de cambiar a si acepta o no credito, aparte de tener la bandera a credito
If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 6 Then
If Subs.traeAlmacen = 81 Or Subs.traeAlmacen = 94 Or Subs.traeAlmacen = 88 Or Subs.traeAlmacen = 92 Or Subs.traeAlmacen = 6 Then
Dim c4 As Cursor = Starter.skmt.ExecQuery("SELECT IFNULL(CAT_CL_VCREDITO,0) AS CAT_CL_VCREDITO, IFNULL(CAT_CL_VCODIGO,0) AS CAT_CL_VCODIGO FROM kmt_info where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")

2
B4A/C_Principal.bas
View File

@@ -225,7 +225,7 @@ Sub B4XPage_Appear
Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA where NV_CLIENTE is null or NV_CLIENTE = ''")
' Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA where NV_CLIENTE is null or NV_CLIENTE = '0050377607'")
' Starter.skmt.ExecNonQuery("Update kmt_info set gestion = 0 WHERE CAT_CL_CODIGO = '0050377607'")
' Starter.skmt.ExecNonQuery("DELETE FROM CODIGO_CREDITO where CLIENTE = '0050392381'")
' Starter.skmt.ExecNonQuery("DELETE FROM CODIGO_CREDITO where CLIENTE = '0052192690'")
' Starter.skmt.ExecNonQuery("update kmt_info set gestion = 0 where CAT_CL_CODIGO = '0050392381' ")
p_principal.Width = Root.Width
p_principal.Height = Root.Height *.80

2
B4A/guna_reparto.b4a
View File

@@ -262,7 +262,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Guna Reparto
#VersionCode: 1
#VersionName: 6.04.02_01
#VersionName: 6.04.02
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/guna_reparto.b4a.meta
View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Subs,traeCliente,784,0,Subs,traefECHAPREV,1087,0,Tracker,CreateLocationRequest,145,0,C_Cliente,HIST_Click,1446,0,C_Cliente,gest_Click,834,0,C_DetalleVenta,b_prodMenos_Click,576,0,C_Principal,Class_Globals,0,0,Subs,guardaAppInfo,1164,0,Main,Activity_Create,25,0,C_Principal,B4XPage_Appear,219,0
NavigationStack=C_Cliente,GPS_LocationChanged,628,0,C_Cliente,B4XPage_Appear,561,1,C_Cliente,checacredito,977,1,C_Cliente,B_IMP_Click,2199,0,C_Cliente,imp,7080,0,barcodeGenerator,valorDigitoCODE128,584,0,barcodeGenerator,codigoDigitoCODE128,685,0,QRGenerator,Class_Globals,12,0,C_Principal,cargaGeneral,1349,0,C_Principal,B4XPage_Appear,221,0
SelectedBuild=0
VisibleModules=2,17,5,6,8,10,31,30,28,7
VisibleModules=2,17,5,6,8,10,31,30,28,7,3,29