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

5.08.12

Browse Source
This commit is contained in:
Javier
2026-01-15 08:41:36 -06:00
parent beceec8c98
commit 7ccb902593
4 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/C_picking.bas
View File

@@ -244,7 +244,7 @@ Sub btnFlash_Click
End If
Dim flash As String = "torch"
' LogColor(flash,Colors.Red)
camEx.SetFlashMode(flash)
' camEx.SetFlashMode(flash)
ToastMessageShow(flash, False)
camEx.CommitParameters
End Sub
@@ -421,6 +421,7 @@ Private Sub b_guardapicking_Click
Private preciobo As Float
c = Starter.skmt.ExecQuery2("SELECT CAJASPIEZAS, BLISTERPIEZAS, PRECIO FROM CAT_CONVERSION WHERE ID = ? AND NOMBRE = ?", Array As String(et_codigo.Text, l_nombreproducto.Text))
Log(et_codigo.Text&" , "& l_nombreproducto.Text)
d = Starter.skmt.ExecQuery2("SELECT CANTIDAD FROM CAT_DETALLEFOLIO WHERE CAT_DF_ID = ? AND CAT_DF_NOMBRE = ?",Array As String(et_codigo.Text, l_nombreproducto.Text))
d.Position = 0
c.Position = 0