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

- VERSION 4.08.14

Browse Source 
- Se corrigio que la categorias en "Resumen Dia" no reflejaban los RMI's
- Se agregó que si un pedido no esta impreso y se reinicia la aplicacion, al entrar a la pantalla principal se borre el pedido, y le avise al vendedor que se va a borrar!!
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-08-16 13:38:14 -06:00
parent 7de66f03ed
commit 84395efa44
5 changed files with 27 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/Subs.bas
View File

@@ -1492,7 +1492,7 @@ End Sub
'Borra los registros de la tabla "pedido" y "pedido_cliente"
'Actualiza las tablas "cat_gunaprod" o "cat_gunaprod2" y "kmt_info".
Sub borraPedidoClienteActual As String
Log($"Borramos pedido de ${traeCliente}"$)
Log($"Borramos pedido del cliente ${traeCliente}"$)
Private thisC As Cursor
' Private tablaProds As String = "cat_gunaprod2"
thisC = Starter.skmt.ExecQuery("select PE_PROID, PE_CANT, PE_CEDIS FROM PEDIDO where pe_cliente in (Select CUENTA from cuentaa) and PE_CEDIS <> 'DOE'")
@@ -1506,9 +1506,7 @@ Sub borraPedidoClienteActual As String
' 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
End If
Starter.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa) and PE_CEDIS <> 'DOE'")
'la intencion es que al borrar el pedido, y queda doe o normal, no se borre el cliente de pedido_cliente
thisC = Starter.skmt.ExecQuery($"select pe_cedis from pedido where pe_cliente in (Select CUENTA from cuentaa)"$)
If thisC.RowCount < 1 Then Starter.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")