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

se corrije que puedan ingresar productos en 0 y es la version final

Browse Source
This commit is contained in:
cvaldes1201
2024-05-16 13:42:31 -06:00
parent 43256a930b
commit eeabd06043
6 changed files with 85 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Principal.bas
View File

@@ -2244,7 +2244,8 @@ Sub resdia_Click
' c.Close
c=B4XPages.MainPage.skmt.ExecQuery("Select sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_CLIENTE <> 0 ")
c.Position = 0
l_monto_ks.Text = c.GetString("MONTO_DIA")
l_monto_ks.Text = Subs.traeTotalCliente
If l_monto_ks.Text = "null" Then
l_monto_ks.Text = "0"
End If
@@ -2252,7 +2253,7 @@ Sub resdia_Click
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As PREVENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("PREVENTA"))
If c.RowCount > 0 Then
c.Position = 0
L_PREVENTA.Text = c.GetString ("PREVENTA")
L_PREVENTA.Text = Subs.traeTotalClientepreventa
If L_PREVENTA.TEXT = "null" Then
L_PREVENTA.Text = "0"
End If
@@ -2261,7 +2262,7 @@ Sub resdia_Click
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As VENTA from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA"))
If c.RowCount > 0 Then
c.Position = 0
L_VENTA.Text = c.GetString ("VENTA")
L_VENTA.Text = Subs.traeTotalClienteventa
If L_VENTA.TEXT = "null" Then
L_VENTA.Text = "0"
End If
@@ -2270,7 +2271,7 @@ Sub resdia_Click
c=B4XPages.MainPage.skmt.ExecQuery2("Select sum(PE_COSTO_TOT) As ABORDO from pedido where PE_FOLIO = ? AND PE_CLIENTE = ?", Array As String ("ABORDO", "0"))
If c.RowCount > 0 Then
c.Position = 0
L_ABORDO.Text = c.GetString ("ABORDO")
L_ABORDO.Text = Subs.traeTotalClienteabordo
If L_ABORDO.TEXT = "null" Then
L_ABORDO.Text = "0"
End If