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

se ajustan procesos de mayoreo

Browse Source
This commit is contained in:
cvaldes1201
2026-04-16 13:40:13 -06:00
parent a80af328a7
commit cdd72a1b04
5 changed files with 256 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/C_Cliente.bas
View File

@@ -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
@@ -1450,6 +1450,7 @@ Sub HIST_Click
Else
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")
B4XPages.ShowPage("DetalleVenta")
End If
Else If u.GetString("SALDO_PENDIENTE") = 0 Then
B4XPages.MainPage.detalleVenta.prodsMap.Initialize
@@ -4227,7 +4228,7 @@ Sub imprime_pagare
Printer1.Justify = 0
s.Close
Printer1.WriteString(" " & CRLF)
s=Starter.skmt.ExecQuery($"select HVD_PRONOMBRE, HVD_CANT, length(HVD_CANT) as L_CANT, HVD_COSTO_TOT, length(HVD_COSTO_TOT) as L_COSTOU,HVD_PROID, HVD_CODPROMO,IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) AND HVD_RECHAZO = 0 and HVD_PRONOMBRE <> 'Cobranza Pendiente' AND HVD_CODPROMO <> '${Subs.traeAlmacen}' order by HVD_CODPROMO, ESPROMO DESC, HVD_PROID"$)
s=Starter.skmt.ExecQuery($"select HVD_PRONOMBRE, HVD_CANT, length(HVD_CANT) as L_CANT, HVD_COSTO_TOT, length(HVD_COSTO_TOT) as L_COSTOU,HVD_PROID, HVD_CODPROMO,IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT FROM HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) AND HVD_RECHAZO = 0 and HVD_PRONOMBRE <> 'Cobranza Pendiente' AND HVD_CODPROMO <> HVD_PROID AND HVD_CODPROMO <> '${Subs.traeAlmacen}' order by HVD_CODPROMO, ESPROMO DESC, HVD_PROID"$)
If S.RowCount>0 Then
Printer1.WriteString("-------BONIFICACIONES--------" & CRLF)
Printer1.WriteString("Cant. Precio Importe" & CRLF)