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

12/11/23 - Correccion al imprimir ticket con RMI

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-12 23:36:10 -06:00
parent decbeadbdf
commit 4b979c064b
5 changed files with 981 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_TicketsDia.bas
View File

@@ -66,11 +66,11 @@ Sub B4XPage_Appear
cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente = ? AND PE_CEDIS <> ?", Array As String(c.GetString("PC_CLIENTE"),"DOE"))
For i= 0 To cursorprueba.RowCount -1
cursorprueba.Position = i
LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
' LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
sumatotal = sumatotal + cursorprueba.GetString("PE_COSTO_TOT")
sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False)
Log(NumberFormat2(sumatotal, 0, 2, 2, False))
' Log(NumberFormat2(sumatotal, 0, 2, 2, False))
Next
cursorprueba.Close