cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-22 20:30:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.08.28

Browse Source 
- 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
2024-08-30 13:31:15 -06:00
parent a25fd6141e
commit 11419cdc97
3 changed files with 37 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
B4A/C_Cliente.bas
View File

@@ -1125,7 +1125,7 @@ Sub B_IMP2_Click
End Sub End Sub
Sub Imprime_ticket Sub Imprime_ticket
Log("inicia B_IMP2_Click") Log("INICIA Imprime_ticket")
B_IMP2.Enabled = False 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). 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 ...") ProgressDialogShow("Imprimiendo, un momento ...")
@@ -1201,6 +1201,8 @@ Sub Imprime_ticket
'esto para las impresoras nuevas 'esto para las impresoras nuevas
'printer.Initialize(cmp20.OutputStream) 'printer.Initialize(cmp20.OutputStream)
Printer1.Reset Printer1.Reset
Printer1.Reset
Sleep(300)
Dim bmp As Bitmap Dim bmp As Bitmap
bmp.InitializeResize(File.DirAssets, "kellanova_borde.png", 376, 129, True) 'ignore bmp.InitializeResize(File.DirAssets, "kellanova_borde.png", 376, 129, True) 'ignore
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp) Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
@@ -1218,8 +1220,7 @@ Sub Imprime_ticket
myimage = Printer1.DitherImage2D(myimage, 128) myimage = Printer1.DitherImage2D(myimage, 128)
myimage= Printer1.PackImage(myimage) myimage= Printer1.PackImage(myimage)
Printer1.PrintImage(myimage) Printer1.PrintImage(myimage)
Sleep(1000)
If la_cuenta.Text = "0" Then If la_cuenta.Text = "0" Then
Try Try
Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF) Printer1.WriteString("KELLOGG COMPANY MEXICO" & CRLF)
@@ -1263,13 +1264,14 @@ Sub Imprime_ticket
ESPACIO = 14 ESPACIO = 14
BLANCO = " " BLANCO = " "
End If End If
Sleep(100)
Next Next
End If End If
s.Close s.Close
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Printer1.WriteString("------------RMI---------------" & 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")) 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 For i=0 To S.RowCount -1
TAMANO = 0 TAMANO = 0
ESPACIO = 14 ESPACIO = 14
@@ -1297,6 +1299,7 @@ Sub Imprime_ticket
BLANCO = " " BLANCO = " "
End If End If
If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$) If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
Sleep(100)
Next Next
End If End If
s.Close s.Close
@@ -1323,6 +1326,7 @@ Sub Imprime_ticket
s.Position =0 s.Position =0
Private total4 As String = "0" Private total4 As String = "0"
If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total4 = 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) Printer1.WriteString( Printer1.BOLD & "No. Productos: " & total4 & CRLF)
Printer1.WriteString("===============================" & CRLF) Printer1.WriteString("===============================" & CRLF)
s.Close s.Close
@@ -1377,7 +1381,6 @@ Sub Imprime_ticket
''''''' PEDIDOS DOE ''''''' 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_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")) ' 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 If S.RowCount>0 Then
Printer1.WriteString("------------------------------" & CRLF) Printer1.WriteString("------------------------------" & CRLF)
@@ -1409,6 +1412,7 @@ Sub Imprime_ticket
ESPACIO = 14 ESPACIO = 14
BLANCO = " " BLANCO = " "
End If End If
Sleep(100)
Next Next
End If End If
s.Close s.Close
@@ -1440,7 +1444,6 @@ Sub Imprime_ticket
s.Close s.Close
''''SE MODIFCA EL QUERY POR LOS PEDIDOS DOE ''''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")) 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("------------------------------" & CRLF)
Printer1.WriteString("VENTA" & CRLF) Printer1.WriteString("VENTA" & CRLF)
Printer1.WriteString("------------------------------" & CRLF) Printer1.WriteString("------------------------------" & CRLF)
@@ -1471,6 +1474,7 @@ Sub Imprime_ticket
ESPACIO = 14 ESPACIO = 14
BLANCO = " " BLANCO = " "
End If End If
Sleep(100)
Next Next
End If End If
s.Close s.Close
@@ -1492,12 +1496,14 @@ Sub Imprime_ticket
Else Else
sTotal3 = 0 sTotal3 = 0
End If End If
Sleep(200)
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF) Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta: $${NumberFormat2((sTotal2+(sTotal3 * -1)), 1, 2, 2, False)}"$ & CRLF) Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta: $${NumberFormat2((sTotal2+(sTotal3 * -1)), 1, 2, 2, False)}"$ & CRLF)
Private cantidad1 As String = "0" Private cantidad1 As String = "0"
If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad1 = s.GetString("CANTIDAD") 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( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Sleep(200)
s.Close s.Close
Printer1.WriteString("------------RMI---------------" & 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)", Array As String("VENTA","CAMBIO")) 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 ESPACIO = 14
BLANCO = " " BLANCO = " "
End If End If
Sleep(100)
Next Next
End If End If
s.Close s.Close
@@ -1539,6 +1546,8 @@ Sub Imprime_ticket
Else Else
sTotal3 = 0 sTotal3 = 0
End If End If
Sleep(200)
' Log(111)
Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF) Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Sub Total CAMBIOS: $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF) Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD & "Sub Total CAMBIOS: $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
Private cantidad2 As String = "0" Private cantidad2 As String = "0"
@@ -1548,8 +1557,9 @@ Sub Imprime_ticket
s.Close s.Close
Printer1.WriteString(CRLF) 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=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) Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
Sleep(200)
Private total2 As String = 0 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 total2 = kh.traeTotalCliente
@@ -1591,34 +1601,42 @@ Sub Imprime_ticket
Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF) Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
Printer1.WriteString("--------INFORMATIVO-----------" & CRLF) Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
Printer1.WriteString("------------------------------" & CRLF) Printer1.WriteString("------------------------------" & CRLF)
Sleep(400)
Dim bmp As Bitmap ' Log(222)
bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore ' Dim bmp As Bitmap
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp) ' bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore
myimage = Printer1.DitherImage2D(myimage, 128) ' Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
myimage= Printer1.PackImage(myimage) ' myimage = Printer1.DitherImage2D(myimage, 128)
Printer1.PrintImage(myimage) ' myimage= Printer1.PackImage(myimage)
' Printer1.PrintImage(myimage)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Printer1.WriteString(CRLF) Printer1.WriteString(CRLF)
Sleep(1000) Sleep(1000)
Printer1.DisConnect ' Log(333)
' Printer1.DisConnect
Catch Catch
Log("ERROR CATCH")
ToastMessageShow("Error en la impresion 2.", True) ToastMessageShow("Error en la impresion 2.", True)
Printer1.Disconnect Printer1.Disconnect
B4XPages.ShowPage("Principal") B4XPages.ShowPage("Principal")
End Try End Try
End If End If
Sleep(1000) Sleep(1000)
' Log(666)
Printer1.Reset
Sleep(1000)
Printer1.DisConnect
' Log(6666)
B_IMP2.Enabled = True B_IMP2.Enabled = True
ProgressDialogHide ProgressDialogHide
' If Logger Then Log("Habilitamos boton") ' If Logger Then Log("Habilitamos boton")
' Log(">>>>> " & Printer1.IsConnected)
End Sub End Sub
Sub B_IMP2BAK_Click Sub B_IMP2BAK_Click
Log("inicia B_IMP2_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. '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)") ' 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 ' t.Position = 0

