cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Cambios Impresora

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-23 14:07:51 -06:00
parent 2235c6157a
commit bad7453a8e
2 changed files with 22 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
B4A/C_Cliente.bas
View File

@@ -149,6 +149,7 @@ Sub Class_Globals
Dim itemselect2 As String Dim itemselect2 As String
Dim pregunta7 As String Dim pregunta7 As String
Dim bandera As Int Dim bandera As Int
Dim errorImpresora As Int = 0
End Sub End Sub
Sub initialize Sub initialize
@@ -828,7 +829,7 @@ Sub B_IMP2_Click
c.Close c.Close
End If End If
LogColor(perfil,Colors.Magenta) LogColor(perfil,Colors.Magenta)
Log(1)
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa") c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
c.Position=0 c.Position=0
usuario = c.GetString("USUARIO") usuario = c.GetString("USUARIO")
@@ -842,17 +843,17 @@ Sub B_IMP2_Click
c.Close c.Close
ProgressDialogShow("Imprimiendo, un momento ...") ProgressDialogShow("Imprimiendo, un momento ...")
' Printer1.DisConnect Printer1.DisConnect
If Not(Printer1.IsConnected) Then If Not(Printer1.IsConnected) Then
Log("conectando 1") Log("conectando 1")
Printer1.Connect Printer1.Connect
Private cont As Int = 0 Private cont As Int = 0
Do While Not(impresoraConectada) Do While Not(impresoraConectada)
' Log("conectando ...")
Sleep(1000) Sleep(1000)
cont = cont + 1 cont = cont + 1
If cont = 2 Then Printer1.Connect 'Tratamos de reconectar Log("x")
If cont > 3 Then impresoraConectada = True If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
If cont > 15 Then impresoraConectada = True
Loop Loop
Sleep(500) Sleep(500)
impresoraConectada = False impresoraConectada = False
@@ -861,11 +862,10 @@ Sub B_IMP2_Click
Printer1.Connect Printer1.Connect
Private cont As Int = 0 Private cont As Int = 0
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected) Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
' Log("conectando ...")
Sleep(1000) Sleep(1000)
cont = cont + 1 cont = cont + 1
If cont = 2 Then Printer1.Connect If cont = 2 Then Printer1.Connect
If cont > 3 Then impresoraConectada = True If cont > 4 Then impresoraConectada = True
Loop Loop
Sleep(500) Sleep(500)
impresoraConectada = False impresoraConectada = False
@@ -1330,20 +1330,23 @@ Sub B_EXIBI_Click
End Sub End Sub
Sub Printer1_Connected (Success As Boolean) Sub Printer1_Connected (Success As Boolean)
Log("Impresora conectada.") ' If Logger Then Log("Printer1_Connected")
If Success Then If Success Then
Log("aqui estoy 1") ToastMessageShow("Impresora conectada", False)
ToastMessageShow("Connected successfully", False)
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP")) Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP", Starter.mac_impresora)) Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP",Starter.mac_impresora))
B_IMP.Enabled = True LogColor("Impresora conectada", Colors.Green)
impresoraConectada = False ' B_IMP2.Enabled = True
' Printer1.DisConnect impresoraConectada = True
Else Else
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") ' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") 'ignore
' If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore ' ToastMessageShow("Error conectando la impresora", False)
' StartPrinter LogColor("Error conectando la impresora", Colors.Red)
' End If errorImpresora = errorImpresora + 1
If errorImpresora > 1 Then
Starter.MAC_IMPRESORA = "0"
errorImpresora = 0
End If
End If End If
End Sub End Sub

2
B4A/Durakelo.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=1,3 ModuleClosedNodes7=1,3
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Productos,B4XPage_Appear,267,0,C_Principal,Class_Globals,0,0,C_Nota,Class_Globals,0,0,C_Principal,cargar_Click,958,0,C_Cliente,Class_Globals,0,0,Diseñador Visual,Cliente.bal,-100,1,C_Cliente,B_INV_Click,1117,0,C_Cliente,GPS_LocationChanged,362,0,C_Cliente,gest_Click,434,0,C_Cliente,B_VENTA_Click,1226,0,C_Cliente,B4XPage_Appear,296,0 NavigationStack=C_Cliente,Class_Globals,145,0,C_Principal,cargar_Click,958,0,C_Cliente,B_INV_Click,1117,0,C_Cliente,GPS_LocationChanged,362,0,C_Cliente,gest_Click,434,0,C_Cliente,B_VENTA_Click,1226,0,C_Cliente,B_IMP2_Click,846,5,C_Cliente,initialize,149,0,C_Cliente,Printer1_Connected,1344,1,C_Cliente,B_EXIBI_Click,1322,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=21,2,9,18,7,10,22,11,23,4 VisibleModules=21,2,9,18,7,10,22,11,23,4