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

6.02.18

Browse Source 
Se agrega para que no puedan cargar dos rutas sin antes dar fin dia
Se modifica para que no pida codigo a mayoreo
This commit is contained in:
cvaldes1201
2026-03-10 20:34:00 -06:00
parent 2f3449e347
commit 33c43419f2
4 changed files with 133 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/C_Cliente.bas
View File

@@ -966,7 +966,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 = 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)")
@@ -1034,6 +1034,18 @@ Sub checacredito
banderaimp = 1
End If
Else If Subs.traeAlmacen = 94 Then
' p_codigo.Visible= False
' et_codigo.Text = ""
Log(12)
escreditoono = 1
limite_credito = x1.GetString("CAT_CL_LIMITECREDITO")
If l_total.Text <> ".00" Then
esPagoACreditoGuardamosPagare
End If
Else