- Se hace redondeo hacia arriba del total de la orden cuando por descuento hay centavos.

- Se agrega el total de propinas al resumen y se envian a web.
This commit is contained in:
2024-03-29 16:50:45 -06:00
parent 56300c7ff3
commit ec62f951f4
7 changed files with 75 additions and 52 deletions

View File

@@ -552,7 +552,7 @@ Sub copiaDB(result As Boolean) 'ignore
End If
End Sub
'HAcel elpanel dado del ancho y alto especificados.
'Hace el panel dado del ancho y alto especificados.
Sub panelWH(panel As Panel, w As Int, h As Int)
panel.Width = w
panel.Height = h
@@ -1172,6 +1172,7 @@ Sub traeTotalTicketActual_P(tipoPago As String) As String
p.Position = j
If p.GetString("CAT_GP_TIPO") = "ALIMENTOS" Then
desc = p.GetString("DESC") / 100
' desc = Ceil(desc)
Else
desc = 0
End If
@@ -1179,6 +1180,7 @@ Sub traeTotalTicketActual_P(tipoPago As String) As String
st = st + (p.GetString("PE_COSTO_TOT") - (p.GetString("PE_COSTO_TOT") * desc))
Next
End If
st = Ceil(st)
Return st
End Sub