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

Verion 05_01_05

Browse Source 
Se agrega apartado de productos
Se agrega leyenda de texto en el ticket
Se agrega listado de resumen dia por producto
Se agrega limitador de venta por monto
Se agrega que no se pueda editar ninguna venta una vez guardada
This commit is contained in:
cvaldes1201
2025-01-07 18:03:25 -06:00
parent 580dd54721
commit 56c80c69ed
21 changed files with 679 additions and 374 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/Subs.bas
View File

@@ -914,9 +914,10 @@ Sub traeTotalClientepreventa As Double
Return sumaTotal
End Sub
Sub traeTotalClientepreventaparacredito As Double
Private sumaTotal As Double
Private cursorprueba As Cursor = B4XPages.MainPage.skmt.ExecQuery2("Select PE_COSTO_TOT from pedido where PE_FOLIO = ? AND PE_CLIENTE <> 0 AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)", Array As String ("PREVENTA_24"))
Sub traeTotalClientepreventaparacredito(clientepedido As String) As Double
Private sumaTotal As Double = 0
LogColor(clientepedido,Colors.Red)
Private cursorprueba As Cursor = B4XPages.MainPage.skmt.ExecQuery2("Select PE_COSTO_TOT from pedido where PE_CLIENTE = ? and PE_IMPRESO IS NOT NULL", Array As String(clientepedido))
For i= 0 To cursorprueba.RowCount -1
cursorprueba.Position = i
' LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
@@ -1460,7 +1461,8 @@ Sub borraPedidoClienteActual As String
For i=0 To thisC.RowCount -1
thisC.Position = i
' Log(thisC.GetString("PE_TIPO") & "|" & traeTablaProds(thisC.GetString("PE_TIPO")))
Starter.skmt.ExecNonQuery($"update ${traeTablaProds(thisC.GetString("PE_FOLIO"))} set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
Starter.skmt.ExecNonQuery($"update CAT_GUNAPROD2 set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$)
LogColor($"update ${traeTablaProds(thisC.GetString("PE_FOLIO"))} set cat_gp_almacen = cat_gp_almacen + ${thisC.GetString("PE_CANT")} where cat_gp_id = '${thisC.GetString("PE_PROID")}'"$, Colors.red)
' Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen, thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1))
Next