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

cambios en resdia

Browse Source
This commit is contained in:
cvaldes1201
2024-06-18 19:08:28 -06:00
parent 62c147bf26
commit e63e18cacf
6 changed files with 63 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
B4A/C_Principal.bas
View File

@@ -160,6 +160,8 @@ Sub Class_Globals
Private l_monto_kc As Label
Private l_version As Label
Private l_montoColgateResumen As Label
Private l_nes_humedos As Label
Private l_nes_secos As Label
End Sub
Sub initialize
@@ -2366,6 +2368,21 @@ Sub Resumen_Click
cRes = cRes + r.GetString("PE_COSTO_TOT")
Loop
l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True)
Private r2 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF = 'NESTLE' AND CAT_GP_TIPO LIKE '%HUMEDOS%' AND PE_PROID = CAT_GP_ID"$)
Private cRes2 As String = 0
Do While r2.NextRow
cRes2 = cRes2 + r2.GetString("PE_COSTO_TOT")
Loop
l_nes_humedos.Text = NumberFormat2(cRes2, 1, 2, 2, True)
Private r3 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF = 'NESTLE' AND CAT_GP_TIPO LIKE '%SECOS%' AND PE_PROID = CAT_GP_ID"$)
Private cRes3 As String = 0
Do While r3.NextRow
cRes3 = cRes3 + r3.GetString("PE_COSTO_TOT")
Loop
l_nes_secos.Text = NumberFormat2(cRes3, 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")