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

Version: 5.04.28

Browse Source 
Se modifico el boton de guardar ya que necesitavamos revisar que la preventa a credito no fuera menor a $1000.00 pesos.

Se modifico la rutina de impresion de Preventa, ahora imprime ambos tickets, si encuentra credito o contado, la venta sigue igual.

Se modifico el Apper de Principal para que evalue si la preventa a credito ya esta correcta en caso que no, se borra y se genero una nueva rutina de borrado la cual solo borra preventa_credito.
This commit is contained in:
IsR0d
2025-04-30 16:19:11 -06:00
parent d8844799a3
commit 8c9fb021f7
12 changed files with 1428 additions and 851 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/C_Clientes.bas
View File

@@ -7,7 +7,6 @@ Version=11.5
Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
' Dim skmt As SQL
Dim c As Cursor
Dim c2 As Cursor
@@ -24,7 +23,6 @@ Sub Class_Globals
' Dim sc As Zxing_scanner
Dim CODIGO As String
Dim STIME As String
Dim ruta As String
Dim q_buscar As String
Private p_clientes As Panel
@@ -91,7 +89,6 @@ Sub B4XPage_Appear
cxc.Visible = True
End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then
@@ -217,7 +214,6 @@ Sub BUSCA_TextChanged (Old As String, New As String)
cxc.Visible = True
End If
d = B4XPages.MainPage.skmt.ExecQuery($"select IFNULL(CAT_CL_BCREDITO,0) AS CAT_CL_BCREDITO FROM kmt_info WHERE CAT_CL_CODIGO = '${c2.GetString("CAT_CL_CODIGO")}'"$)
' LogColor(d.RowCount,Colors.Blue)
If d.RowCount > 0 Then
@@ -234,7 +230,6 @@ Sub BUSCA_TextChanged (Old As String, New As String)
End If
Next
If c2.RowCount>0 Then
For i=0 To c2.RowCount -1
c2.Position=i
@@ -283,7 +278,6 @@ Sub BUSCA_TextChanged (Old As String, New As String)
End If
Next
If c2.RowCount>0 Then
For i=0 To c2.RowCount -1
c2.Position=i
@@ -400,7 +394,6 @@ Private Sub p_datosclie_Click
B4XPages.ShowPage("Cliente")
End If
' Log(Sender.As(Panel).tag)
End Sub