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

- Correccion al codigo de pedido sugerido, al aceptar pedido sugerido se borraba el pedido del ultimo cliente con venta.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-04 13:10:08 -06:00
parent a5b4a27836
commit 72594321c5
8 changed files with 58 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
B4A/C_Principal.bas
View File

@@ -424,7 +424,7 @@ Sub B4XPage_Appear
c.Close
' Subs.guardaUltimaActividadBD("principal")
' Revisamos si hay abordo y si SI hay y no esta impreso, lo borramos.
' Revisamos si hay abordo y si SI hay y no esta impreso, lo borramos.
Private imp As ResultSet = Starter.skmt.ExecQuery("select IMPRESION from kmt_info where CAT_CL_CODIGO = '0'") 'Revisamos si el cliente 0 esta impreso.
Private abordoImpreso As Boolean = False
Do While imp.NextRow
@@ -436,7 +436,6 @@ Sub B4XPage_Appear
LogColor("BORRAMOS PEDIDO DE ABORDO PORQUE NO ESTA IMPRESO", Colors.red)
' Starter.skmt.ExecNonQuery("delete from PEDIDO where PE_CLIENTE = '0'") 'Borramos el abordo si no esta impreso.
Subs.actualizaProducto(ALMACEN, 0, 0, ab.GetString("PE_PRONOMBRE"), ab.GetString("PE_PROID"), ab.GetString("PE_CLIENTE"), Subs.traeFecha, Subs.traeUsuarioDeBD, ab.GetString("PE_RUTA"), 0, ab.GetString("PE_TIPO"))
End If
Loop
@@ -2555,18 +2554,20 @@ Sub B_PROXIMA_Click
Wait For Msgbox_Result (result As Int)
If result = DialogResponse.POSITIVE Then
' If horaentrada Then
For i = 0 To e.RowCount - 1
e.Position = i
c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(e.GetString("ID_PRODUCTO")))
If c.RowCount > 0 Then
c.Position = 0
Subs.actualizaProducto(e.GetString("ALMACEN"), c.GetString("CAT_GP_PRECIO"),e.GetString("PROMEDIO"), c.GetString("CAT_GP_NOMBRE"), e.GetString("ID_PRODUCTO"),"0",Subs.traeFecha,usuario,e.GetString("RUTA"),c.GetString("CAT_GP_PRECIO"),"ABORDO")
End If
Next
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
Starter.tipov = "ABORDO"
B4XPages.ShowPage("Productos")
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0")) ' Ponemos el cliente actual en 0
For i = 0 To e.RowCount - 1
e.Position = i
c = Starter.skmt.ExecQuery2("SELECT * FROM CAT_GUNAPROD WHERE CAT_GP_ID = ?",Array As String(e.GetString("ID_PRODUCTO")))
If c.RowCount > 0 Then
c.Position = 0
Subs.actualizaProducto(e.GetString("ALMACEN"), c.GetString("CAT_GP_PRECIO"),e.GetString("PROMEDIO"), c.GetString("CAT_GP_NOMBRE"), e.GetString("ID_PRODUCTO"),"0",Subs.traeFecha,usuario,e.GetString("RUTA"),c.GetString("CAT_GP_PRECIO"),"ABORDO")
End If
Next
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
Starter.tipov = "ABORDO"
B4XPages.ShowPage("Productos")
' End If
Else If result = DialogResponse.NEGATIVE Then
' If horaentrada Then