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

Merge branch 'main' of https://github.com/KeymonSoft/Kelloggs_V3

Browse Source
This commit is contained in:
cvaldes1201
2023-11-13 12:18:58 -06:00
parent 1e0ac1c480 f2b26e264d
commit b6ee21ec5f
5 changed files with 982 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

978
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 If c2.RowCount>0 Then
For i=0 To c2.RowCount -1 For i=0 To c2.RowCount -1
c2.Position=i c2.Position=i
jpeg = c2.GetBlob("CAT_GP_IMG") ' jpeg = c2.GetBlob("CAT_GP_IMG")
ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length) ' ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
bmp.Initialize2(ins) ' bmp.Initialize2(ins)
ListView1.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO")) ListView1.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"))
Next Next
End If End If
@@ -579,11 +579,11 @@ Sub HACER_PEDIDO
Else Else
nopromo.Visible = False nopromo.Visible = False
End If End If
Dim out As OutputStream ' Dim out As OutputStream
out = File.OpenOutput(ruta, "1.jpg", False) ' out = File.OpenOutput(ruta, "1.jpg", False)
out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length) ' out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length)
out.Close ' out.Close
img_prod.Bitmap = LoadBitmap(ruta,"1.jpg") ' img_prod.Bitmap = LoadBitmap(ruta,"1.jpg")
TOT_ART_PROMO = "0" TOT_ART_PROMO = "0"
TOT_ART_PROMOR = "0" TOT_ART_PROMOR = "0"
If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And l_bodega.Text = "0" Then 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")) 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 For i= 0 To cursorprueba.RowCount -1
cursorprueba.Position = i 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 = sumatotal + cursorprueba.GetString("PE_COSTO_TOT")
sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False) sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False)
Log(NumberFormat2(sumatotal, 0, 2, 2, False)) ' Log(NumberFormat2(sumatotal, 0, 2, 2, False))
Next Next
cursorprueba.Close cursorprueba.Close

2
B4A/KelloggsV3.b4a
View File

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

6
B4A/KelloggsV3.b4a.meta
View File

@@ -75,13 +75,13 @@ ModuleClosedNodes24=
ModuleClosedNodes25= ModuleClosedNodes25=
ModuleClosedNodes26= ModuleClosedNodes26=
ModuleClosedNodes27= ModuleClosedNodes27=
ModuleClosedNodes3= ModuleClosedNodes3=22,23,24
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5= ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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_TicketsDia,Regresar_Click,79,0,C_TicketsDia,B4XPage_Appear,59,0,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,Visual Designer,cliente.bal,-100,2,B4XMainPage,JobDone,456,0,C_Cliente,B4XPage_CloseRequest,810,0,C_Cliente,b_geopass_Click,4045,0
SelectedBuild=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