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

Para que guarde nombre y version de la aplicación en CAT_VARIABLES

Browse Source
This commit is contained in:
cheveguerra
2023-09-05 16:20:18 -06:00
parent 3d07336281
commit f6a74f4955
4 changed files with 374 additions and 370 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Cliente.bas
View File

@@ -128,7 +128,6 @@ Sub Class_Globals
Private b_like As Button
Private B_GPS As Button
Dim sc As JhsIceZxing1
Dim CODIGO As String
Private cb_factura As CheckBox
Private p_cbFactura As Panel
@@ -495,13 +494,13 @@ Sub HIST_Click
End Sub
Sub BT_QR_Click
sc.isportrait = True
sc.timeoutDuration = 45
sc.theViewFinderXfactor = 0.7
sc.theViewFinderYfactor = 0.5
sc.theResultColor = Colors.Green
sc.mustVibrate = True
sc.BeginScan("sc")
' sc.isportrait = True
' sc.timeoutDuration = 45
' sc.theViewFinderXfactor = 0.7
' sc.theViewFinderYfactor = 0.5
' sc.theResultColor = Colors.Green
' sc.mustVibrate = True
' sc.BeginScan("sc")
End Sub
Sub sc_result(atype As String,Values As String, image As Bitmap)