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

- VERSION 4.09.17

Browse Source 
- Se quito el logo de los cacahuates (NATTSU) del ticket.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-09-19 15:44:57 -06:00
parent 08f0c5a27b
commit 80173f1f35
4 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -1228,12 +1228,12 @@ Sub Imprime_ticket
Printer1.PrintImage(myimage)
Printer1.WriteString(Printer1.UNREVERSE)
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)
' 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(1000)
If la_cuenta.Text = "0" Then
Try