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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-10-25 10:28:05 -06:00
parent 569b0ca166
commit a3c014e8ec
6 changed files with 77 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/C_Principal.bas
View File

@@ -162,6 +162,7 @@ Sub Class_Globals
Private l_montoColgateResumen As Label
Private l_nes_humedos As Label
Private l_nes_secos As Label
Private l_conagra As Label
End Sub
Sub initialize
@@ -2386,6 +2387,16 @@ Sub Resumen_Click
Loop
l_nes_secos.Text = NumberFormat2(cRes3, 1, 2, 2, True)
Private r9 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF LIKE '%CONAGRA%' AND PE_PROID = CAT_GP_ID"$)
Private cRes4 As String = 0
Do While r9.NextRow
cRes4 = cRes4 + r9.GetString("PE_COSTO_TOT")
Loop
l_conagra.Text = NumberFormat2(cRes4, 1, 2, 2, True)
b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
b.Position=0
Cuantos = b.GetString("CUANTOS")