cheveguerra/Kelloggs_V3
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_V3.git synced 2026-04-17 21:06:22 +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

976
B4A/C_Cliente.bas
View File

File diff suppressed because it is too large Load Diff

16
B4A/C_Productos.bas
View File

@@ -305,9 +305,9 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
If c2.RowCount>0 Then
For i=0 To c2.RowCount -1
c2.Position=i
jpeg = c2.GetBlob("CAT_GP_IMG")
ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
bmp.Initialize2(ins)
' jpeg = c2.GetBlob("CAT_GP_IMG")
' ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
' bmp.Initialize2(ins)
ListView1.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"))
Next
End If
@@ -579,11 +579,11 @@ Sub HACER_PEDIDO
Else
nopromo.Visible = False
End If
Dim out As OutputStream
out = File.OpenOutput(ruta, "1.jpg", False)
out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length)
out.Close
img_prod.Bitmap = LoadBitmap(ruta,"1.jpg")
' Dim out As OutputStream
' out = File.OpenOutput(ruta, "1.jpg", False)
' out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length)
' out.Close
' img_prod.Bitmap = LoadBitmap(ruta,"1.jpg")
TOT_ART_PROMO = "0"
TOT_ART_PROMOR = "0"
If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And l_bodega.Text = "0" Then

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

2
B4A/KelloggsV3.b4a
View File

@@ -176,7 +176,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 3.11.09 RMI
#VersionName: 3.11.11 RMI
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

6
B4A/KelloggsV3.b4a.meta
View File

@@ -75,13 +75,13 @@ ModuleClosedNodes24=
ModuleClosedNodes25=
ModuleClosedNodes26=
ModuleClosedNodes27=
ModuleClosedNodes3=
ModuleClosedNodes3=22,23,24
ModuleClosedNodes4=
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Starter,Process_Globals,29,0,C_Cliente,Class_Globals,4,0,C_Cliente,JobDone,3119,0,Diseñador Visual,principal.bal,-100,2,C_Cliente,b_geopass_Click,3078,0,C_Cliente,B4XPage_Appear,574,3,C_Productos,HACER_PEDIDO,576,0,C_Cliente,Mods,0,0,C_Cliente,b_mapa_Click,923,0,C_Cliente,B_IMP2_Click,1367,1
NavigationStack=C_Productos,HACER_PEDIDO,392,0,C_TicketsDia,Activity_KeyPress,81,0,C_TicketsDia,Regresar_Click,79,0,C_TicketsDia,B4XPage_Appear,59,0,Visual Designer,cliente.bal,-100,1,C_Cliente,B_IMP_Click,1000,6,C_Cliente,B_IMP2_YYY_Click,1953,0,C_Cliente,b_mapa_Click,926,0,C_Cliente,B_IMP2_Click,1991,6,C_Cliente,B_IMP2_ZZZ_Click,1475,0
SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10,12
VisibleModules=1,2,3,4,5,6,7,8,9,10,12,14