cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-19 21:59:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.02.22

Browse Source 
- Corrección en Nota, al borrar un pedido completo por borrar producto de promo especial, no se estaba borrando el header en pedido_cliente 🤦🏽‍♂️
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-24 14:28:43 -06:00
parent 0b3a77cd25
commit c5f7c063d0
4 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Principal.bas
View File

@@ -449,7 +449,7 @@ Sub B4XPage_Appear
l_cuantosn.Text = b.GetString("CUANTOS")
b.close
Else
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ")
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO")
b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
c.Position=0
b.Position=0
@@ -475,7 +475,9 @@ Sub B4XPage_Appear
Else
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "palomita_verde.png")
End If
L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")),2)
Log("|" & c.GetString("MONTO_DIA") & "|")
Log("|" & c.GetString("CLIENTES_DIA") & "|")
L_TICKPROM.Text = Round2((c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")), 2)
If c.GetString("MONTO_DIA") < 4000 Then
ImageView5.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
Else if c.GetString("MONTO_DIA") > = 4000 And c.GetString("MONTO_DIA") < 6250 Then