cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2024-07-01 10:08:30 -06:00
parent e63e18cacf
commit 6c6b183780
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/C_Principal.bas
View File

@@ -232,7 +232,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
'where pc_fecha = ?", Array As String(fecha) 'where pc_fecha = ?", Array As String(fecha)
C.Position=0 C.Position=0
b.Position=0 b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA") L_MONTOD.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
l_cuantosc.Text = c.GetString("CLIENTES_DIA") l_cuantosc.Text = c.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS") l_cuantosn.Text = b.GetString("CUANTOS")
drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA") drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
@@ -399,7 +399,7 @@ Sub B4XPage_Appear
'where pc_fecha = ?", Array As String(fecha) 'where pc_fecha = ?", Array As String(fecha)
C.Position=0 C.Position=0
b.Position=0 b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA") L_MONTOD.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
l_cuantosc.Text = c.GetString("CLIENTES_DIA") l_cuantosc.Text = c.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS") l_cuantosn.Text = b.GetString("CUANTOS")
@@ -2468,7 +2468,7 @@ Sub Resumen_Click
If E1.GetString("CUANTOS") > 0 Then If E1.GetString("CUANTOS") > 0 Then
c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA")) c=skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA"))
c.Position = 0 c.Position = 0
L_VENTA.Text = c.GetString("MONTO_DIA") L_VENTA.Text = numberformat2(c.GetString("MONTO_DIA"), 1, 2, 2, true)
c.Close c.Close
Else Else
L_VENTA.Text = 0 L_VENTA.Text = 0
@@ -2523,7 +2523,7 @@ Sub Resumen_Click
Else Else
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png") ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
End If End If
L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2) L_TICKPROM.Text = numberformat2(Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2), 1, 2, 2, true)
If c.GetString("MONTO_DIA") < 2500 Then If c.GetString("MONTO_DIA") < 2500 Then
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png") ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
Else if c.GetString("MONTO_DIA") > = 2500 And c.GetString("MONTO_DIA") < 4000 Then Else if c.GetString("MONTO_DIA") > = 2500 And c.GetString("MONTO_DIA") < 4000 Then

4
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Cliente,rb_p7no_CheckedChange,1768,0,C_Cliente,cuest_preguntaContestada,1784,0,C_Cliente,B_VENTA_Click,1243,0,C_Principal,JobDone,1193,2,C_Principal,connecta_Click,1991,3,C_Principal,Resumen_Click,2349,4,Diseñador Visual,Cliente.bal,-100,1,Diseñador Visual,principal.bal,-100,6,Subs,traePromosVendidas,997,0,Subs,traeMaxPromos,983,0 NavigationStack=C_Principal,connecta_Click,1991,3,Diseñador Visual,Cliente.bal,-100,1,Subs,traePromosVendidas,997,0,Subs,procesaPromocion,1010,0,Subs,traeMaxPromos,983,0,C_Principal,JobDone,1353,2,C_Principal,B4XPage_Created,228,0,C_Principal,B4XPage_Appear,395,0,Diseñador Visual,principal.bal,-100,6,C_Principal,Resumen_Click,2464,4
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,10,4,19,5,6,8,9,11,24,23 VisibleModules=2,10,4,19,5,6,8,9,11,24

BIN
B4A/Files/principal.bal
View File

Binary file not shown.