Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContratos.vb

@@ -1005,13 +1005,13 @@ Public Class ClsContratos
 
         Return Retorno
     End Function
-    Public Function AddContratosAvance(CveContratoDetalle As Integer, Cantidad As Double, Fecha As DateTime, CveUsuario As Integer, Optional CveEstimacion As Integer = -1) As Boolean
+    Public Function AddContratosAvance(CveContratoDetalle As Integer, Cantidad As Double, Fecha As Date, CveUsuario As Integer, Optional CveEstimacion As Integer = -1) As Boolean
         Dim Retorno = False
         DataAdapter("PA_Con_ContratosAvanceAdd")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
             .Add("@Cantidad", SqlDbType.Int).Value = Cantidad
-            .Add("@Fecha", SqlDbType.Date).Value = Fecha.ToString("yyyy/MM/dd")
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEstimacion", SqlDbType.Int).Value = CveEstimacion
         End With
@@ -1078,9 +1078,32 @@ Public Class ClsContratos
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
+
+#Region "ESTIMACION"
+
+    Public Function GetContratosAvanceEstimacion(CveContrato As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno = False
 
+        DataAdapter("PA_Con_ContratosAvanceEstimacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al cargar los avances del Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
+
 #Region " S E C C I O N E S "
     Public Function GetSecciones() As Boolean
         Dim Retorno As Boolean = False

App_Code/ClsVentas.vb

@@ -462,7 +462,7 @@ Public Class ClsVentas
                                  Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1,
                                  Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1,
                                  Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1,
-                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean
+                                 Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
 
@@ -493,6 +493,7 @@ Public Class ClsVentas
             .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
             .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra
             .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
+            .Add("@CveUsoCFDi", SqlDbType.SmallInt).Value = CveUsoCFDi
         End With
 
         Try

Compras/PopUpVerFactura.aspx.vb

@@ -1248,10 +1248,10 @@ Partial Class PopUpVerFactura
         Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego
         Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
         Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
+        Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
 
         If Recibio.Trim = "" Then
             Dim ObjRH As New ClsRH
-
             If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
                 Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
             End If
@@ -1276,7 +1276,9 @@ Partial Class PopUpVerFactura
 
         Dim CveMovimientoRelacionado As Integer = -1
         Dim FolioRelacionado As String = ""
-        Dim CveConceptoMovtoRelacionado As Integer = -1
+        Dim CveConceptoMovtoRelacionado As Integer = -1
+
+        Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
 
         'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
         If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
@@ -1285,6 +1287,9 @@ Partial Class PopUpVerFactura
                 FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
                 CveConceptoMovtoRelacionado = 37
             ElseIf CveConcepto.Contiene(36, 37) Then
+                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
+                CveConceptoMovtoRelacionado = 3
+            ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then
                 FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
                 CveConceptoMovtoRelacionado = 3
             End If
@@ -1316,7 +1321,7 @@ Partial Class PopUpVerFactura
                         Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
 
                         'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
-                        If CveTipoAlmacenRelacionado = 24 Then
+                        If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
                             If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
                                 Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
                                 CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
@@ -1342,7 +1347,28 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-        Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
+        If UsuarioActual.CveEmpresa = 140 AndAlso CveCompra > 0 Then
+            If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+                Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0")
+                If DtFaltante.Rows.Count > 0 Then
+                    Dim SbPendientes As New StringBuilder
+                    SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:")
+                    For Each Row As DataRow In DtFaltante.Rows
+                        SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF"))
+                    Next
+                    SbPendientes.Remove(SbPendientes.Length - 1, 1)
+
+                    SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total"))
+
+                    If Not String.IsNullOrEmpty(Observaciones) Then
+                        Observaciones = SbPendientes.ToString() + ".<br/>" + Observaciones
+                    Else
+                        Observaciones = SbPendientes.ToString()
+                    End If
+                End If
+                DtFaltante.Dispose()
+            End If
+        End If
 
         If CveTipoAlmacen = 20 Then
             CveConcepto = 24
@@ -1359,7 +1385,7 @@ Partial Class PopUpVerFactura
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
-                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado)
+                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1377,7 +1403,7 @@ Partial Class PopUpVerFactura
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                   RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
-                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "")
+                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
 
 
         Select Case CveConcepto
@@ -1527,6 +1553,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
                         params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
                         'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                        params.Add(New ReportParameter("Observaciones", Observaciones))
                         params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
                         params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                         params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
@@ -1762,7 +1789,8 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("NombreRecibio", Recibio))
                             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                             params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
-                            params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+                            params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+                            params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
 
                             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                         Else
@@ -2550,19 +2578,19 @@ Partial Class PopUpVerFactura
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
-                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
+                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
-                    'Else
+                    'Else
-                    '    params.Add(New ReportParameter("Folio", Folio))
+                    '    params.Add(New ReportParameter("Folio", Folio))
-                    '    params.Add(New ReportParameter("Fecha", Fecha))
+                    '    params.Add(New ReportParameter("Fecha", Fecha))
-                    '    params.Add(New ReportParameter("Almacen", Almacen))
+                    '    params.Add(New ReportParameter("Almacen", Almacen))
-                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
+                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
-                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
+                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
-                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
-                    'End If
+                    'End If
-
+
-
+
             Case 18 'D E V O L U C I O N    D E L   C L I E N T E
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -2739,36 +2767,36 @@ Partial Class PopUpVerFactura
                     ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
                 ElseIf CveConcepto = 22 Then
                     ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-                End If
+                End If
-
+
-            'Case 22 'ENTRADA POR PRESTAMO
+            'Case 22 'ENTRADA POR PRESTAMO
-            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            '    Dim params As New List(Of ReportParameter)
+            '    Dim params As New List(Of ReportParameter)
-
+
-            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-            '    If Imagen.Exists Then
+            '    If Imagen.Exists Then
-            '        params.Add(New ReportParameter("LogoPath", logouri))
+            '        params.Add(New ReportParameter("LogoPath", logouri))
-            '    Else
+            '    Else
-            '        params.Add(New ReportParameter("LogoPath", ""))
+            '        params.Add(New ReportParameter("LogoPath", ""))
-            '    End If
+            '    End If
-
+
-            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
+            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
-            '    params.Add(New ReportParameter("Almacen", Almacen))
+            '    params.Add(New ReportParameter("Almacen", Almacen))
-            '    params.Add(New ReportParameter("Fecha", Fecha))
+            '    params.Add(New ReportParameter("Fecha", Fecha))
-            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
-            '    params.Add(New ReportParameter("Folio", Folio))
+            '    params.Add(New ReportParameter("Folio", Folio))
-            '    params.Add(New ReportParameter("Descuentos", ""))
+            '    params.Add(New ReportParameter("Descuentos", ""))
-            '    params.Add(New ReportParameter("IVA", ""))
+            '    params.Add(New ReportParameter("IVA", ""))
-            '    params.Add(New ReportParameter("Total", ""))
+            '    params.Add(New ReportParameter("Total", ""))
-            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
+            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
-            '    If (UsuarioActual.CveEmpresa = 72) Then
+            '    If (UsuarioActual.CveEmpresa = 72) Then
-            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
-            '    End If
+            '    End If
-            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-
+
             Case 24 'SALIDA POR RESGUARDO
                 If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -3251,11 +3279,11 @@ Partial Class PopUpVerFactura
         If CveConcepto = 2 Then
         ElseIf CveConcepto = 3 Then
         End If
-    End Sub
+    End Sub
-
+
-
+
 #End Region
