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

Se le agrego la validacion, si ya abono al pagare y lo liquida, con eso ya lo deja meter venta

Browse Source
This commit is contained in:
IsR0d
2024-05-22 18:27:24 -06:00
parent 3046ec99bc
commit ee15d2289e
3 changed files with 36 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
B4A/C_Cliente.bas
View File

@@ -569,18 +569,47 @@ Sub Guardar_Click
Else If Credi.GetString("CAT_CL_BCREDITO") = "0" Then
GuardaVenta
GuardaVenta
End If
Else
GuardaVenta
ToastMessageShow("HOLA",True)
Dim credi2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_BCREDITO, a_abono, SALDO_PENDIENTE FROM KMT_INFO INNER JOIN ABONOSP ON CAT_CL_CODIGO = CLIENTE INNER JOIN ABONOS ON CAT_CL_CODIGO = a_cliente WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
If credi2.RowCount > 0 Then
credi2.Position = 0
If credi2.GetString ("CAT_CL_BCREDITO") = "1" And credi2.GetString ("a_abono")=credi2.GetString ("SALDO_PENDIENTE") Then
If pre_act <> Starter.pre_viejo Then
Msgbox2Async("La venta es a credito?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then
p_credito.Visible = True
Dim limitcred As Cursor
limitcred = B4XPages.MainPage.skmt.ExecQuery("SELECT CAT_CL_LIMITECREDITO FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
limitcred.Position = 0
l_limite.Text = "Limite de credito: $" & limitcred.GetString("CAT_CL_LIMITECREDITO")
If Subs.traeTotalClientepreventaparacredito >= limitcred.GetString("CAT_CL_LIMITECREDITO") Then
et_montoacredito.Text = limitcred.GetString("CAT_CL_LIMITECREDITO")
Else
et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
End If
limitcred.Close
End If
Else If pre_act = Starter.pre_viejo Then
GuardaVenta
End If
Else
GuardaVenta
End If
End If
End If
' Credi.Close
Else If la_cuenta.Text = 0 Then
GuardaVenta
End If
Else If c.GetString("CUANTOS") = 0 Then
GuardaVenta
End If
' c.Close
End Sub
Private Sub b_acred_Click