cheveguerra/Lanterna_H
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Lanterna_H.git synced 2026-04-19 21:59:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.08.30

Browse Source 
- Se quitaron los botones de propinas y envio de informacion cuando ya se borro el efectivo.
- Se quito del corte Z la seccion de "TOTAL SIN PROPINAS".
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-30 22:21:51 -06:00
parent b00ea99ffa
commit 83a88f660e
4 changed files with 34 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Principal.bas
View File

@@ -1634,7 +1634,15 @@ End Sub
Private Sub b_cierreTotal_Click
' Log("click")
b_envioInfo.Enabled = True
If Subs.revisaEfectivoBorrado Then b_imp.Text = "Imprimir" & CRLF & "Z" Else b_imp.Text = "Imprimir" & CRLF & "A + B"
If Subs.revisaEfectivoBorrado Then
b_imp.Text = "Imprimir" & CRLF & "Z"
b_envioInfo.Visible = False
b_imp3.Visible = False
Else
b_imp.Text = "Imprimir" & CRLF & "A + B"
b_envioInfo.Visible = True
b_imp3.Visible = True
End If
sv_resumen.Panel.Height = p_resumen.Height
l_resumen.Width = sv_resumen.Width - 20dip
cs.Initialize
@@ -1691,7 +1699,16 @@ Private Sub b_cierraParcial_Click
sv_resumen.Panel.Height = p_resumen.Height
l_resumen.Width = sv_resumen.Width - 20dip
b_envioInfo.Enabled = False
If Subs.revisaEfectivoBorrado Then b_imp.Text = "Imprimir" & CRLF & "Z" Else b_imp.Text = "Imprimir" & CRLF & "A + B"
' If Subs.revisaEfectivoBorrado Then b_imp.Text = "Imprimir" & CRLF & "Z" Else b_imp.Text = "Imprimir" & CRLF & "A + B"
If Subs.revisaEfectivoBorrado Then
b_imp.Text = "Imprimir" & CRLF & "Z"
b_envioInfo.Visible = False
b_imp3.Visible = False
Else
b_imp.Text = "Imprimir" & CRLF & "A + B"
b_envioInfo.Visible = True
b_imp3.Visible = True
End If
cs.Initialize
Log(l_resumen.text)
Private c As Cursor = Starter.skmt.ExecQuery("select PE_MESA, PE_TIPO, PE_TICKET, sum(PE_COSTO_TOT) as SUBTOT from PEDIDO group by PE_MESA, pe_tipo, PE_TICKET order by PE_MESA, PE_TIPO desc")
@@ -2651,6 +2668,14 @@ Sub b_impAB_Click
DateTime.DateFormat = "dd/MM/yyyy"
sDate = DateTime.Date(DateTime.Now)
sTime = DateTime.Time(DateTime.Now)
Private tf As Cursor = Starter.skmt.ExecQuery($"select pe_fecha from pedido limit 1"$) ' Traemos la fecha del pedido.
If tf.RowCount > 0 Then
tf.Position = 0
Private laFecha() As String = Regex.Split(" ", tf.GetString("PE_FECHA")) 'Traemos la fecha del PEDIDO.
If imprimirAqui Then Printer1.WriteString($"Fecha: ${laFecha(0)} ${sTime} ${CRLF}${CRLF}"$)
cs.Color(Colors.red).Append($"Fecha: ${laFecha(0)} ${sTime}${CRLF}"$).pop
Log($"Fecha: ${laFecha(0)} ${sTime} ${CRLF}${CRLF}"$)
End If
Private c As Cursor = Starter.skmt.ExecQuery($"select M_ESTATUS from CAT_MESAS where M_ESTATUS = 'ABIERTA'"$)
' Log(c.RowCount)
@@ -2945,7 +2970,7 @@ Sub b_impAB_Click
cs.Color(Colors.DarkGray).Append($"TOTAL PAGOS: ........... $${totalPagos} ${CRLF}"$).pop
Log($"TOTAL PAGOS: .........${i}.. $${totalPagos} ${CRLF}"$)
If Not(Subs.revisaEfectivoBorrado) Or 1 = 1 Then ' Si es corte Z entonces no ponemos el Total sin propinas.
If Not(Subs.revisaEfectivoBorrado) Then ' Si es corte Z entonces no ponemos el Total sin propinas.
'TOTAL SIN PROPINAS
If imprimirAqui Then Printer1.WriteString(CRLF)
If imprimirAqui Then Printer1.WriteString(Printer1.BOLD)