mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-20 11:39:13 +00:00
- VERSION 4.08.28
- Se pusieron sleeps en el código de impresion del ticket y se quitó el logo de cacahuates del final, esto para ver si deja de mandar errores el imprimir el ticket.
This commit is contained in:
Jose Alberto Guerra Ugalde
@@ -1125,7 +1125,7 @@ Sub B_IMP2_Click
|
||||
End Sub
|
||||
|
||||
Sub Imprime_ticket
|
||||
Log("inicia B_IMP2_Click")
|
||||
Log("INICIA Imprime_ticket")
|
||||
B_IMP2.Enabled = False
|
||||
If l_total.Text <> Null And l_total.Text <> "null" Then Subs.ponImpreso(la_cuenta.Text) 'Solo lo marcamos como impreso si tiene venta (total > 0).
|
||||
ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
@@ -1201,6 +1201,8 @@ Sub Imprime_ticket
|
||||
'esto para las impresoras nuevas
|
||||
'printer.Initialize(cmp20.OutputStream)
|
||||
Printer1.Reset
|
||||
Printer1.Reset
|
||||
Sleep(300)
|
||||
Dim bmp As Bitmap
|
||||
bmp.InitializeResize(File.DirAssets, "kellanova_borde.png", 376, 129, True) 'ignore
|
||||
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
@@ -1218,8 +1220,7 @@ Sub Imprime_ticket
|
||||
myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
myimage= Printer1.PackImage(myimage)
|
||||
Printer1.PrintImage(myimage)
|
||||
|
||||
|
||||
Sleep(1000)
|
||||
If la_cuenta.Text = "0" Then
|
||||
Try
|
||||
Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF)
|
||||
@@ -1263,13 +1264,14 @@ Sub Imprime_ticket
|
||||
ESPACIO = 14
|
||||
BLANCO = " "
|
||||
End If
|
||||
Sleep(100)
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("ABORDO","CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
If S.RowCount > 0 Then
|
||||
For i=0 To S.RowCount -1
|
||||
TAMANO = 0
|
||||
ESPACIO = 14
|
||||
@@ -1297,6 +1299,7 @@ Sub Imprime_ticket
|
||||
BLANCO = " "
|
||||
End If
|
||||
If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
|
||||
Sleep(100)
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
@@ -1323,6 +1326,7 @@ Sub Imprime_ticket
|
||||
s.Position =0
|
||||
Private total4 As String = "0"
|
||||
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)
|
||||
Printer1.WriteString("===============================" & CRLF)
|
||||
s.Close
|
||||
@@ -1377,7 +1381,6 @@ Sub Imprime_ticket
|
||||
|
||||
''''''' PEDIDOS DOE
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("DOE"))
|
||||
|
||||
' s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and pe_codpromo = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA", "DOE", "CAMBIO"))
|
||||
If S.RowCount>0 Then
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
@@ -1409,6 +1412,7 @@ Sub Imprime_ticket
|
||||
ESPACIO = 14
|
||||
BLANCO = " "
|
||||
End If
|
||||
Sleep(100)
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
@@ -1440,7 +1444,6 @@ Sub Imprime_ticket
|
||||
s.Close
|
||||
''''SE MODIFCA EL QUERY POR LOS PEDIDOS DOE
|
||||
S=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA","CAMBIO","DOE"))
|
||||
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
Printer1.WriteString("VENTA" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
@@ -1471,6 +1474,7 @@ Sub Imprime_ticket
|
||||
ESPACIO = 14
|
||||
BLANCO = " "
|
||||
End If
|
||||
Sleep(100)
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
@@ -1492,12 +1496,14 @@ Sub Imprime_ticket
|
||||
Else
|
||||
sTotal3 = 0
|
||||
End If
|
||||
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")
|
||||
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
Sleep(200)
|
||||
s.Close
|
||||
Printer1.WriteString("------------RMI---------------" & CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
|
||||
@@ -1527,6 +1533,7 @@ Sub Imprime_ticket
|
||||
ESPACIO = 14
|
||||
BLANCO = " "
|
||||
End If
|
||||
Sleep(100)
|
||||
Next
|
||||
End If
|
||||
s.Close
|
||||
@@ -1539,6 +1546,8 @@ Sub Imprime_ticket
|
||||
Else
|
||||
sTotal3 = 0
|
||||
End If
|
||||
Sleep(200)
|
||||
' Log(111)
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Sub Total CAMBIOS: $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
|
||||
Private cantidad2 As String = "0"
|
||||
@@ -1548,8 +1557,9 @@ Sub Imprime_ticket
|
||||
s.Close
|
||||
Printer1.WriteString(CRLF)
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s.Position =0
|
||||
s.Position = 0
|
||||
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
|
||||
Sleep(200)
|
||||
Private total2 As String = 0
|
||||
' If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
|
||||
total2 = kh.traeTotalCliente
|
||||
@@ -1591,34 +1601,42 @@ Sub Imprime_ticket
|
||||
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
|
||||
Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
|
||||
Printer1.WriteString("------------------------------" & CRLF)
|
||||
|
||||
Dim bmp As Bitmap
|
||||
bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore
|
||||
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
myimage= Printer1.PackImage(myimage)
|
||||
Printer1.PrintImage(myimage)
|
||||
Sleep(400)
|
||||
' Log(222)
|
||||
' Dim bmp As Bitmap
|
||||
' bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore
|
||||
' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
|
||||
' myimage = Printer1.DitherImage2D(myimage, 128)
|
||||
' myimage= Printer1.PackImage(myimage)
|
||||
' Printer1.PrintImage(myimage)
|
||||
|
||||
Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString(CRLF)
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
' Log(333)
|
||||
' Printer1.DisConnect
|
||||
Catch
|
||||
Log("ERROR CATCH")
|
||||
ToastMessageShow("Error en la impresion 2.", True)
|
||||
Printer1.Disconnect
|
||||
B4XPages.ShowPage("Principal")
|
||||
End Try
|
||||
End If
|
||||
Sleep(1000)
|
||||
' Log(666)
|
||||
Printer1.Reset
|
||||
Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
' Log(6666)
|
||||
B_IMP2.Enabled = True
|
||||
ProgressDialogHide
|
||||
' If Logger Then Log("Habilitamos boton")
|
||||
' Log(">>>>> " & Printer1.IsConnected)
|
||||
End Sub
|
||||
|
||||
Sub B_IMP2BAK_Click
|
||||
Log("inicia B_IMP2_Click")
|
||||
|
||||
'Comente las siguientes lineas porque como ahora los RMIs entran en negativo y se restan del total de la venta, ya no son validas.
|
||||
' Private t As Cursor = Starter.skmt.ExecQuery("select sum(PE_PRECIO2) as totalRMI from pedido where PE_PRONOMBRE like 'CAMBIO%' and PE_CLIENTE In (Select cuenta from cuentaa)")
|
||||
' t.Position = 0
|
||||
|
||||
Reference in New Issue
Block a user