From 49f1bb231668989554ab111b028e7007d461fedb Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 23 Jun 2020 17:30:26 -0700
Subject: [PATCH] -- cambio de columna de tick a CveAsignacionEntrega

---
 App_Code/ClsGenerales.vb                | 10 +++++-----
 Compras/PopUpVerFactura.aspx.vb         |  6 +++---
 Inventarios/EntregasPorRealizar.aspx.cs |  6 +++---
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 72329f707..30171da5f 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2822,12 +2822,12 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveTick As Long = -1) As Boolean
+    Public Function GetEntregasPorRealizar(CveEmpresa As Integer, Optional CveAsignacionEntrega As Long = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_EntregasPorRealizarGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveTick
+            .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2839,20 +2839,20 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveTick As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
+    Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
             .Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
-            .Add("@CveTick", SqlDbType.BigInt).Value = CveTick
+            .Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
             .Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
         End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al obtener entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            OnError("Ocurrió un error al asignar entregas por realizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Retorno
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 653f7621b..eaf8dacca 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -474,8 +474,8 @@ Partial Class PopUpVerFactura
 
         'IMPRIME ENTREGAS POR REALIZAR
         If UrlParametros("OP").ToString = "ENTREGAS" Then
-            If UrlParametros("CVETICK") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
-                ImprimeEntregasPorRealziar(UrlParametros("CVETICK").ToString, UrlParametros("USUARIOENTREGA").ToString)
+            If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
+                ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
             End If
         End If
 
@@ -4173,7 +4173,7 @@ Partial Class PopUpVerFactura
 #End Region
 
 #Region "OP = ENTREGAS - Entregas por realizar"
-    Public Sub ImprimeEntregasPorRealziar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
+    Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
         Dim Correcto As Boolean = False
         Dim DtPaqueteriasGuias As DataTable = Nothing
         Dim ObjGeneral As New ClsGenerales
diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs
index 9b590c741..1895e37b9 100644
--- a/Inventarios/EntregasPorRealizar.aspx.cs
+++ b/Inventarios/EntregasPorRealizar.aspx.cs
@@ -41,17 +41,17 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
             GridViewRowCollection Grid = GvPaqueteriasGuias.Rows;
 
             int CvePersonal = DdlUsuario.SelectedValue.ToEntero();
-            long CveTick = DateTime.Now.Ticks;
+            long CveAsignacionEntrega = DateTime.Now.Ticks;
             string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos";
 
-            string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVETICK={0}&USUARIOENTREGA={1}", CveTick, Usuario)));
+            string LigaPopUpVerFactura = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", ModExtensiones.Encripta(String.Format("OP=ENTREGAS&CVEASIGNACIONENTREGA={0}&USUARIOENTREGA={1}", CveAsignacionEntrega, Usuario)));
             foreach (GridViewRow row in Grid)
             {
                 if (row.FCCheckBox("ChkAsigna").Checked)
                 {
                     int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
 
-                    if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveTick)){
+                    if(!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal, CveAsignacionEntrega)){
                         TieneError = true;
                     }else
                     {