mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-20 11:39:13 +00:00
- VERSION 5.06.25
- Se agregó la forma de pago en el ticket (credito o efectivo)
This commit is contained in:
@@ -757,10 +757,10 @@ Sub B4XPage_Appear
|
||||
Private cs As CSBuilder
|
||||
cs.Initialize
|
||||
l_doe.Text = cs.append($"Pedido DOE: $${kh.traeTotalClienteDOE}"$).color(Colors.red).append(CRLF).Append($"TOTAL PEDIDO: $${(kh.traeTotalCliente+kh.traeTotalClienteDOE)}"$).Popall
|
||||
' l_doe.Text = $"Pedido DOE: $${kh.traeTotalClienteDOE}${CRLF}TOTAL PEDIDO: $${(kh.traeTotalCliente+kh.traeTotalClienteDOE)}"$
|
||||
' l_doe.Text = $"Pedido DOE: $${kh.traeTotalClienteDOE}${CRLF}TOTAL PEDIDO: $${(kh.traeTotalCliente+kh.traeTotalClienteDOE)}"$
|
||||
End If
|
||||
If Subs.revisaImpresa Then Guardar.Visible = True
|
||||
|
||||
|
||||
'PROMOS POR MONTO
|
||||
Private mPromoXMonto As Map = Subs.revisaPromoPorMonto
|
||||
' LogColor("PROMOXMONTO:" & mPromoXMonto, Colors.Blue)
|
||||
@@ -969,8 +969,8 @@ Sub Guardar_Click
|
||||
Starter.lat_gps = coords.Get(0)
|
||||
Starter.lon_gps = coords.Get(1)
|
||||
End If
|
||||
c=Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||
c.Position=0
|
||||
c = Starter.skmt.ExecQuery("Select CUENTA from cuentaa")
|
||||
c.Position = 0
|
||||
clie_id = c.GetString("CUENTA")
|
||||
usuario = Subs.traeUsuarioDeBD
|
||||
If l_total.Text <> Null And l_total.Text <> "null" And l_total.Text <> "0.0" Then Subs.ponImpreso(clie_id) 'Solo lo marcamos com impreso si tiene venta (total > 0).
|
||||
@@ -985,10 +985,10 @@ Sub Guardar_Click
|
||||
Log("Actualizamos gestion")
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
End If
|
||||
s=Starter.skmt.ExecQuery("SELECT count(*) AS FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s = Starter.skmt.ExecQuery("SELECT count(*) AS FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s.Position = 0
|
||||
If s.GetString("FOLIO") > 0 Then
|
||||
c=Starter.skmt.ExecQuery("SELECT SUM(PE_FOLIO) AS FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c = Starter.skmt.ExecQuery("SELECT SUM(PE_FOLIO) AS FOLIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position = 0
|
||||
End If
|
||||
s.Close
|
||||
@@ -1021,7 +1021,7 @@ Sub Guardar_Click
|
||||
' B4XPages.ShowPageAndRemovePreviousPages("Principal")
|
||||
Guardar.SendToBack
|
||||
b_inicioFinVenta.Text = "TERMINAR VENTA"
|
||||
' Log("RESPALDO")
|
||||
Log("RESPALDO")
|
||||
kh.RD_respaldoBatch
|
||||
If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal.
|
||||
b_inicioFinVenta.Visible = True
|
||||
@@ -1214,7 +1214,7 @@ Sub Imprime_ticket
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
End If
|
||||
' If Logger Then Log($"Impresora Conectada: ${Printer1.IsConnected}"$)
|
||||
Log($"Impresora Conectada: ${Printer1.IsConnected}"$)
|
||||
If la_cuenta.Text <> "0" And la_cuenta.Text <> "null" Then
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ? WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA"))
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1 where CAT_CL_CODIGO In (select cuenta from cuentaa)")''
|
||||
@@ -1280,7 +1280,14 @@ Sub Imprime_ticket
|
||||
' myimage= Printer1.PackImage(myimage)
|
||||
' Printer1.PrintImage(myimage)
|
||||
Sleep(1000)
|
||||
Private cr As Cursor = Starter.skmt.ExecQuery("select CREDITO from kmt_info where CAT_CL_CODIGO in (select cuenta from cuentaa)")
|
||||
Private formaPago As String = "Efectivo"
|
||||
If cr.RowCount > 0 Then
|
||||
cr.Position = 0
|
||||
If cr.GetInt("CREDITO") = 1 Then formaPago = "Crédito"
|
||||
End If
|
||||
If la_cuenta.Text = "0" Then
|
||||
LogColor(123, Colors.red)
|
||||
Try
|
||||
Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF)
|
||||
Printer1.WriteString(sDate &" " & sTime & CRLF)
|
||||
@@ -1293,6 +1300,9 @@ Sub Imprime_ticket
|
||||
Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
LogColor("Entre Calle2: " & l_entre2.Text, Colors.red)
|
||||
Printer1.WriteString("Forma de pago: " & formaPago & CRLF)
|
||||
LogColor("Forma de pago: " & formaPago, Colors.red)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("PEDIDO" & CRLF)
|
||||
@@ -1384,6 +1394,9 @@ Sub Imprime_ticket
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("ABORDO"))
|
||||
s.Position =0
|
||||
Private total4 As String = "0"
|
||||
|
||||
Log("|" & s.GetString("TOTAL") & "|")
|
||||
|
||||
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total4 = s.GetString("TOTAL")
|
||||
Sleep(400)
|
||||
Printer1.WriteString( Printer1.BOLD & "No. Productos: " & total4 & CRLF)
|
||||
@@ -1418,6 +1431,7 @@ Sub Imprime_ticket
|
||||
End Try
|
||||
Else
|
||||
Try
|
||||
LogColor(456, Colors.red)
|
||||
DateTime.DateFormat = "yyyymmdd"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF)
|
||||
@@ -1436,6 +1450,9 @@ Sub Imprime_ticket
|
||||
Printer1.WriteString("C.P.: " & la_cp.Text & CRLF)
|
||||
Printer1.WriteString("Entre calle1: " & l_entre1.Text & CRLF)
|
||||
Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
|
||||
LogColor("Entre Calle2: " & l_entre2.Text, Colors.red)
|
||||
Printer1.WriteString("Forma de pago: " & formaPago & CRLF)
|
||||
LogColor("Forma de pago: " & formaPago, Colors.red)
|
||||
Printer1.WriteString(" " & CRLF)
|
||||
|
||||
''''''' PEDIDOS DOE
|
||||
@@ -1492,7 +1509,7 @@ Sub Imprime_ticket
|
||||
Private cantidad1 As String = "0"
|
||||
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then
|
||||
cantidad1 = s.GetString("CANTIDAD")
|
||||
|
||||
Log("|" & cantidad1 & "|")
|
||||
Printer1.WriteString( "No. Productos: " & cantidad1 & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("FIN PEDIDO DON TOÑO" & CRLF)
|
||||
@@ -1546,6 +1563,8 @@ Sub Imprime_ticket
|
||||
' sTotal2 = 0
|
||||
' End If
|
||||
sTotal2 = kh.traeTotalCliente
|
||||
Private cantidad1 As String = "0"
|
||||
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad1 = s.GetString("CANTIDAD")
|
||||
s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
s.Position = 0
|
||||
Private cant5 As String = s.GetString("CANTIDAD")
|
||||
@@ -1558,8 +1577,7 @@ Sub Imprime_ticket
|
||||
Sleep(200)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta: $${NumberFormat2((sTotal2+(sTotal3 * -1)), 1, 2, 2, False)}"$ & CRLF)
|
||||
Private cantidad1 As String = "0"
|
||||
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad1 = s.GetString("CANTIDAD")
|
||||
Log("|" & s.GetString("CANTIDAD") & "|" & cantidad1 & "|")
|
||||
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
Sleep(200)
|
||||
@@ -1611,6 +1629,8 @@ Sub Imprime_ticket
|
||||
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Sub Total CAMBIOS: $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
|
||||
Private cantidad2 As String = "0"
|
||||
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad2 = s.GetString("CANTIDAD")
|
||||
Log("|" & cantidad1 & "|")
|
||||
Log("|" & s.GetString("CANTIDAD") & "|" & cantidad1 & "|")
|
||||
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad2 & CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
s.Close
|
||||
@@ -2266,7 +2286,7 @@ Sub Cuestionario
|
||||
CUANTOS2 = s.GetString("CUANTOS2")
|
||||
If logger Then LogColor($"Hist:encuesta=${CUANTOS}, hist_encuesta2 = ${CUANTOS2}"$, Colors.Magenta)
|
||||
End If
|
||||
' Log(CUANTOS & "|" & CUANTOS2)
|
||||
LogColor("----> HISTORICO ENCUESTA: " & CUANTOS & "|" & CUANTOS2, Colors.red)
|
||||
If CUANTOS = 0 And CUANTOS2 = 0 Then
|
||||
Private enc As Cursor = Starter.skmt.ExecQuery("SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
|
||||
If enc.RowCount > 0 Then
|
||||
|
||||
Reference in New Issue
Block a user