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

11/9/23 - Correcciones de inventarios en promociones.

Browse Source 
- Se corrigio que la proocion aparecia aun cuando no tenía sufucuente inventario fijo.
- Se corrigio que el inventario de los productos variables no tenia descontado el inventario de los fijos.
This commit is contained in:
cheveguerra
2023-09-11 21:36:46 -06:00
parent 8cb1030c97
commit ea79eed54d
4 changed files with 37 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -913,7 +913,7 @@ Sub B_IMP_Click
RMI = 0
End If
C4.Close
a_final = a_inicial_5 - a_venta - RMI
a_final = a_inicial_5 - a_venta ' - RMI
L_INVA.AddTwoLines(s.GetString("CAT_GP_NOMBRE"), "II-" & a_inicial & ".CD." & ABORDO & ".IIT." & a_total & ".VT." & a_venta & "..$" & a_VENTA_F & ".IF." & a_final & ".RMI." & RMI)
Next
End If
@@ -2886,7 +2886,7 @@ Sub B_IMP_INVBAK_Click
'Printer1.WriteString("INV. ACT.: " & s.GetString("CAT_GP_ALMACEN") & CRLF)
'a_final =s.GetString("CAT_GP_ALMACEN")
a_final = a_inicial_5 - a_venta - RMI
a_final = a_inicial_5 - a_venta ' - RMI
'Printer1.WriteString("RMI: " & RMI & CRLF)
Private sep1 As String
Private sep2 As String
@@ -3057,7 +3057,7 @@ Sub B_IMP_INVBAK_Click
End If
If RMI = Null Then RMI = 0
If logger Then Log($"a_total=${a_total}, a_venta=${a_venta}, rmi=${RMI}"$)
a_final = a_total - a_venta - RMI
a_final = a_total - a_venta ' - RMI
Printer1.WriteString("TOTAL----------------- " & CRLF)
Printer1.WriteString("---" & a_inicial & "..." & ABORDO & "..." & a_total & "..." & a_venta & "..." & a_final & "..." & RMI & CRLF)
Printer1.WriteString("TOTAL " & C3.GetString("PE_TOTAL") & CRLF)