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

Version: 5.01.15

Browse Source 
Se movio el temporizador de la impresion y se movio el evento de impresion.
This commit is contained in:
Isaac
2025-01-20 20:23:35 -06:00
parent ebf5ccd82d
commit 2249c2449f
4 changed files with 31 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -1198,7 +1198,7 @@ Sub B_IMP_Click
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("PREVENTA_48")) c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("PREVENTA_48"))
If c.RowCount > 0 Then If c.RowCount > 0 Then
imprime_venta imprime_venta
t1.Initialize("T1", 5000) ' 1000 = 1 second t1.Initialize("T1", 3000) ' 1000 = 1 second
t1.Enabled = True t1.Enabled = True
Else If c.RowCount = 0 Then Else If c.RowCount = 0 Then
s = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("PREVENTA_24")) s = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String("PREVENTA_24"))

31
B4A/EscPosPrinter.bas
View File

@@ -1118,12 +1118,32 @@ End Sub
' Internal Serial Events ' Internal Serial Events
'----------------------- '-----------------------
Private Sub Serial1_Connected (Success As Boolean) 'Private Sub Serial1_Connected (Success As Boolean)
' If Success Then
' Astream.Initialize(Serial1.InputStream, Serial1.OutputStream, "astream")
' Connected = True
' ConnectedError = ""
' Serial1.Listen
' Else
' Connected = False
' ConnectedError = LastException.Message
' End If
' If SubExists(CallBack, EventName & "_Connected") Then
' CallSub2(CallBack, EventName & "_Connected", Success)
' End If
'End Sub
Private Sub Serial1_Connected(Success As Boolean)
If Success Then If Success Then
Astream.Initialize(Serial1.InputStream, Serial1.OutputStream, "astream") Try
Connected = True Astream.Initialize(Serial1.InputStream, Serial1.OutputStream, "astream")
ConnectedError = "" Connected = True
Serial1.Listen ConnectedError = ""
Serial1.Listen
Catch
Connected = False
ConnectedError = LastException.Message
End Try
Else Else
Connected = False Connected = False
ConnectedError = LastException.Message ConnectedError = LastException.Message
@@ -1133,6 +1153,7 @@ Private Sub Serial1_Connected (Success As Boolean)
End If End If
End Sub End Sub
'---------------------------- '----------------------------
' Internal AsyncStream Events ' Internal AsyncStream Events
'---------------------------- '----------------------------

4
B4A/MAZAPA.b4a
View File

@@ -206,12 +206,12 @@ Module9=C_Mapas
NumberOfFiles=69 NumberOfFiles=69
NumberOfLibraries=33 NumberOfLibraries=33
NumberOfModules=31 NumberOfModules=31
Version=12.8 Version=13
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: mazapa #ApplicationLabel: mazapa
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.01.11 #VersionName: 5.01.15
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/MAZAPA.b4a.meta
View File

@@ -94,6 +94,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Subs,traemosInventarioDisponibleParaPromo,1035,0,Subs,restaFijosPromo,1072,0,Subs,procesaPromocion,1205,0,Subs,alcanzanLosVariablesParaPromo,1136,5,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,2117,0,Main,Activity_Create,28,0,C_Cliente,GPS_LocationChanged,516,1,C_Cliente,imprime_preventa,1269,2,C_Cliente,imprime_venta,1453,0 NavigationStack=Subs,alcanzanLosVariablesParaPromo,1136,5,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,2117,0,Main,Activity_Create,28,0,C_Cliente,GPS_LocationChanged,516,1,C_Cliente,imprime_preventa,1264,2,C_Cliente,imprime_venta,1439,0,C_Cliente,B_IMP_Click,1194,0,EscPosPrinter,Serial1_Connected,1135,0,EscPosPrinter,WriteQRCode,1114,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=29,1,14,2,12,3,6,7,8,26,5 VisibleModules=29,1,14,2,12,3,6,7,8,26,5,22