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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-01-31 10:28:19 -06:00
parent 2235c6157a
commit 88f693759d
7 changed files with 44 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
B4A/C_Cliente.bas
View File

@@ -149,6 +149,7 @@ Sub Class_Globals
Dim itemselect2 As String
Dim pregunta7 As String
Dim bandera As Int
Dim errorImpresora As Int = 0
End Sub
Sub initialize
@@ -205,6 +206,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
B_VENTA.Enabled = True
If Subs.traeCliente = 0 Then B_VENTA.Enabled = False
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
If c.RowCount > 0 Then
c.Position = 0
@@ -435,6 +439,7 @@ Sub gest_Click
' End If
' Else If la_cuenta.Text = "0" Then
' Starter.tipov = "PREVENTA"
' If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO"
' B4XPages.ShowPage("Productos")
' End If
Starter.tipov = "PREVENTA"
@@ -1228,7 +1233,7 @@ Sub B_VENTA_Click
' Starter.tipov = "VENTA"
' B4XPages.ShowPage("Productos")
' End If
'
Starter.tipov = "VENTA"
'StartActivity(colonia2)
B4XPages.ShowPage("Productos")
@@ -1330,23 +1335,44 @@ Sub B_EXIBI_Click
End Sub
Sub Printer1_Connected (Success As Boolean)
Log("Impresora conectada.")
' If Logger Then Log("Printer1_Connected")
If Success Then
Log("aqui estoy 1")
ToastMessageShow("Connected successfully", False)
ToastMessageShow("Impresora conectada", False)
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))
B_IMP.Enabled = True
impresoraConectada = False
' Printer1.DisConnect
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP",Starter.mac_impresora))
LogColor("Impresora conectada", Colors.Green)
' B_IMP2.Enabled = True
impresoraConectada = True
Else
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.")
' If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore
' StartPrinter
' End If
' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") 'ignore
' ToastMessageShow("Error conectando la impresora", False)
LogColor("Error conectando la impresora", Colors.Red)
errorImpresora = errorImpresora + 1
If errorImpresora > 1 Then
Starter.MAC_IMPRESORA = "0"
errorImpresora = 0
End If
End If
End Sub
'Sub Printer1_Connected (Success As Boolean)
' Log("Impresora conectada.")
' If Success Then
' Log("aqui estoy 1")
' ToastMessageShow("Connected successfully", False)
' 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))
' B_IMP.Enabled = True
' impresoraConectada = False
'' Printer1.DisConnect
' Else
'' Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.")
'' If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore
'' StartPrinter
'' End If
' End If
'End Sub
Sub StartPrinter
Dim PairedDevices As Map
Dim L As List