cheveguerra/Guna_Reparto_Diseno_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Diseno_Viejo.git synced 2026-04-22 15:10:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

cambios en la carga

Browse Source
This commit is contained in:
cvaldes1201
2024-04-08 10:33:25 -06:00
parent 97e92b1b2d
commit 78a8f54c1d
6 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/Subs.bas
View File

@@ -779,11 +779,11 @@ Sub traeCantYMonto2(cliente As String) As Map
ccym.Position = i
If ccym.GetString("HVD_CODPROMO") <> ccym.GetString("HVD_PROID") And ccym.GetString("precio") <> Null Then 'Si no es el header de una promo...
cant = cant + ccym.GetString("HVD_CANT")
' Log($"${ccym.GetString("HVD_CANT")} * ${ccym.GetString("precio")}"$)
Log($"${ccym.GetString("HVD_CANT")} * ${ccym.GetString("precio")}"$)
monto = monto + (ccym.GetString("HVD_CANT") * traePrecio(ccym.GetString("HVD_PROID"), ccym.GetString("HVD_CODPROMO")))
End If
Next
' Log($"CANT=${cant}, MONTO=${monto}"$)
Log($"CANT=${cant}, MONTO=${monto}"$)
End If
ccym = Starter.skmt.ExecQuery($"Select rep_prodid, rep_cant, (Select CAT_GP_PRECIO from cat_gunaprod where cat_gp_id = rep_prodid) As precio from REPARTO where REP_CLIENTE in (Select cuenta from cuentaa) And REP_RECHAZO = '0' and REP_CANT > 0"$)