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

Se añade clientes nuevos, mapa por cliente y modificaciones de ticket para saber si es a credito

Browse Source
This commit is contained in:
cvaldes1201
2024-11-12 15:22:39 -06:00
parent d170b3bf67
commit 80cb490150
9 changed files with 115 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
B4A/C_Cliente.bas
View File

@@ -163,6 +163,7 @@ Sub Class_Globals
Dim banderaimp As Int = 0
Dim k1,k2,k3 As String
Private b_ubicar As Button
End Sub
'You can add more parameters here.
@@ -1092,6 +1093,12 @@ Sub imprime_preventa
' Printer1.WriteString("Entre Calle2: " & l_entre2.Text & CRLF)
Printer1.WriteString(" " & CRLF)
c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA"))
Dim siesacredi As Cursor = skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If siesacredi.RowCount > 0 Then
Printer1.WriteString("------PREVENTA A CREDITO------" & CRLF)
End If
If c.RowCount > 0 Then
Printer1.WriteString("-----------PREVENTA-----------" & CRLF)
@@ -1332,6 +1339,22 @@ Sub imprime_preventa
' Printer1.WriteString(" " & CRLF)
End If
Dim siesacredi As Cursor = skmt.ExecQuery("SELECT * FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
If siesacredi.RowCount > 0 Then
siesacredi.Position = 0
Printer1.WriteString("Total a credito: $" & NumberFormat( siesacredi.GetString("PA_MONTO"),0,2) & CRLF)
s=skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String("PREVENTA"))
s.Position =0
' If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
' Printer1.WriteString("Descuento: $" & (s.GetString("TOTAL2") - s.GetString("TOTAL")))
' End If
' Printer1.WriteString("Total preventa: $" & NumberFormat( s.GetString("TOTAL"),0,2) & CRLF)
If s.GetString("TOTAL") > siesacredi.GetString("PA_MONTO") Then
Printer1.WriteString("Total a contado: $" & NumberFormat( (s.GetString("TOTAL")-siesacredi.GetString("PA_MONTO")),0,2) & CRLF)
End If
s.Close
End If
' Printer1.WriteString(" " & CRLF)
' Printer1.WriteString("------------------------------" & CRLF)
@@ -2628,4 +2651,8 @@ End Sub
Private Sub b_cxc_LongClick
' imprime_pagare
End Sub
Private Sub b_ubicar_Click
StartActivity(MAPA_CLIENTE)
End Sub