cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-20 12:49:25 +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)
C.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_cuantosn.Text = b.GetString("CUANTOS")
drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
@@ -399,7 +399,7 @@ Sub B4XPage_Appear
'where pc_fecha = ?", Array As String(fecha)
C.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_cuantosn.Text = b.GetString("CUANTOS")
@@ -2468,7 +2468,7 @@ Sub Resumen_Click
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.Position = 0
L_VENTA.Text = c.GetString("MONTO_DIA")
L_VENTA.Text = numberformat2(c.GetString("MONTO_DIA"), 1, 2, 2, true)
c.Close
Else
L_VENTA.Text = 0
@@ -2523,7 +2523,7 @@ Sub Resumen_Click
Else
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
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
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
Else if c.GetString("MONTO_DIA") > = 2500 And c.GetString("MONTO_DIA") < 4000 Then