mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-21 20:09:13 +00:00
20/12/23 - Correcciones en el abordo, carga local y boton de noVenta
- En los productos del pedido de abordo ahora aparece el inventario que traen en ese momento. - Al hacer la restauracion de carga local mandaba un error. - El boton de NoVenta aparecia momentaneamente al poner una contraseña equivocada en la geocerca.
This commit is contained in:
@@ -186,7 +186,11 @@ Sub RD_restaura_cat_gunaprod
|
||||
skmt.ExecNonQuery($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Log($"insert into CAT_GUNAPROD (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo GP para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
If fechaRestauracion.Length > 0 Then
|
||||
ToastMessageShow($"No hay respaldo GP para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo GP para la fecha"$, True)
|
||||
End If
|
||||
End If
|
||||
Log("R-GP: " & ((DateTime.Now - inicio)/1000) & " segs")
|
||||
End Sub
|
||||
@@ -220,12 +224,16 @@ Sub RD_restaura_cat_gunaprod2
|
||||
' Log(c.RowCount)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
' Log(c.GetString("FECHA"))
|
||||
Log(c.GetString("FECHA"))
|
||||
skmt.ExecNonQuery("delete from CAT_GUNAPROD2")
|
||||
skmt.ExecNonQuery($"insert into CAT_GUNAPROD2 (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD2 where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Log($"insert into CAT_GUNAPROD2 (${lasCols}) select ${lasCols} from rkmt1.CAT_GUNAPROD2 where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo GP2 para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
If fechaRestauracion.Length > 0 Then
|
||||
ToastMessageShow($"No hay respaldo GP2 para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo GP2 para la fecha"$, True)
|
||||
End If
|
||||
End If
|
||||
|
||||
'Agregamos al inventario las cantidades del abordo
|
||||
@@ -238,18 +246,19 @@ Sub RD_restaura_cat_gunaprod2
|
||||
sqlAbordo = "and PE_TIPO = 'ABORDO'"
|
||||
sqlfechaAbordo = ""
|
||||
End If
|
||||
Private a As Cursor = rkmt.ExecQuery($"select * from PEDIDO ${fechaRestauracion} ${sqlAbordo} ${sqlfechaAbordo} order by fecha desc"$) 'where fecha <> '${fechaHoy}' 'Traemos la ultima fecha antes de hoy.
|
||||
Log($"select * from PEDIDO ${fechaRestauracion} ${sqlAbordo} ${sqlfechaAbordo} order by fecha desc"$)
|
||||
' Private a As Cursor = rkmt.ExecQuery($"select * from PEDIDO ${fechaRestauracion} ${sqlAbordo} ${sqlfechaAbordo} order by fecha desc"$) 'where fecha <> '${fechaHoy}' 'Traemos la ultima fecha antes de hoy.
|
||||
' Log($"select * from PEDIDO ${fechaRestauracion} ${sqlAbordo} ${sqlfechaAbordo} order by fecha desc"$)
|
||||
' Log(">>>>>>>> PEDIDOS " & a.RowCount)
|
||||
If a.RowCount > 0 Then
|
||||
For i = 0 To a.RowCount - 1
|
||||
a.Position = i
|
||||
skmt.ExecNonQuery($"update CAT_GUNAPROD2 set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${a.GetString("PE_CANT")} where CAT_GP_ID = '${a.GetString("PE_PROID")}'"$)
|
||||
Log($"update CAT_GUNAPROD2 set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${a.GetString("PE_CANT")}' where CAT_GP_ID = '${a.GetString("PE_PROID")}'"$)
|
||||
Next
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo GP2 para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
End If
|
||||
' If a.RowCount > 0 Then
|
||||
' For i = 0 To a.RowCount - 1
|
||||
' a.Position = i
|
||||
' skmt.ExecNonQuery($"update CAT_GUNAPROD2 set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${a.GetString("PE_CANT")} where CAT_GP_ID = '${a.GetString("PE_PROID")}'"$)
|
||||
' Log($"update CAT_GUNAPROD2 set CAT_GP_ALMACEN = CAT_GP_ALMACEN + ${a.GetString("PE_CANT")}' where CAT_GP_ID = '${a.GetString("PE_PROID")}'"$)
|
||||
' Next
|
||||
' Else
|
||||
' Log("|"&fechaRestauracion&"|")
|
||||
' ToastMessageShow($"No hay respaldo PEDIDO para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
' End If
|
||||
Log("R-GP2: " & ((DateTime.Now - inicio)/1000) & " segs")
|
||||
End Sub
|
||||
|
||||
@@ -286,7 +295,11 @@ Sub RD_restaura_cat_detalle_paq
|
||||
skmt.ExecNonQuery($"insert into CAT_DETALLES_PAQ (${lasCols}) select ${lasCols} from rkmt1.CAT_DETALLES_PAQ where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Log($"insert into CAT_DETALLES_PAQ (${lasCols}) select ${lasCols} from rkmt1.CAT_DETALLES_PAQ where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo DP para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
If fechaRestauracion.Length > 0 Then
|
||||
ToastMessageShow($"No hay respaldo DP para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo DP para la fecha"$, True)
|
||||
End If
|
||||
End If
|
||||
Log("R-DP: " & ((DateTime.Now - inicio)/1000) & " segs")
|
||||
End Sub
|
||||
@@ -324,7 +337,11 @@ Sub RD_restaura_kmt_info
|
||||
skmt.ExecNonQuery($"insert into kmt_info (${lasCols}) select ${lasCols} from rkmt1.kmt_info where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Log($"insert into kmt_info (${lasCols}) select ${lasCols} from rkmt1.kmt_info where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo KMTI para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
If fechaRestauracion.Length > 0 Then
|
||||
ToastMessageShow($"No hay respaldo KMTI para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo KMTI para la fecha"$, True)
|
||||
End If
|
||||
End If
|
||||
Log("R-KMT: " & ((DateTime.Now - inicio)/1000) & " segs")
|
||||
End Sub
|
||||
@@ -362,7 +379,11 @@ Sub RD_restaura_promos_comp
|
||||
skmt.ExecNonQuery($"insert into PROMOS_COMP (${lasCols}) select ${lasCols} from rkmt1.PROMOS_COMP where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Log($"insert into PROMOS_COMP (${lasCols}) select ${lasCols} from rkmt1.PROMOS_COMP where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo PC para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
If fechaRestauracion.Length > 0 Then
|
||||
ToastMessageShow($"No hay respaldo PC para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo PC para la fecha"$, True)
|
||||
End If
|
||||
End If
|
||||
Log("R-KMT: " & ((DateTime.Now - inicio)/1000) & " segs")
|
||||
End Sub
|
||||
@@ -400,7 +421,11 @@ Sub RD_restaura_cat_rmi
|
||||
skmt.ExecNonQuery($"insert into CAT_RMI (${lasCols}) select ${lasCols} from rkmt1.CAT_RMI where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Log($"insert into CAT_RMI (${lasCols}) select ${lasCols} from rkmt1.CAT_RMI where fecha = '${c.GetString("FECHA")}'"$)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo RMI para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
If fechaRestauracion.Length > 0 Then
|
||||
ToastMessageShow($"No hay respaldo RMI para la fecha ${fechaRestauracion.SubString(fechaRestauracion.Length - 10)}"$, True)
|
||||
Else
|
||||
ToastMessageShow($"No hay respaldo RMI para la fecha"$, True)
|
||||
End If
|
||||
End If
|
||||
Log("R-RMI: " & ((DateTime.Now - inicio)/1000) & " segs")
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user