-
+
 #Region "OP = 'OC' - IMPRIME PDF OC"
     Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
         Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))

Compras/eFacturas.aspx

@@ -555,7 +555,7 @@
                         <hr style="border: 0; height: 1px; background-image: linear-gradient(to right, rgba(0, 0, 0, 0), rgba(0, 0, 0, 0.75), rgba(0, 0, 0, 0));" />
                         
                         <asp:GridView ID="GVPDocumentosRelacionadosPagos" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
-                            DataKeyNames="CveFactura,CveCompra,CveIE,Fecha,FechaPago"
+                            DataKeyNames="CveFactura,CveCompra,CveIE,Fecha,FechaPago,ImpPagado,CvePrePolizaDetalle"
                             data-sort="true" Width="100%" EmptyDataText="No se encontró registros con la información del complemento de pago"
                             ShowHeaderWhenEmpty="true" AutoGenerateColumns="False">
                             <Columns>

Compras/eFacturas.aspx.vb

@@ -2697,17 +2697,36 @@ Partial Class Compras_eFacturas
 
             namespaces.AddNamespace(XMLDoc.DocumentElement.Prefix, "http://www.sat.gob.mx/cfd/3")
             namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
-            namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
+
+            ' namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
             nodeComp = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", XMLDoc.DocumentElement.Prefix), namespaces)
 
+
             nodeaGral = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", XMLDoc.DocumentElement.Prefix), namespaces)
 
             nodeTFD = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
-            nodePagos = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos/{0}:Pago", "pago10"), namespaces)
-            nodePagos2 = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos", "pago10"), namespaces)
-            'Monto = ValorXML(nodePagos, "Monto").ToDecimal
 
-            Dim nodePago As XmlNodeList = nodePagos.SelectNodes(String.Format("//{0}:DoctoRelacionado", "pago10"), namespaces)
+            Dim PrefijoPagos As String = ""
+
+            For Each nodoPrefijo As XmlNode In nodeComp.ChildNodes
+                If nodoPrefijo.Prefix <> "tfd" Then
+                    PrefijoPagos = nodoPrefijo.Prefix
+                End If
+            Next
+
+            namespaces.AddNamespace(PrefijoPagos, "http://www.sat.gob.mx/Pagos")
+            nodeComp = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", XMLDoc.DocumentElement.Prefix), namespaces)
+
+
+            nodePagos = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos/{0}:Pago", PrefijoPagos), namespaces)
+            nodePagos2 = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos", PrefijoPagos), namespaces)
+
+
+
+
+
+
+            ' Dim nodePago As XmlNodeList = nodePagos.SelectNodes(String.Format("//{0}:DoctoRelacionado", "pago10"), namespaces)
 
             SeriePago = ValorXML(nodeaGral, "Serie")
             FolioPago = ValorXML(nodeaGral, "Folio")
@@ -2735,11 +2754,12 @@ Partial Class Compras_eFacturas
             DTDocumentosRelacionados.Columns.Add("FechaPago", GetType(Date))
             DTDocumentosRelacionados.Columns.Add("CveMetodoPago", GetType(Integer))
             DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
+            DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer))
 
 
 
             Dim nodePagosN As XmlNodeList
-            nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", "pago10"), namespaces)
+            nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", PrefijoPagos), namespaces)
 
 
 
@@ -2775,7 +2795,7 @@ Partial Class Compras_eFacturas
 
 
             Dim ObjCompraFolios As New ClsCompras
-            If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
+            If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{PrefijoPagos}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
                 '
                 '.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then
                 If ObjCompraFolios.DtResultados.Rows.Count > 0 Then
@@ -2789,7 +2809,7 @@ Partial Class Compras_eFacturas
                                 dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero
                                 dRow2("CveMetodoPago") = drow("CveMetodoPago").ToString.ToEntero
                                 dRow2("SerieFolioCompra") = drow("SerieFolioCompra").ToString
-
+                                dRow2("CvePrePolizaDetalle") = drow("CvePrePolizaDetalle").ToString
 
                                 If drow("CveIE").ToString.ToEntero > 0 Then
 
@@ -2860,7 +2880,7 @@ Partial Class Compras_eFacturas
 
         Dim TieneRegistros As Boolean = False
 
-        If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then
+        If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then
             GvVincularPago.DataSource = ObjCompras.DtResultados
 
             If ObjCompras.DtResultados.Rows.Count > 0 Then
@@ -2982,9 +3002,9 @@ Partial Class Compras_eFacturas
         ObjCompra.IniciaTransacSQL()
 
 
-        For Each Gv As GridViewRow In GvVincularPago.Rows
+        For Each Gv As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
 
-            If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("Monto").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
+            If Not ObjCompra.AddComplementoPago(Gv.DataKey("CveIE").ToEntero, Gv.DataKey("CveCompra").ToEntero, Gv.DataKey("ImpPagado").ToDecimal, Gv.DataKey("CvePrePolizaDetalle").ToEntero, CveFacturaPago) > 0 Then
                 TieneError = True
             End If
 

Contratos/ContratoAvance.aspx

@@ -44,7 +44,13 @@
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
-    <asp:UpdatePanel ID="UPPDatos" runat="server" UpdateMode="Conditional">
+
+      <ajax:TabContainer ID="Tab" runat="server" Width="100%" CssClass="tabBodyOverride" ActiveTabIndex="0">
+          
+          <ajax:TabPanel ID="TabAvance" runat="server" HeaderText="Avance">
+              <ContentTemplate>
+
+                      <asp:UpdatePanel ID="UPPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid  grey-cascade portlet-filter">
                 <div class="portlet-title portlet-filterT smalltitle">
@@ -70,8 +76,15 @@
                     </div>
                 </div>
             </div>
-            <div class="text-right">
+
-                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+
+            <div class="row">               
+                
+                <div class="col-md-1" style="text-align:right!important">
+                    Fecha:
+                </div>
+                <div class="col-md-4">
+                      <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">                                        
                     <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
                     <span class="input-group-btn ">
                         <asp:LinkButton ID="ImgFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -82,12 +95,21 @@
                     <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
                     <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
                     <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                </div> 
+                </div> 
-                <a class="linkfile" id="btnanexogral" runat="server" >
+                </div>
+              
+
+                <div class="col-md-6" style="text-align:right">
+                        <a class="linkfile" id="btnanexogral" runat="server" >
                     <span class="btn btn-circle btn-sm btn-success"><i class='fa fa-plus'></i></span>Agregar
                     <asp:TextBox ID="AnexoGral" Text='' runat="server"></asp:TextBox>
-                </a>
+                </a>
+                </div>
+            
+
             </div>
+            <br />
+
             <table class="table table-striped Widthall">
                 <tr>
                     <th style="width: 300px;"></th>
@@ -107,13 +129,18 @@
                     <th style="text-align: right;">Anexo</th>
                 </tr>
             </table> 
-            <asp:GridView ID="Gv" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance" 
+
+            <div class="row">
+                <div class="col-md-12">
+
+                    <asp:GridView ID="Gv" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance" 
                 DataKeyNames="CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
                   CssClass="table GVEstimacion table-advance table-hover" GridLines="None">
                 <Columns>
                     <asp:TemplateField HeaderText="">
                         <ItemTemplate>
-                            <asp:LinkButton ID="Producto" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' ></asp:LinkButton>
+                            <asp:LinkButton ID="Producto" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Visible="false" ></asp:LinkButton>
+                            <asp:Label ID="LinkButton1" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' ></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Cantidad">
@@ -148,27 +175,217 @@
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText=" ">
                         <ItemTemplate> 
