cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrego el descuento de las condiciones comerciales, de acuerdo al tipo (salty snacks, ping y rtec) y por sku.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-01 02:21:38 -06:00
parent 8e095d8bff
commit 4e56e0456f
7 changed files with 61 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -536,7 +536,7 @@ Sub B4XPage_Appear
' b_noVenta.Visible = False
' End If
If CREDITO = "1" Then
Msgbox("ALTO","A este cliente no se le puede vender ya que tienen adeudo en su crédito") 'ignore
Msgbox("A este cliente no se le puede vender ya que tienen adeudo en su crédito", "ALTO") 'ignore
B_VENTA.Visible = False
clienteDeudor = True
' gest.Visible = False
@@ -595,7 +595,6 @@ Sub B4XPage_Appear
C1.Close
End If
' B_VENTA.Visible = True
If CREDITO = "1" Then
Msgbox("El cliente tiene credito excedido","Aviso") 'ignore
Subs.iniciaActividad("Principal")
@@ -1483,7 +1482,8 @@ Sub B_IMP2_Click
s.Position =0
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
Private total2 As String = 0
If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
' If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
total2 = kh.traeTotalCliente
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Total venta: $" & NumberFormat2(total2, 1, 2, 2, False) & CRLF)
' Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Total venta: $" & s.GetString("TOTAL") & CRLF)
' Printer1.WriteString("===============================" & CRLF)