2
B4A/KelloggsV4.b4a
View File

@@ -887,7 +887,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 4.08.18 #VersionName: 4.08.28
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

4
B4A/KelloggsV4.b4a.meta
View File

@@ -63,7 +63,7 @@ ModuleBreakpoints9=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11= ModuleClosedNodes11=25
ModuleClosedNodes12= ModuleClosedNodes12=
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14= ModuleClosedNodes14=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Principal,P_RESUMEN_Click,3568,3,C_Principal,Panel2_Click,3743,0,C_Principal,l_productividad_Click,3729,6,C_Principal,l_drop_Click,3747,0,C_Principal,l_efectividad_Click,3734,4,C_Principal,l_efectiva_Click,3752,0,C_Principal,Panel1_Click,3739,0,C_Principal,B_OK_RES_Click,2443,0,Visual Designer,principal.bal,-100,6,C_Principal,B_BOLETA_Click,2777,0,C_Principal,b_cuotas_Click,2794,0 NavigationStack=C_Principal,StartPrinter,2738,0,C_Cliente,B_IMP2BAK_Click,1641,0,C_Cliente,B_IMP2_Click,1119,0,C_Principal,GetResult,2786,2,EscPosPrinter,Reset,141,0,EscPosPrinter,Class_Globals,17,0,Subs,guardaProductoSin,928,0,Subs,guardaProducto,906,0,Subs,guardaProductoSinGestion,926,0,C_Cliente,Imprime_ticket,1599,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,28,11,3,26,23,29,12,4,13 VisibleModules=1,28,11,3,26,23,29,12,4,13