+                            
                             <asp:LinkButton ID="LnkAnexo"  runat="server" OnClick="GetAnexos" AlternateText="Agregar Anexo" CssClass="btn btn-circle btn-sm btn-success anexo" Text="<i class='fa fa-folder'></i>" />
-                            <a class="btn btn-circle btn-sm btn-success hidden linkfile">
+                            <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm btn-success" ID="LnkModalDropzone" Visible="false"> <i class='fa fa-plus'></i></asp:LinkButton>
+                           <%-- <a class="btn btn-circle btn-sm btn-success hidden linkfile">
                                 <i class='fa fa-plus'></i><asp:TextBox ID="TXTAnexo" CssClass="hidden" runat="server"></asp:TextBox>
-                            </a>
+                            </a>--%>
+
+
+                                <div runat="server" id="ModalAnexoEvidencia" class="modal ADS fade" role="dialog">
+                                    <div class="modal-dialog">
+
+                                        <!-- Modal content-->
+                                        <div class="modal-content">
+                                            <div class="modal-header ">
+                                                <button type="button" class="close" data-dismiss="modal">&times;</button>
+                                                <h4 class="modal-title">Cargar Evidencia</h4>
+                                            </div>
+
+                                            <div class="modal-body">
+
+                                                
+                                                        <div style="text-align:left">
+                                                            <asp:TextBox ID="TXTAnexo" CssClass="ADSdropzone hidden" data-maxFile="10" Text="" runat="server"></asp:TextBox>
+                                                        </div>
+                                                
+
+                                            </div>
+                                            <div class="modal-footer">
+                                                <asp:UpdatePanel runat="server">
+                                                    <ContentTemplate>                                                        
+                                                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                                                    </ContentTemplate>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+
+
+
+
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>
-            </asp:GridView>
+            </asp:GridView>
-        <div class="text-center"><asp:Button id="BtnGuardar" CssClass="btn btn-primary" runat="server" Text="Guardar" Visible="false" /></div>
+
-            <asp:GridView ID="GvAnexos" AutoGenerateColumns="false" runat="server" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron archivos">
+                </div>
-                <Columns>
+            </div>
-                    <asp:TemplateField HeaderText="Archivo">
+
-                        <ItemTemplate>
+            
-                            <asp:HyperLink ID="HPLArchivo" runat="server"></asp:HyperLink>
+
-                        </ItemTemplate>
+        <div class="text-center">
-                    </asp:TemplateField>
+            <asp:Button id="BtnGuardar" CssClass="btn btn-primary" runat="server" Text="Guardar" Visible="false" ValidationGroup="GrpGuardar" />
-                </Columns>
+        </div>
-            </asp:GridView>
+       
                  
         </ContentTemplate> 
-    </asp:UpdatePanel>
+    </asp:UpdatePanel>
+
+              </ContentTemplate>
+          </ajax:TabPanel>
+
+          <ajax:TabPanel ID="TabEstimación" runat="server" HeaderText="Estimación">
+              <ContentTemplate>
+
+                  <asp:UpdatePanel runat="server" ID="UpEstimaciones" UpdateMode="Conditional">
+                      <ContentTemplate>
+
+
+                             <div class="portlet solid  grey-cascade portlet-filter">
+                                <div class="portlet-title portlet-filterT smalltitle">
+
+                                    <div class="tools">
+                                        <asp:Button ID="BtnConsultarEstimaciones" runat="server"  Text="Consultar" class="btn btn-default" />
+                                    </div>
+
+                                    <div class="titlefiltros caption" style="position: relative;">
+                                        <asp:UpdatePanel class="row" ID="UpdatePanel2" runat="server" UpdateMode="Conditional">
+                                            <ContentTemplate>
+                                                <label class="col-md-1 truncate">Contrato:</label>
+                                                <div class="col-md-6 col-lg-4">
+                                                    <div class="ddls">
+                                                        <asp:DropDownList ID="DDlContratosEstimaciones" runat="server" AutoPostBack="true" DataTextField="ContratoCompleto" DataValueField="CveContrato" Class=" form-control input-inline select2me" Width="100%">
+                                                        </asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                                 
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+                                    </div>
+                                </div>
+                            </div>
+
+
+                              <div class="row">
+                <div class="col-md-12">
+
+                    <asp:GridView ID="GvEstimaciones" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron partidas para levantar avance" 
+                DataKeyNames="CveFamilias,CveSubFamilias,CveContratoDetalle,PS,Cantidad,Importe,Cantidad_Ultima,Importe_Ultima,PU,CantidadMax,Avance"
+                  CssClass="table GVEstimacion table-advance table-hover" GridLines="None">
+                <Columns>
+                    <asp:TemplateField HeaderText="">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="Producto" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' Visible="false" ></asp:LinkButton>
+                            <asp:Label ID="LinkButton1" runat="server" CssClass="Texto" Text='<%# Eval("PS")%>' ></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Cantidad">
+                        <ItemTemplate> 
+                            <span><%# Eval("Cantidad", "{0:N2}")%></span>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Importe">
+                        <ItemTemplate>
+                            <span><%# Eval("Importe", "{0:N2}")%></span>
+                        </ItemTemplate>
+                    </asp:TemplateField> 
+                    <asp:TemplateField HeaderText="Cantidad">
+                        <ItemTemplate> 
+                            <span><%# Eval("Cantidad_Ultima", "{0:N2}")%></span>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Importe">
+                        <ItemTemplate>
+                            <span><%# Eval("Importe_Ultima", "{0:N2}")%></span>
+                        </ItemTemplate>
+                    </asp:TemplateField>  
+
+                   <%-- <asp:TemplateField HeaderText="Cantidad">
+                        <ItemTemplate>
+                            <asp:TextBox ID="TxtCantidad" Text="" CssClass="txtcant" onkeyup="ValidateCant(this)" type="number" step="any" data-cantidad='<%# Eval("CantidadMax")%>' data-pu='<%# Eval("PU")%>' data-cve='<%# Eval("CveContratoDetalle") %>' Width="90" runat="server"></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField> 
+                    <asp:TemplateField HeaderText="Importe">
+                        <ItemTemplate> 
+                            <asp:TextBox ID="TxtImporte" Text="" data-cve='<%# Eval("CveContratoDetalle") %>' CssClass="txtimporte"  type="number" step="any"  Width="90" runat="server"></asp:TextBox>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText=" ">
+                        <ItemTemplate> 
+                            
+                            <asp:LinkButton ID="LnkAnexo"  runat="server" OnClick="GetAnexos" AlternateText="Agregar Anexo" CssClass="btn btn-circle btn-sm btn-success anexo" Text="<i class='fa fa-folder'></i>" />
+                            <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm btn-success" ID="LnkModalDropzone" Visible="false"> <i class='fa fa-plus'></i></asp:LinkButton>
+                      
+
+
+                                <div runat="server" id="ModalAnexoEvidencia" class="modal ADS fade" role="dialog">
+                                    <div class="modal-dialog">
+
+                                        <!-- Modal content-->
+                                        <div class="modal-content">
+                                            <div class="modal-header ">
+                                                <button type="button" class="close" data-dismiss="modal">&times;</button>
+                                                <h4 class="modal-title">Cargar Evidencia</h4>
+                                            </div>
+
+                                            <div class="modal-body">
+
+                                                
+                                                        <div style="text-align:left">
+                                                            <asp:TextBox ID="TXTAnexo" CssClass="ADSdropzone hidden" data-maxFile="10" Text="" runat="server"></asp:TextBox>
+                                                        </div>
+                                                
+
+                                            </div>
+                                            <div class="modal-footer">
+                                                <asp:UpdatePanel runat="server">
+                                                    <ContentTemplate>                                                        
+                                                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                                                    </ContentTemplate>
+                                                </asp:UpdatePanel>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+
+
+
+
+                        </ItemTemplate>
+                    </asp:TemplateField>--%>
+
+
+                </Columns>
+            </asp:GridView>
+
+                </div>
+            </div>
+
+
+                          <div class="row">
+                              <div class="col-md-12">
+                                     <div class="text-center">
+
+                                        <asp:Button id="BtnGuardarEstimacion" CssClass="btn btn-primary" runat="server" Text="Generar Estimacion" Visible="false"/>
+
+                                    </div>
+                              </div>
+                          </div>
+
+                      </ContentTemplate>
+                  </asp:UpdatePanel>
+
+
+              </ContentTemplate>
+          </ajax:TabPanel>
+
+
+      </ajax:TabContainer>
+
+
     
     
     <div class="modal fade " id="dropmodal">
