cheveguerra/Guna_Reparto_Diseno_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Diseno_Viejo.git synced 2026-04-22 07:00:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

cambios en la carga

Browse Source
This commit is contained in:
cvaldes1201
2024-04-08 10:33:25 -06:00
parent 97e92b1b2d
commit 78a8f54c1d
6 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
B4A/C_Cliente.bas
View File

@@ -150,10 +150,19 @@ Sub B4XPage_Appear
' l_total.Text = s.GetString("TOTAL_CLIE")
CREDITO = C.GetString("CAT_CL_BCREDITO")
Private cym As Map = Subs.traeCantYMonto2(Subs.traeCliente)
L_CANT.Text = cym.Get("cantidad")
l_total.Text = Round2(cym.Get("monto"), 2)
c=Starter.skmt.ExecQuery("select count(*) as EXISTE from HIST_VENTAS WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) and HVD_RECHAZO = 0 ")
C.Position=0
Dim Existe As String = C.GetString("EXISTE")
C.Close
If Existe <> 0 Then
c = Starter.skmt.ExecQuery("select SUM(HVD_CANT) AS PC_NOART, SUM(HVD_COSTO_TOT) AS PC_MONTO from HIST_VENTAS where HVD_CLIENTE in (Select CUENTA from cuentaa) and HVD_RECHAZO = 0 and hvd_codpromo <> HVD_PROID ")
C.Position=0
L_CANT.Text = c.GetString("PC_NOART")
l_total.Text = Round2(c.GetString("PC_MONTO"), 2)
End If
' Private cym As Map = Subs.traeCantYMonto2(Subs.traeCliente)
' L_CANT.Text = cym.Get("cantidad")
' l_total.Text = Round2(cym.Get("monto"), 2)
If CREDITO = "1" Then
Msgbox("AVISO","SE TIENE QUE IMPRIMIR PAGARÉ") 'ignore