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

version final

Browse Source
This commit is contained in:
cvaldes1201
2024-06-07 13:04:59 -06:00
parent ee15d2289e
commit e5ad62d8b1
6 changed files with 337 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -561,6 +561,8 @@ Sub Guardar_Click
et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
End If
limitcred.Close
Else
GuardaVenta
End If
Else If pre_act = Starter.pre_viejo Then
@@ -592,6 +594,8 @@ Sub Guardar_Click
et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
End If
limitcred.Close
Else
GuardaVenta
End If
Else If pre_act = Starter.pre_viejo Then
@@ -630,12 +634,12 @@ Private Sub b_acred_Click
c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
If c.GetString("REGISTRADO") = 0 Then
MsgboxAsync("SI ENTRAMOS 3","Atención")
' MsgboxAsync("SI ENTRAMOS 3","Atención")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text))
GuardaVenta
p_credito.Visible = False
Else
MsgboxAsync("SI ENTRAMOS4","Atención")
' MsgboxAsync("SI ENTRAMOS4","Atención")
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text))
GuardaVenta
p_credito.Visible = False
@@ -649,12 +653,12 @@ Private Sub b_acred_Click
c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
If c.GetString("REGISTRADO") = 0 Then
MsgboxAsync("SI ENTRAMOS","Atención")
' MsgboxAsync("SI ENTRAMOS","Atención")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text))
GuardaVenta
p_credito.Visible = False
Else
MsgboxAsync("SI ENTRAMOS 2","Atención")
' MsgboxAsync("SI ENTRAMOS 2","Atención")
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text))
GuardaVenta
p_credito.Visible = False