@@ -178,7 +395,7 @@
                     <div class="portlet-title">
                         <div class="caption font-green">
                             <i class="icon-pin font-green"></i>
-                            <span class="caption-subject bold uppercase">Dropzone</span>
+                            <span class="caption-subject bold uppercase">Cargar Evidencia</span>
                         </div>
                         <div class="actions">
                             <div class="btn-group">
@@ -193,25 +410,86 @@
                         <div id="my-dropzone" class="">
                         </div>
                     </div>
+
+                     <div style="text-align: center!important">
+                        <br />
+                        <button id="btnCerrarModal" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
+                        <br />
+                    </div>
                 </div>
+               
             </div>
         </div>
     </div>
+
+
+  
+    <div id="ModalAnexos" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <asp:UpdatePanel ID="UpModalAnexos" UpdateMode="Conditional" runat="server">
+                <ContentTemplate>
+
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header ">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label runat="server" ID="LblTituloModalAnexo"></asp:Label></h4>
+                        </div>
+
+                        <div class="modal-body">
+                            <div class="row">
+
+                                <div class="col-md-12" style="text-align:center!important">
+                                <asp:GridView ID="GvAnexos" AutoGenerateColumns="false" runat="server" ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron archivos" Width="100"
+                                    DataKeyNames="Archivo" CssClass="table GVEstimacion table-advance table-hover" GridLines ="None">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Anexos">
+                                            <ItemTemplate>
+
+                                                <asp:LinkButton ID="LnkArchivo" runat="server" OnClick="LnkArchivo_Click"></asp:LinkButton>
+
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+
+                                    </div>
+                            </div>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:UpdatePanel runat="server">
+                                <ContentTemplate>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+     
+       
+
+
     <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script> 
 
     <%--<script src="../Scripts/dropzone/dropzone.min.js"></script>--%>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" Runat="Server">
     
