cheveguerra/Guna_Reparto_BAT
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_BAT.git synced 2026-04-21 22:59:24 +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 ' 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 HIST.Visible = True
' b_cxc.Visible = True ' b_cxc.Visible = True
b_noEntrega.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") MsgboxAsync($"Para poder hacer una entrega se necesita liberar '${creditofaltante}' de credito."$,"Atención")
' checacredito checacredito
End If 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' ' 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") ' 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 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") MsgboxAsync($"Para poder hacer una entrega se necesita liberar '${creditofaltante}' de credito."$,"Atención")
' checacredito checacredito
End If End If
Else If u.GetString("SALDO_PENDIENTE") = 0 Then Else If u.GetString("SALDO_PENDIENTE") = 0 Then
checacredito checacredito
@@ -910,7 +910,7 @@ Sub checacredito
limite_credito = 0 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 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) Log(12)
escreditoono = 1 escreditoono = 1
@@ -981,7 +981,7 @@ Sub checacredito
limite_credito = 0 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 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)") 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 = ''")
' Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA where NV_CLIENTE is null or NV_CLIENTE = '0050377607'") ' 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("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' ") ' Starter.skmt.ExecNonQuery("update kmt_info set gestion = 0 where CAT_CL_CODIGO = '0050392381' ")
p_principal.Width = Root.Width p_principal.Width = Root.Width
p_principal.Height = Root.Height *.80 p_principal.Height = Root.Height *.80

2
B4A/guna_reparto.b4a
View File

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

4
B4A/guna_reparto.b4a.meta
View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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