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