mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-20 11:39:13 +00:00
- VERSION 5.12.10
- Codigo de prueba para envio de pedido en BATCH - Se amplio el panel de las notificaciones - Si no hay presupuesto para bonificaciones NO se muestra la opcion de PROMOS en "Productos"
This commit is contained in:
@@ -300,6 +300,7 @@ Sub Class_Globals
|
||||
Private l_notificacionTexto As Label
|
||||
Private l_notificacionTitulo As Label
|
||||
Private b_notificacion As Button
|
||||
Dim reqManagerW As DBRequestManagerW
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -426,6 +427,7 @@ Sub B4XPage_Appear
|
||||
' Log(Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
|
||||
|
||||
reqManager.Initialize(Me, Starter.DBReqServer)
|
||||
reqManagerW.Initialize
|
||||
usarGeocerca = kh.traeUsarGeocerca
|
||||
|
||||
'Para el almacen 12 (GDL) no se usa la geocerca
|
||||
@@ -1027,7 +1029,7 @@ Sub Guardar_Click
|
||||
Starter.skmt.ExecNonQuery("delete from NOVENTA where NV_CLIENTE In (select cuenta from cuentaa)")
|
||||
Starter.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE In (select cuenta from cuentaa)")
|
||||
If logger Then LogColor($"Insertamos coordenadas en pedido: ${Starter.lon_gps}, ${Starter.lat_gps}"$, Colors.Magenta)
|
||||
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?)", Array As Object(clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), Starter.lon_gps, Starter.lat_gps))
|
||||
Starter.skmt.ExecNonQuery2("insert into pedido_cliente(PC_RUTA, PC_ALMACEN, PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object(Subs.traeAlmacen, Subs.traeRuta, clie_id, sDate & sTime, usuario, c.GetString("CANT_CLIE"),c.GetString("TOTAL_CLIE"), Starter.lon_gps, Starter.lat_gps))
|
||||
Log("Actualizamos gestion")
|
||||
Starter.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
|
||||
End If
|
||||
@@ -1069,6 +1071,8 @@ Sub Guardar_Click
|
||||
b_inicioFinVenta.Text = "TERMINAR VENTA"
|
||||
Log("RESPALDO")
|
||||
kh.RD_respaldoBatch
|
||||
|
||||
' Subir_Pedido_Con_Integridad(clie_id)
|
||||
|
||||
mandaPendientes
|
||||
|
||||
@@ -1085,8 +1089,9 @@ Sub Guardar_Click
|
||||
End Sub
|
||||
|
||||
Sub mandaPendientes
|
||||
B4XPages.MainPage.principal.enviaPedido(Null)
|
||||
B4XPages.MainPage.principal.enviaPedidoCliente(Null)
|
||||
' B4XPages.MainPage.principal.enviaPedido(Null)
|
||||
' B4XPages.MainPage.principal.enviaPedidoCliente(Null)
|
||||
B4XPages.MainPage.principal.enviaPedidoBatch(Null)
|
||||
End Sub
|
||||
|
||||
Sub NUEVO_Click
|
||||
@@ -4472,4 +4477,135 @@ Private Sub b_notificacion_Click
|
||||
cmd.Name = "updateHistNotificacionesMotivo"
|
||||
cmd.Parameters = Array As Object("", DateTime.Date(DateTime.Now), Subs.traeRuta, usuario, Subs.traeAlmacen, clienteId)
|
||||
reqManager.ExecuteCommand(cmd , "updateHistNotificacionesMotivo")
|
||||
End Sub
|
||||
|
||||
' Subrutina principal para subir pedidos con validación de integridad ARCH
|
||||
' Llama a esto desde tu botón Subir_Click
|
||||
' Devuelve un ResumableSub que puedes esperar con Wait For
|
||||
Sub Subir_Pedido_Con_Integridad(cliente As String) As ResumableSub
|
||||
|
||||
Log("--- Iniciando Envío Seguro para Cliente: " & cliente & " ---")
|
||||
|
||||
' 1. Generar ARCH (Identificador Único del Paquete)
|
||||
Dim Arch As String = Subs.traeAlmacen & "_" & Subs.traeRuta & "_" & cliente & "_" & DateTime.Now
|
||||
|
||||
' 2. Marcar registros pendientes con este ARCH localmente
|
||||
' CORRECCIÓN CRÍTICA: El orden es (Valor_a_Asignar, Filtro) -> (Arch, cliente)
|
||||
Starter.skmt.ExecNonQuery2($"UPDATE PEDIDO SET PE_ARCH = ? WHERE PE_CLIENTE = ? AND PE_ENVIADO = 0"$, Array As Object(Arch, cliente))
|
||||
Starter.skmt.ExecNonQuery2($"UPDATE PEDIDO_CLIENTE SET PC_ARCH = ? WHERE PC_CLIENTE = ? AND PC_ENVIADO = 0"$, Array As Object(Arch, cliente))
|
||||
|
||||
' 3. Contar qué vamos a enviar
|
||||
Dim cCheck As Cursor = Starter.skmt.ExecQuery($"SELECT COUNT(*) as total FROM PEDIDO WHERE PE_ARCH = '${Arch}'"$)
|
||||
cCheck.Position = 0
|
||||
Dim TotalProductosLocal As Int = cCheck.GetInt("total")
|
||||
cCheck.Close
|
||||
|
||||
If TotalProductosLocal = 0 Then
|
||||
Log("Nada pendiente para enviar con este ARCH.")
|
||||
Return "Vacio"
|
||||
End If
|
||||
|
||||
Log($"Total a enviar: ${TotalProductosLocal} productos. ID Paquete: ${Arch}"$)
|
||||
|
||||
Dim envioCorrecto As Boolean = True
|
||||
|
||||
' 4. Enviar Encabezados (PEDIDO_CLIENTE)
|
||||
Log("Enviando encabezado con ARCH: " & Arch)
|
||||
Private cx As Cursor = Starter.skmt.ExecQuery($"SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_ENVIADO, PC_ARCH FROM PEDIDO_CLIENTE WHERE PC_ARCH = '${Arch}'"$)
|
||||
|
||||
If cx.RowCount > 0 Then
|
||||
For i = 0 To cx.RowCount - 1
|
||||
cx.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedidos_KELL_arch"
|
||||
|
||||
cmd.Parameters = Array As Object(cx.GetString("PC_CLIENTE"), cx.GetString("PC_FECHA"), cx.GetString("PC_USER"), cx.GetString("PC_NOART"), cx.GetString("PC_MONTO"), cx.GetString("PC_LON"), cx.GetString("PC_LAT"), cx.GetString("PC_ALMACEN"), cx.GetString("PC_RUTA"), cx.GetString("PC_COSTO_SIN"), cx.GetString("PC_ARCH"))
|
||||
Log($"insert_pedidos_KELL_arch: ${cx.GetString("PC_CLIENTE")}, ${cx.GetString("PC_FECHA")}, ${cx.GetString("PC_USER")}, ${cx.GetString("PC_NOART")}, ${cx.GetString("PC_MONTO")}, ${cx.GetString("PC_LON")}, ${cx.GetString("PC_LAT")}, ${cx.GetString("PC_ALMACEN")}, ${cx.GetString("PC_RUTA")}, ${cx.GetString("PC_COSTO_SIN")}, ${cx.GetString("PC_ARCH")}"$)
|
||||
|
||||
reqManagerW.ExecuteCommand(Starter.DBReqServer, cmd, Me, "header_envio")
|
||||
|
||||
Wait For header_envio_Completed (ResultHeader As TResultado)
|
||||
|
||||
If ResultHeader.Success = False Then
|
||||
Log("Error crítico enviando encabezado: " & ResultHeader.ErrorMessage)
|
||||
envioCorrecto = False
|
||||
Exit
|
||||
End If
|
||||
Next
|
||||
cx.Close
|
||||
End If
|
||||
|
||||
If envioCorrecto = False Then
|
||||
Msgbox("Error al enviar encabezado del pedido. Intente nuevamente.", "Error de Conexión")
|
||||
Return "Error PC"
|
||||
End If
|
||||
|
||||
' 5. Enviar Detalles (PEDIDO)
|
||||
Log("Enviando detalle con ARCH: " & Arch)
|
||||
Private cPed As Cursor = Starter.skmt.ExecQuery($"SELECT PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, PE_DESC, PE_FOLIO, PE_TIPO, PE_ARCH FROM PEDIDO WHERE PE_ARCH = '${Arch}'"$)
|
||||
|
||||
If cPed.RowCount > 0 Then
|
||||
For i = 0 To cPed.RowCount - 1
|
||||
cPed.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedido_KELL_arch"
|
||||
|
||||
cmd.Parameters = Array As Object(cPed.GetString("PE_CEDIS"), Subs.traeAlmacen, cPed.GetString("PE_COSTO_TOT"), cPed.GetString("PE_COSTOU"), cPed.GetString("PE_CANT"), cPed.GetString("PE_PRONOMBRE"), cPed.GetString("PE_PROID"), cPed.GetString("PE_CLIENTE"), cPed.GetString("PE_FECHA"), cPed.GetString("PE_USUARIO"), cPed.GetString("PE_RUTA"), cPed.GetString("PE_COSTO_SIN"), cPed.GetString("PE_DESC"), cPed.GetString("PE_FOLIO"), cPed.GetString("PE_TIPO"), cPed.GetString("PE_ARCH"))
|
||||
|
||||
reqManagerW.ExecuteCommand(Starter.DBReqServer, cmd, Me, "detalle_envio")
|
||||
|
||||
Wait For detalle_envio_Completed (ResultDet As TResultado)
|
||||
|
||||
If ResultDet.Success = False Then
|
||||
Log("Error enviando producto " & cPed.GetString("PE_PRONOMBRE"))
|
||||
envioCorrecto = False
|
||||
Exit
|
||||
End If
|
||||
Next
|
||||
cPed.Close
|
||||
End If
|
||||
|
||||
If envioCorrecto = False Then
|
||||
Return "Error PE"
|
||||
End If
|
||||
|
||||
' 6. VALIDACIÓN FINAL
|
||||
Log("Validando integridad con Oracle...")
|
||||
|
||||
Dim cmdVal As DBCommand
|
||||
cmdVal.Initialize
|
||||
cmdVal.Name = "validar_integridad_arch"
|
||||
cmdVal.Parameters = Array As Object(Arch, TotalProductosLocal)
|
||||
|
||||
reqManagerW.ExecuteQuery(Starter.DBReqServer, cmdVal, Me, "validacion_integridad")
|
||||
Wait For validacion_integridad_Completed (ResultVal As TResultado)
|
||||
|
||||
If ResultVal.Success Then
|
||||
Dim estado As String = ""
|
||||
For Each row() As Object In ResultVal.resultado.Rows
|
||||
estado = row(ResultVal.resultado.Columns.Get("ESTADO"))
|
||||
Next
|
||||
|
||||
If estado = "COMPLETO" Then
|
||||
Log("¡Validación Exitosa! Marcando pedido como enviado.")
|
||||
|
||||
' Marcamos como enviado localmente usando el ARCH
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_ENVIADO = 1 WHERE PE_ARCH = ?", Array As Object(Arch))
|
||||
Starter.skmt.ExecNonQuery2("UPDATE PEDIDO_CLIENTE SET PC_ENVIADO = 1 WHERE PC_ARCH = ?", Array As Object(Arch))
|
||||
|
||||
ToastMessageShow("Pedido enviado y verificado correctamente", False)
|
||||
Return "Validado OK"
|
||||
Else
|
||||
Log("ERROR DE INTEGRIDAD: El servidor reporta " & estado)
|
||||
Msgbox("El servidor recibió datos incompletos. El pedido NO se marcó como enviado. Por favor intente subir de nuevo.", "Error de Integridad")
|
||||
Return "Error Validacion"
|
||||
End If
|
||||
Else
|
||||
Log("Error al ejecutar query de validación: " & ResultVal.ErrorMessage)
|
||||
Msgbox("No se pudo verificar el pedido por error de red. Intente de nuevo.", "Error de Red")
|
||||
Return "Error Validacion (Red)"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user