-    <script> 
+    <script>
-        
-        jQuery(document).ready(function () {
 
-            $(".linkfile").click(function () {
+        jQuery(document).ready(function () {
-                showmodalFile($(this).find('input').attr('id'));
+
+            $(".linkfile").click(function () {
+                showmodalFile($(this).find('input').attr('id'));
             });
-            Sys.Application.add_load(function (s, e) { 
+            Sys.Application.add_load(function (s, e) {
-            $(".linkfile").click(function () {
+                $(".linkfile").click(function () {
                     showmodalFile($(this).find('input').attr('id'));
                 }); 
             });
@@ -224,7 +502,8 @@
             ADDropzone(obj);
             $('#dropmodal').modal(); 
         }
-        function ValidateCant(variable){ 
+        function ValidateCant(variable) {
+
             var txt = $(variable);
             var max = txt.data('cantidad');
             var value = parseInt(txt.val());
@@ -235,16 +514,24 @@
                 txt.val(0);
             }
             var importe = $('.txtimporte[data-cve="' + txt.data('cve') + '"]');
+
             importe.val(parseFloat(txt.val()) * parseFloat(txt.data('pu')));
-            FormatoMoneda2(importe);
+
-            if (parseInt(txt.val()) > 0) {
+            //FormatoMoneda2(importe);
-                $($(txt.parent()).parent()).find(".linkfile").removeClass("hidden");
+
-            } else {
+            //if (parseInt(txt.val()) > 0) {
-                var ocultar = $($(txt.parent()).parent()).find(".linkfile");
+
-                if (!ocultar.hasClass("hidden")) {
+            //    $($(txt.parent()).parent()).find(".linkfile").removeClass("hidden");
-                    ocultar.addClass("hidden");
+
-                }
+            //} else {
-            }
+
+            //    var ocultar = $($(txt.parent()).parent()).find(".linkfile");
+
+            //    if (!ocultar.hasClass("hidden")) {
+            //        ocultar.addClass("hidden");
+            //    }
+            //}
+
         }
         //);
     </script>

Contratos/ContratoAvance.aspx.vb

@@ -46,22 +46,31 @@ Partial Class Contratos_ContratoAvance
         Set(value As String)
             ViewState("fecha") = value
         End Set
-    End Property
+    End Property
-
+
 #End Region
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then 
+
+        If Not IsPostBack Then
             BtnGuardar.Visible = False
-            btnanexogral.Visible = False
+            btnanexogral.Visible = False
-            CargaContrato()
+            CargaContrato()
+
+
         End If
+
     End Sub
 
 #Region "Filtros"
 
     Private Sub CargaContrato()
-        DdlContratos.DataSource = GlobalDTContratos.FiltraParametros(String.Format("CveContratoTipo=4"))
+        DdlContratos.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (4,30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}"))
         DdlContratos.DataBind()
+
+        DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (4,30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}"))
+        DDlContratosEstimaciones.DataBind()
+
+
         CargaddlAvance()
     End Sub
 
@@ -124,8 +133,10 @@ Partial Class Contratos_ContratoAvance
     End Sub
     Protected Sub GV_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles Gv.RowDataBound
         If e.Row.RowIndex > -1 Then
+
             e.Row.FCTextBox("TxtCantidad").Visible = (fecha = "")
-            e.Row.FCLinkButton("LnkAnexo").Visible = Not (fecha = "")
+            e.Row.FCLinkButton("LnkAnexo").Visible = Not (fecha = "")
+
             If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero = 0 Then
                 e.Row.FCTextBox("TxtCantidad").Visible = False
                 e.Row.FCLinkButton("LnkAnexo").Visible = False
@@ -140,9 +151,32 @@ Partial Class Contratos_ContratoAvance
                     e.Row.CssClass = "SubTotales3"
                 End If
             End If
+
+            If e.Row.DataKey("CveContratoDetalle").ToEntero > 0 Then
+
+                Dim LnkAnexo As LinkButton = e.Row.FCLinkButton("LnkModalDropzone")
+                'LnkAnexo.Visible = True
+                Dim DVAnexo As Control = DirectCast(e.Row.FindControl("ModalAnexoEvidencia"), Control)
+                LnkAnexo.OnClientClick = $" $('#{DVAnexo.ClientID}').modal('show'); return false;"
+
+                If DdlAvances.SelectedIndex > 0 Then
+                    LnkAnexo.Visible = False
+                Else
+                    LnkAnexo.Visible = True
+                End If
+
+            End If
+
+
+
         End If
     End Sub
-    Protected Sub GetAnexos(sender As Object, e As System.EventArgs)
+    Protected Sub GetAnexos(sender As Object, e As System.EventArgs)
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+
+        LblTituloModalAnexo.Text = "Anexo " & GvRow.DataKey("PS")
+
         'Get the button that raised the event
         Dim btn As LinkButton = DirectCast(sender, LinkButton)
         Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow)
@@ -154,22 +188,49 @@ Partial Class Contratos_ContratoAvance
             GvAnexos.Visible = True
         Else
             GvAnexos.Visible = False
-        End If
+        End If
-        objContrato.Dispose() 
+
+        objContrato.Dispose()
+
+        UpModalAnexos.Update()
+
+        RegistraScript("$('#ModalAnexos').modal('show');")
+
     End Sub
-    Protected Sub GvAnexos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvAnexos.RowDataBound
+    Protected Sub GvAnexos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvAnexos.RowDataBound
+
         If e.Row.RowIndex > -1 Then
             Dim Archivo As String = e.Row.DBCampo("Archivo").ToString
             Dim start As Integer = Len(Archivo.Split("-"c)(0))
-            Dim link As HyperLink = e.Row.FCHyperLink("HPLArchivo")
+            Dim LnkArchivo As LinkButton = e.Row.FCLinkButton("LnkArchivo")
-            link.Text = Archivo.Substring(start + 1)
+
-            link.NavigateUrl = String.Format("/Empresas/{0}/Contrato/{1}/Anexos/{2}", UsuarioActual.CveEmpresa, CveContrato, Archivo)
+            LnkArchivo.Text = Archivo.Substring(start + 1)
+            'link.NavigateUrl = String.Format("/Empresas/{0}/Contrato/{1}/Anexos/{2}", UsuarioActual.CveEmpresa, CveContrato, Archivo)
+
+            ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkArchivo)
         End If
-    End Sub
+
+    End Sub
+
+    Protected Sub LnkArchivo_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+        Dim Archivo As String = GvRow.DataKey("Archivo").ToString
+
+        Response.ContentType = "application/octet-stream"
+        Response.AppendHeader("Content-Disposition", $"attachment; filename={Archivo}")
+        Response.TransmitFile($"{UsuarioActual.Empresa.Ruta}\Contrato\{DdlContratos.SelectedValue.ToEntero}\Anexos\{Archivo}")
+        Response.End()
+
+    End Sub
+
+
 #End Region
-
+
-
+
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
+
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
         Dim TieneError = False
@@ -177,47 +238,58 @@ Partial Class Contratos_ContratoAvance
         Dim Cantidad As Double
         Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos
         Dim guardarArchivos As New List(Of Archivo)
-        For Each gvr As GridViewRow In Gv.Rows
+
-            CveContratoDetalle = gvr.DataKey("CveContratoDetalle").ToEntero
+        For Each gvr As GridViewRow In Gv.Rows
-            If CveContratoDetalle > 0 Then
+
-                Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDouble
+            CveContratoDetalle = gvr.DataKey("CveContratoDetalle").ToEntero
+
+            If CveContratoDetalle > 0 Then
+
+                Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDouble
+
                 If Cantidad > 0 Then
-                    If ObjContratos.AddContratosAvance(CveContratoDetalle, Cantidad, TxtFecha.Text.ToDateTime, UsuarioActual.CveUsuario) Then
+                    If ObjContratos.AddContratosAvance(CveContratoDetalle, Cantidad, TxtFecha.Text.ToDateTime, UsuarioActual.CveUsuario) Then
+
                         Dim CveContratoAvance As Integer = ObjContratos.DtResultados.Rows(0)("CveContratoAvance").ToString.ToEntero
                         Dim files As List(Of Archivo) = gvr.FCTextBox("TXTAnexo").getfiles().Archivos
 
-                        For Each fileItem As Archivo In filesgral
+                        'For Each fileItem As Archivo In filesgral 'GENERAL
-                            guardarArchivos.Add(fileItem)
+                        '    guardarArchivos.Add(fileItem)
-                            If Not ObjContratos.AddContratosAvanceAnexo(CveContratoAvance, fileItem.filename, UsuarioActual.CveUsuario) Then
+                        '    If Not ObjContratos.AddContratosAvanceAnexo(CveContratoAvance, fileItem.filename, UsuarioActual.CveUsuario) Then
-                                TieneError = True
+                        '        TieneError = True
-                                Exit For
+                        '        Exit For
-                            End If
+                        '    End If
-                        Next
+                        'Next
-                        For Each fileItem As Archivo In files
+
+                        For Each fileItem As Archivo In files
                             guardarArchivos.Add(fileItem)
                             If Not ObjContratos.AddContratosAvanceAnexo(CveContratoAvance, fileItem.filename, UsuarioActual.CveUsuario) Then
                                 TieneError = True
                                 Exit For
                             End If
                         Next
+
                     Else
                         TieneError = True
                         Exit For
                     End If
                 End If
+
             End If
+
         Next
+
         If TieneError Then
             ObjContratos.RollBack()
             Alert("No se logro guardar el Presupuesto favor de intentarlo mas tarde o comuniquese con soporte", TipoMensaje.MsgAdvertencia)
         Else
-            Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato)
+            Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato)
-                For Each fileItem As Archivo In filesgral
+            For Each fileItem As Archivo In filesgral
-                    fileItem.filename.filesMove(fileItem.filename, urlsave)
+                fileItem.filename.FilesMove(fileItem.filename, urlsave)
-                Next
+            Next
 
             For Each fileItem As Archivo In guardarArchivos
-                fileItem.filename.filesMove(fileItem.filename, urlsave)
+                fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave)
             Next
             ObjContratos.Commit()
             Alert("se guardo Correctamente")
@@ -226,8 +298,84 @@ Partial Class Contratos_ContratoAvance
         ObjContratos.Dispose()
         CargaddlAvance()
         CargaDatosAvance()
-    End Sub
+    End Sub
-
+
+
+
+#Region "ESTIMACION"
+
+
+    Private Sub CargaAvancesParaEstimar()
+
+
+        Dim ObjContratos As New ClsContratos()
+        Dim DTEstimaciones As New DataTable
+
+
+        If ObjContratos.GetContratosAvanceEstimacion(DDlContratosEstimaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            DTEstimaciones = ObjContratos.DtResultados
+            BtnGuardarEstimacion.Visible = True
+        Else
+            BtnGuardarEstimacion.Visible = False
+        End If
+
+
+        ObjContratos.Dispose()
+
+
+        If DTEstimaciones.Rows.Count > 0 Then
+            GvEstimaciones.DataSource = DTEstimaciones
+        Else
+            GvEstimaciones.DataSource = Nothing
+        End If
+        GvEstimaciones.DataBind()
+
+        UpEstimaciones.Update()
+    End Sub
+
+    Private Sub BtnConsultarEstimaciones_Click(sender As Object, e As EventArgs) Handles BtnConsultarEstimaciones.Click
+
+        CargaAvancesParaEstimar()
+
+    End Sub
+
+    Private Sub GvEstimaciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstimaciones.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero = 0 Then
+
+
+                If e.Row.DBCampo("CveSubFamilias").ToString.ToEntero = 0 Then
+                    If e.Row.DBCampo("CveFamilias").ToString.ToEntero = 0 Then
+                        e.Row.CssClass = "SubTotales"
+                    Else
+                        e.Row.CssClass = "SubTotales2"
+                    End If
+                Else
+                    e.Row.CssClass = "SubTotales3"
+                End If
+            End If
+        End If
+
+
+
+
+    End Sub
+
+    Private Sub BtnGuardarEstimacion_Click(sender As Object, e As EventArgs) Handles BtnGuardarEstimacion.Click
+
+        Dim ObjContratos As New ClsContratos()
+
+
+
+        ObjContratos.Dispose()
+
+    End Sub
+
+
+#End Region
+
 End Class
 
 

Contratos/ContratoObra.aspx

@@ -929,7 +929,7 @@
                                                     <div class="row">
                                                         <div class="col-md-12">
                                                             <asp:GridView ID="Gv" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Conceptos"
-                                                                DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CveClasificacion,CodigoPS,LimitarCantidad,PS,OCInterna,NoIdentificacion"
+                                                                DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CveClasificacion,CodigoPS,LimitarCantidad,PS,OCInterna,NoIdentificacion,PermitirAvance"
                                                                 ShowHeader="true" SelectedRowStyle-BackColor="#66CCFF" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                                                 <Columns>
                                                                     <asp:TemplateField HeaderText="OC <br/> Cliente">
@@ -997,7 +997,6 @@
                                                                     </asp:TemplateField>
 
 
-
                                                                     <asp:TemplateField HeaderText="Precio Unitario">
                                                                         <ItemTemplate>
                                                                             <asp:Literal ID="LtPU" Text='<%# Eval("PU", "{0:###,###,##0.00##}")%>' runat="server"></asp:Literal>
@@ -1013,12 +1012,18 @@
                                                                         </ItemTemplate>
                                                                         <ItemStyle Width="150px" HorizontalAlign="Right" />
                                                                     </asp:TemplateField>
-                                                                    <asp:TemplateField HeaderText="Avance" Visible="false">
+                                                                    <asp:TemplateField HeaderText="Avance" Visible="True">
-                                                                        <ItemTemplate>
+                                                                        <ItemTemplate>                                                                           
-                                                                            <asp:CheckBox ID="CHKPAvance" Enabled="false" AutoPostBack="true" OnCheckedChanged="AvaClick" runat="server" />
+                                                                            
+                                                                            <asp:LinkButton runat="server" ID="LnkHabilitaAvance"  Text= "" OnClick="LnkHabilitaAvance_Click" Enabled="false" 
+                                                                                data-toggle="confirmation" data-popout="true" data-original-title="¿Habilitar el avance?" data-btn-ok-label="si"  ></asp:LinkButton>                                   
+
+                                                                            <asp:CheckBox ID="CHKPAvance" Enabled="True" Visible="false" AutoPostBack="true" OnCheckedChanged="AvaClick" runat="server" />
+
+
                                                                         </ItemTemplate>
                                                                         <ItemStyle Width="150px" HorizontalAlign="Right" />
-                                                                    </asp:TemplateField>
+                                                                    </asp:TemplateField>                                                                     
 
                                                                     <asp:TemplateField HeaderText="Editar" ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Center">
                                                                            <ItemTemplate>

Contratos/ContratoObra.aspx.vb

@@ -924,9 +924,10 @@ Partial Class Contratos_ContratoObra
 #Region "   CARGA DATOS   "
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos()
-        Dim Ruta = Request.ApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\"
+        Dim Ruta = Request.ApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\"
-        'DivTipoContrato.Visible = False
+        'DivTipoContrato.Visible = False
-
+
+
         If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Then
             If ObjContratos.DtResultados.Rows.Count > 0 Then
 
@@ -2042,12 +2043,14 @@ Partial Class Contratos_ContratoObra
     End Sub
     Protected Sub GV_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles Gv.RowDataBound
 
-        If e.Row.RowIndex > -1 Then
+        If e.Row.RowIndex > -1 Then
-
+
-            e.Row.FCCheckBox("CHKPAvance").Visible = Autorizado
+            Dim LnkHabilitaAvance As LinkButton = e.Row.FCLinkButton("LnkHabilitaAvance")
-            'e.Row.FCCheckBox("CHKPEstimacion").Visible = Autorizado
+            ' e.Row.FCCheckBox("CHKPAvance").Visible = Autorizado
+            'e.Row.FCCheckBox("CHKPEstimacion").Visible = Autorizado
             If UsuarioActual.TienePermisoProceso(124) Then
                 e.Row.FCCheckBox("CHKPAvance").Enabled = True
+                LnkHabilitaAvance.Enabled = True
             End If
 
             If e.Row.DBCampo("PermitirAvance").ToString = "1" Then
@@ -2065,7 +2068,20 @@ Partial Class Contratos_ContratoObra
             If CveTipoContrato = 25 Then
                 e.Row.Cells(1).Width = Unit.Pixel(10)
                 e.Row.Cells(6).Width = Unit.Pixel(250)
+            End If
+
+
+
+
+            If e.Row.DBCampo("PermitirAvance").ToString = "1" Then
+                LnkHabilitaAvance.Text = "<i class='fa fa-check-square-o' aria-hidden='true'></i>"
+                LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Deshabilitar avance?")
+            Else
+                LnkHabilitaAvance.Text = "<i class='fa fa-square-o' aria-hidden='true'></i>"
+                LnkHabilitaAvance.Attributes.Add("data-original-title", "¿Habilitar avance?")
             End If
+
+
         End If
         If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
             e.Row.FCDropDownList("DdlUMEdit").DataSource = GlobalDTProductosServiciosEquivalencias(e.Row.DataKey("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
@@ -5026,6 +5042,36 @@ Partial Class Contratos_ContratoObra
 
 
 
+    Protected Sub LnkHabilitaAvance_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+        Dim PermitirAvance As Integer = GvRow.DataKey("PermitirAvance").ToEntero
+
+        'Get the button that raised the event
+        'Dim btn As CheckBox = DirectCast(sender, CheckBox)
+        'Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow)
+
+        Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToString.ToEntero
+        Dim objContrato As New ClsContratos
+
+        If objContrato.UpdateContratosDetalleAvance(CveContratoDetalle, IIf(PermitirAvance = 1, 0, 1).ToString.ToEntero) Then
+            Dim row = TmpDT.Select(String.Format("CveContratoDetalle={0}", CveContratoDetalle))(0)
+
+            row("PermitirAvance") = IIf(PermitirAvance = 1, 0, 1).ToString.ToEntero
+
+
+            CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
+
+
+            Alert("Se ha permitido levantar avance", TipoMensaje.MsgInformacion)
+        Else
+            Alert("no se pudo permitir avance", TipoMensaje.MsgAdvertencia)
+        End If
+
+        objContrato.Dispose()
+
+    End Sub
 End Class
 
 

Empresas/140/Formatos/Salidas.rdlc

@@ -1187,6 +1187,77 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
+        <Textbox Name="Textbox13">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario Registró:</Value>
+                  <Style>
+                    <FontStyle>Normal</FontStyle>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox5</rd:DefaultName>
+          <Top>1.62251cm</Top>
+          <Left>0.79137cm</Left>
+          <Height>0.6cm</Height>
+          <Width>2.90426cm</Width>
+          <ZIndex>6</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox38">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioRegistro.Value</Value>
+                  <Style>
+                    <FontStyle>Normal</FontStyle>
+                    <FontWeight>Normal</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox33</rd:DefaultName>
+          <Top>1.62251cm</Top>
+          <Left>3.69563cm</Left>
+          <Height>0.6cm</Height>
+          <Width>5.93606cm</Width>
+          <ZIndex>7</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
       </ReportItems>
       <Style>
         <Border>
@@ -1387,6 +1458,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="UsuarioRegistro">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>e6b08487-acfe-4020-a8f2-f9a54953646f</rd:ReportID>

Inventarios/EntradasSalidas.aspx.vb

@@ -3661,6 +3661,7 @@ Partial Class Inventarios_EntradasSalidas
             GvEntradas.Columns(4).Visible = DtTemp.MAX("Serie") <> ""
             GvEntradas.Columns(5).Visible = DtTemp.MAX("Lote") <> ""
             GvEntradas.Columns(6).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+            GvEntradas.Columns(6).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
         End If
     End Sub
 
@@ -3773,6 +3774,7 @@ Partial Class Inventarios_EntradasSalidas
             GvSalidas.Columns(3).Visible = DtTemp.MAX("Serie") <> ""
             GvSalidas.Columns(4).Visible = DtTemp.MAX("Lote") <> ""
             GvSalidas.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
+            GvSalidas.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
         End If
     End Sub
 
@@ -4049,6 +4051,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 'activa caducidad
                 ThCaducidadEntrada.Visible = AplicaCaducidad
+                ThCaducidadEntrada.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
                 TrCaducidadEntrada.Visible = AplicaCaducidad
 
             Else
@@ -4082,6 +4085,7 @@ Partial Class Inventarios_EntradasSalidas
 
                 'activa caducidad
                 ThCaducidadSalida.Visible = AplicaCaducidad
+                ThCaducidadSalida.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
                 TrCaducidadSalida.Visible = AplicaCaducidad
 
             Else

Inventarios/EntregaAlmacen.aspx

@@ -398,7 +398,7 @@
                                 <div class="portlet-title">
                                     <div class="caption font-green">
                                         <i class="icon-pin font-green"></i>
-                                        <span class="caption-subject bold uppercase">Entregas solo a:</span>
+                                        <span class="caption-subject bold uppercase">PERSONAL AUTORIZADO PARA ENTREGAS EN ALMACÉN:</span>
                                     </div>
                                 </div>
                                 <div class="portlet-body form">

Inventarios/EntregaAlmacen.aspx.vb

@@ -840,6 +840,7 @@ Partial Class Inventarios_EntregaAlmacen
             If AplicaSeccion Then GvDatos.Columns(7).Visible = True
             If AplicaLote Then GvDatos.Columns(8).Visible = True
             If AplicaCaducidad Then GvDatos.Columns(9).Visible = True
+            GvDatos.Columns(9).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
 
         End If
         GvDatos.DataSource = DtDatos

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1293,6 +1293,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
         If AplicaSeccion Then GvInv.Columns(11).Visible = True
         If AplicaLote Then GvInv.Columns(12).Visible = True
+        GvInv.Columns(13).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
         If AplicaCaducidad Then GvInv.Columns(13).Visible = True
 
         If AplicaSerie OrElse AplicaSeccion OrElse AplicaLote OrElse AplicaCaducidad Then
@@ -2689,7 +2690,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                         Dim CveAlmacenVirutal As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacenFiltro).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
 
-                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
+                        CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirutal, If(TipoMovimiento > 1, 13, 2), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                         FolioVirtual = ObjInventario.Folio
 
                         For Each RowUsado As DataRow In DtPSVirtual.Rows
@@ -2883,9 +2884,16 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
 
+            'VERIFICA SI TIENE PENDIENTE POR SURTIR
             If UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 3 Then
-                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
-                    ErrorMovInv = True
+                    Dim DtFaltante As DataTable = ObjInventario.DtResultados.FiltraParametros("CantidadF > 0")
+                    If DtFaltante.Rows.Count = 0 Then
+                        If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                    DtFaltante.Dispose()
                 End If
             End If
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -702,6 +702,12 @@ Partial Class Inventarios_TraspasoAlmacen
 
         End If
 
+        Dim RealizarMovimientoVirtual As Boolean = False
+
+        If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+            RealizarMovimientoVirtual = True
+        End If
+
         'VALIDA ALMACEN DISTINTA SUCURSAL DEBE SER TRANSITORIO
         If Not UsuarioActual.CveEmpresa.Contiene(7, 140) Then '[IPP] EMPRESA VIGILANCIA NO OCUPA TRANSITORIOS - TIENEN MIL SUCURSALES Xd
             If Not ChkTransitorio.Checked Then
@@ -855,7 +861,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
 
         'VIRTUAL SALIDA
-        If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+        If RealizarMovimientoVirtual Then
 
             'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()
 
@@ -922,7 +928,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
 
                 'VIRTUAL ENTRADA
-                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                If RealizarMovimientoVirtual Then
                     'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()
 
                     'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
@@ -1259,6 +1265,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
                 TxtnFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
                 ThFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
+                ThFechaCaducidad.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
                 TdFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
                 'GvDatos.Columns(8).Visible = CBool(drP("AplicaCaducidad"))
 
@@ -1821,6 +1828,15 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
 
             Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
+            Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()
+
+
+            Dim RealizarMovimientoVirtual As Boolean = False
+
+            If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso TipoAlmacenOrigen.Contiene(1, 27) Then
+                RealizarMovimientoVirtual = True
+            End If
+
 
             'AGREGAMOS LA SALIDA
             CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
@@ -1903,7 +1919,7 @@ Partial Class Inventarios_TraspasoAlmacen
             'VIRTUAL ENTRADA
             Dim CveMovimientoVirtualEntrada As Integer = 0
             Dim FolioVirtualEntrada As Integer = 0
-            If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+            If RealizarMovimientoVirtual Then
                 Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()
 
                 Dim CveAlmacenVirtual As Integer = -1

Ventas/Clientes.aspx

@@ -844,11 +844,11 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Entregas solo a:</span>
+                                            <span class="caption-subject bold uppercase">PERSONAL AUTORIZADO PARA ENTREGAS EN ALMACÉN:</span>
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
-                                                <asp:LinkButton runat="server" ID="BtnAgregarClientePersonalEntrega" data-toggle="tooltip" data-placement="right" title="Agregar dirección de envio." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
+                                                <asp:LinkButton runat="server" ID="BtnAgregarClientePersonalEntrega" data-toggle="tooltip" data-placement="right" title="Agregar personal autorizado para entregas." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
                                             </div>
                                         </div>
                                     </div>

Ventas/Clientes.aspx.vb

@@ -5547,8 +5547,15 @@ Partial Class Clientes
     Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
         If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
 
-            Dim tmp As DataTable = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'")
+            Dim tmp As DataTable = Nothing
-            If tmp.Rows.Count > 0 Then
+
+            If RblTipo.SelectedValue.Contiene("Ped") Then
+                tmp = DTHistorialVentas.FiltraParametros($"TipoDocto IN('Ped','Pd2')")
+            Else
+                tmp = DTHistorialVentas.FiltraParametros($"TipoDocto = '{RblTipo.SelectedValue}'")
+            End If
+
+            If tmp IsNot Nothing AndAlso tmp.Rows.Count > 0 Then
                 Dim Totales As DataRow = tmp.NewRow
                 Totales("SubTotal") = tmp.SUM("SubTotal")
                 Totales("Total") = tmp.SUM("Total")

Ventas/ProductosServicios.aspx.vb

@@ -1238,6 +1238,9 @@ Partial Class ProductosyServicios
                         End If
                     Next
                 End If
+                If UsuarioActual.CveEmpresa = 141 Then
+                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, CveMarca, True)
+                End If
 
             Else
                 TieneError = True
@@ -1301,6 +1304,9 @@ Partial Class ProductosyServicios
                     Next
                 End If
 
+                If UsuarioActual.CveEmpresa = 141 Then
+                    TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, CveMarca, False)
+                End If
 
             Else
                 TieneError = True
@@ -2751,4 +2757,64 @@ Partial Class ProductosyServicios
         DivTiempoCaducidad.Visible = Activar
         RfvTxtTiempoCaducidad.Enabled = Activar
     End Sub
+
+    Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, CveMarca As Integer, Agregar As Boolean) As Boolean
+        Dim EmpresasFranquicia = New Integer() {152}
+        For Each Franquicia As Integer In EmpresasFranquicia
+            Dim CveClasificacion As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion.SelectedItem.Text)).ToEntero
+            Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveUnidadMedida", String.Format("UnidadMedida = '{0}'", DdlUnidadMedida.SelectedItem.Text)).ToEntero
+            Dim CveClasificacion2 As Integer = GlobalDTClasificaciones(CveEmpresa:=Franquicia).FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion = '{0}'", DdlClasificacion2.SelectedItem.Text)).ToEntero
+
+            If CveClasificacion <= 0 Then
+                Alert(String.Format("La clasificación indicada no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+            If CveUnidadMedida <= 0 Then
+                Alert(String.Format("La unidad de medida indicada no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+                Return True
+            End If
+
+            If Agregar Then
+                If Not ObjPS.AddPS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
+                           (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, DdlProveedor.txtValue.Value.ToEntero, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario,
+                           Franquicia, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2,
+                           CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
+                           CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, CveSATPS:=DdlSATPS.SelectedValue.ToEntero,
+                           IEPSGrabaIVA:=ChkIepsIVA.Checked, VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100),
+                           PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal, CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
+                           CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(),
+                           CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
+                           ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
+                           EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) > 0 Then
+                    'Alert(String.Format("Error al agregar el nuevo producto en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")))
+                    Return True
+
+                End If
+            Else
+
+                If ObjPS.GetPS(-1, CveClasificacion, Franquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
+                    Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS").ToEntero()
+                    If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
+                                  (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
+                                  EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca,
+                                  AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
+                                  CveConceptoContable:=DdlConceptoRelacionado.SelectedValue.ToEntero, CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked,
+                                  VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
+                                  CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario,
+                                  CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(),
+                                  CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
+                                  ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
+                                  EsOutSourcing:=ChkEsOutSourcing.Checked, AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked,
+                                  TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then
+                        Return True
+
+                    End If
+                Else
+                    Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(Franquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+                    Return True
+                End If
+            End If
+        Next
+        Return False
+    End Function
 End Class

Ventas/Ventas.aspx.vb

@@ -3940,14 +3940,22 @@ Partial Class Ventas
                         Case "PeC"
                             DdlTipoComprobante.Items.Insert(5, New ListItem("Pedido de Consignación", "PeC"))
                         Case "PA"
-                            BtnGenerarRemision.Visible = If(CveEstatus = 16, True, False)
+                            If UsuarioActual.TienePermisoProceso(199) Then
+                                BtnGenerarRemision.Visible = If(CveEstatus = 16, True, False)
+                            Else
+                                BtnGenerarRemision.Visible = False
+                            End If
                             CvePedidoA = CveVenta
                             DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                             EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
                         Case "Pd2"
                             CvePedido2 = CveVenta
                             BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
-                            BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
+                            If UsuarioActual.TienePermisoProceso(199) Then
+                                BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
+                            Else
+                                BtnGenerarRemision.Visible = False
+                            End If
                     End Select
 
                     DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString()
@@ -4588,7 +4596,12 @@ Partial Class Ventas
 
                     'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR
                     If TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
-                        BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True)
+
+                        If UsuarioActual.TienePermisoProceso(199) Then
+                            BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True)
+                        Else
+                            BtnGenerarRemision.Visible = False
+                        End If
                         BtnsFacturar.Visible = True
                         LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
                     End If
@@ -5615,7 +5628,6 @@ Partial Class Ventas
                         BtnsFacturar.Visible = False
                         LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274)
                     Else
-
                         If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
                             BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False)
                         End If
@@ -5635,7 +5647,11 @@ Partial Class Ventas
                 Else
                     BtnGeneraAutorizacion.Visible = False
                     If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then
-                        BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
+                        If UsuarioActual.TienePermisoProceso(199) Then
+                            BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False)
+                        Else
+                            BtnGenerarRemision.Visible = False
+                        End If
                     End If
                 End If
             Else
@@ -12660,6 +12676,10 @@ Partial Class Ventas
             Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError)
         End Try
 
+        If CveVenta > 0 Then
+            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+        End If
+
         LocalSerieFolio = ObjFactura.SerieFolio
         LocalTipoDocto = ObjFactura.TipoDocto
         'End If
@@ -12673,7 +12693,7 @@ Partial Class Ventas
 
             Try
                 ' BytesPdfCotizacion(CveVenta)
-                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF))
+                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF))
                 Hilo.Start()
             Catch ex As Exception
                 OnError("Ocurrió error al mandar Mail", ex)
