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

Completa hasta hoy

Browse Source
This commit is contained in:
Javier
2025-11-06 11:26:24 -06:00
parent 03a38f908f
commit 76a26a92bb
10 changed files with 212 additions and 2451 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
B4A/C_Cliente.bas
View File

@@ -428,7 +428,7 @@ Sub B4XPage_Appear
Else
p_cbFactura.Visible = True
l_factura.Visible = True
b_ventaabordo.Visible = True
b_ventaabordo.Visible = False
End If
@@ -479,7 +479,7 @@ Sub B4XPage_Appear
b_venta_credito.Visible = False
Else If credi2.GetString ("SALDO_PENDIENTE") = credi3.GetString ("a_abono") Then
Log("AQUI ESTOY SI VISIBLE BOTON")
b_venta_credito.Visible = True
b_venta_credito.Visible = False ''' AQUI ACTIVAR PARA CREDITOS
End If
Else
MsgboxAsync("La venta sera en efectivo por que hay un pagare pendiente de pago","Atención")
@@ -487,7 +487,7 @@ Sub B4XPage_Appear
End If
credi3.Close
Else If credi2.GetString("SALDO_PENDIENTE") = 0 Then
b_venta_credito.Visible = True
b_venta_credito.Visible = False '' AQUI ACTIVAR
End If
Else
@@ -570,7 +570,7 @@ Sub GPS_LocationChanged (Location1 As Location)
Tels.Visible = True
gest.Visible = True
Else
If distance < 500000000000000000000000000000000000000000 Then
If distance < 50 Then
LA_GEO.TextColor = Colors.Blue
Tels.Visible = True
gest.Visible = True
@@ -721,29 +721,29 @@ Sub Guardar_Click
Dim costo As String = fg.GetString("COSTO")
If costo > 0 And costo < 1000 Then
' Msgbox2Async($"¿Desea continuar?${CRLF}Si acepta, el pedido a crédito se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
' Wait For Msgbox_Result (resultado As Int)
' If resultado = DialogResponse.POSITIVE Then
' Subs.borraPedidoCredito
Msgbox2Async($"¿Desea continuar?${CRLF}Si acepta, el pedido a crédito se borrará (mínimo $1,000).${CRLF}Si cancela, podrá seguir agregando productos."$,"Venta Minima de Credito", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
Wait For Msgbox_Result (resultado As Int)
If resultado = DialogResponse.POSITIVE Then
Subs.borraPedidoCredito
GuardaVenta
' End If
' End If
End If
Else If costo >= 1000 Then
' Dim cPagares As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
' cPagares.Position = 0
' If cPagares.GetString("REGISTRADO") = 0 Then
' 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), costo, usuario, la_cuenta.Text))
' Log("Aqui inserto: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<")
Dim cPagares As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
cPagares.Position = 0
If cPagares.GetString("REGISTRADO") = 0 Then
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), costo, usuario, la_cuenta.Text))
Log("Aqui inserto: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<")
GuardaVenta
' p_credito.Visible = False
' Else
' 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))
' Log("Aqui actualizo: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<")
p_credito.Visible = False
Else
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))
Log("Aqui actualizo: " & "Almacen: " & ALMACEN & "Ruta " & LA_RUTA & "Fecha: " & (sDate &" "& sTime) & "Captura: " & (sDate &" "& sTime) & "Monto: " & costo & "Usuario: " & usuario & "Cliente: " & la_cuenta.Text & "<<<<<<<<<<<<<<<<<<<<<")
GuardaVenta
' p_credito.Visible = False
' End If
' cPagares.Close
' GuardaVenta
p_credito.Visible = False
End If
cPagares.Close
GuardaVenta
End If
fg.Close
End If