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

Version final, se agrega modulo para pagares y correcciones menores

Browse Source
This commit is contained in:
cvaldes1201
2024-05-21 14:00:36 -06:00
parent 1651960f88
commit 556f986084
12 changed files with 179 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
B4A/Subs.bas
View File

@@ -847,6 +847,20 @@ Sub traeTotalClientepreventa As Double
Return sumaTotal
End Sub
Sub traeTotalClientepreventaparacredito As Double
Private sumaTotal As Double
Private cursorprueba As Cursor = B4XPages.MainPage.skmt.ExecQuery2("Select PE_COSTO_TOT from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0 AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String ("PREVENTA"))
For i= 0 To cursorprueba.RowCount -1
cursorprueba.Position = i
' LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
sumaTotal = sumaTotal + cursorprueba.GetString("PE_COSTO_TOT")
sumaTotal = NumberFormat2(sumaTotal, 0, 2, 2, False)
' Log(NumberFormat2(sumaTotal, 0, 2, 2, False))
Next
cursorprueba.Close
Return sumaTotal
End Sub
Sub traeTotalClienteventa As Double
Private sumaTotal As Double
Private cursorprueba As Cursor = B4XPages.MainPage.skmt.ExecQuery2("Select PE_COSTO_TOT from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0", Array As String ("VENTA"))