@@ -12695,8 +12715,6 @@ Partial Class Ventas
         Dim LocalSerieFolio As String = String.Empty
         Dim LocalTipoDocto As String = String.Empty
 
-        If CveVenta > 0 Then CreaObjetosVenta()
-
         'TIMBRADO NUEVO
         Try
             pdf = PdfFactura(ObjFactura)
@@ -12704,6 +12722,10 @@ Partial Class Ventas
             Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError)
         End Try
 
+        If CveVenta > 0 Then
+            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+        End If
+
         LocalSerieFolio = ObjFactura.SerieFolio
         LocalTipoDocto = ObjFactura.TipoDocto
 
@@ -12715,7 +12737,7 @@ Partial Class Ventas
 
             Try
                 ' BytesPdfCotizacion(CveVenta)
-                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF))
+                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF))
                 Hilo.Start()
             Catch ex As Exception
                 OnError("Ocurrió error al mandar Mail", ex)
@@ -12746,6 +12768,10 @@ Partial Class Ventas
                 Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError)
             End Try
 
+            If CveVenta > 0 Then
+                ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+            End If
+
             LocalSerieFolio = ObjFactura.SerieFolio
             LocalTipoDocto = ObjFactura.TipoDocto
 
@@ -12754,7 +12780,7 @@ Partial Class Ventas
 
             Try
                 ' BytesPdfCotizacion(CveVenta)
-                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF))
+                Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF))
                 Hilo.Start()
             Catch ex As Exception
                 OnError("Ocurrió error al mandar Mail", ex)
@@ -17813,7 +17839,7 @@ Partial Class Ventas
 #End Region
 
 #Region "  MANDA CORREO  "
-    Private Sub MandaMails(CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String)
+    Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String)
 
         Dim ObjMail As New ClsSisMail()
         Dim ObjVentas As New ClsVentas
@@ -18376,7 +18402,7 @@ Partial Class Ventas
                                           Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                           PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(),
                                           CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
-                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
+                                          OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero()) Then
                 OcurrioError = True
             End If
 
@@ -24918,7 +24944,7 @@ Partial Class Ventas
                                   Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                   PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(),
                                   CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero()) Then
             MensajeError = "Ocurrió un error al actualizar la información de la cotización"
             OcurrioError = True
         End If