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

Compras/Compras.aspx.vb

@@ -4425,14 +4425,14 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
-        If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
+        'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
-            Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
+        '    Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
-            Dim Fecha28Dic As Date = New Date(2024, 12, 28)
+        '    Dim Fecha28Dic As Date = New Date(2024, 12, 28)
-            If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then
+        '    If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then
-                Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia)
+        '        Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+        '        Exit Sub
-            End If
+        '    End If
-        End If
+        'End If
 
         If Not ValidaPresupuesto(2) Then
             Exit Sub
@@ -6530,7 +6530,7 @@ Partial Class Compras_Compras
                                                         Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios
                                                         If UsuarioActual.CveEmpresa.Contiene(13, 83, 7, 11, 12, 122) Then AgregaMercanciaInventario = False
 
-                                                        Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV")
+                                                        Dim RegistraConcepto225 As Boolean = AgregaMercanciaInventario AndAlso DdlTipoComprobante.SelectedValue.Contiene("DEV")
 
                                                         Dim Insertado205 As Boolean = False
 
@@ -7556,7 +7556,6 @@ Partial Class Compras_Compras
                                                             Next
                                                             importeMovimiento = 0
                                                         End If
-
                                                 End Select
 
                                                 If ErrorPrepoliza Then
@@ -18263,7 +18262,7 @@ Partial Class Compras_Compras
 
             Case "U" 'UPDATE
                 UpdatePS(CveContratoDetalle)
-                Alert("Concepto actualizado Correctamente.", TipoMensaje.MsgInformacion)
+                Alert("Concepto actualizado Correctamente.", TipoMensaje.ToastInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddProducto"))
         End Select
         ActualizaTotales = False
@@ -18275,13 +18274,8 @@ Partial Class Compras_Compras
             GuardaAC()
         End If
 
-
-
-
-
         If CveCompra > 0 AndAlso ChkModalDesvincularAF.Checked Then
 
-
             If Not TmpDT.Columns.Contains("DesvicularAF") Then
                 TmpDT.Columns.Add("DesvicularAF", GetType(Boolean))
             End If
@@ -18535,7 +18529,6 @@ Partial Class Compras_Compras
             Exit Sub
         End Try
 
-
         'BANDERA
         Dim AplicaCalculaTotales As Boolean = False
 

Compras/PopUpVerFactura.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.IO
 Imports System.Xml
 Imports Extensiones
+Imports iText.Barcodes.Dmcode
 Imports Microsoft.Reporting.WebForms
 Imports ZXing
 
@@ -6020,6 +6021,9 @@ Partial Class PopUpVerFactura
             End If
         Else
             If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+
+                ParamComprobacion = ObjIE.DtResultados
+
                 If ObjIE.DtResultados.Rows.Count > 0 Then
 
                     Dim reportDataSetsList As New List(Of ReportDataSource)
@@ -6096,6 +6100,14 @@ Partial Class PopUpVerFactura
                         ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
 
                     Else
+
+                        If UsuarioActual.CveEmpresa = 140 Then
+                            Dim Aplicado As Decimal = 0
+                            Dim ImporteDoc As Decimal = ParamComprobacion.Rows(0)("Importe").ToString.ToDecimal
+                            Dim LeyendaSaldo As String = $"Folio #{ParamComprobacion.Rows(0)("Folio").ToString} con importe de ${ImporteDoc.ToString("###,###,###.00")} y saldo antes de la comprobación de ${SaldoTotal.ToString("###,###,###.00")}, Comprobaciones a la fecha {ParamComprobacion.Rows(0)("FechaDocumento").ToString().ToDate().ToString("dd/MM/yyyy")}  ${ImportePagoTotal.ToString("###,###,###.00")} saldo después de la comprobación ${(SaldoTotal - ImportePagoTotal).ToString("###,###,###.00")} ."
+                            paramList.Add(New ReportParameter("LeyendaSaldo", LeyendaSaldo))
+                        End If
+
                         ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
                     End If
 

Compras/eFacturas.aspx.vb

@@ -1156,12 +1156,12 @@ Partial Class Compras_eFacturas
                 e.Row.FCCheckBox("chkRegistraFactura").Visible = False
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
+            'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
-                Dim Fecha28Dic As Date = New Date(2024, 12, 28)
+            '    Dim Fecha28Dic As Date = New Date(2024, 12, 28)
-                If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then
+            '    If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then
-                    e.Row.FCHyperLink("HplAgregar").Visible = False
+            '        e.Row.FCHyperLink("HplAgregar").Visible = False
-                End If
+            '    End If
-            End If
+            'End If
 
             e.Row.FCCheckBox("chkRegistraFactura").Attributes.Add("onclick", "ChkRegsitraFacturas()")
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2847,6 +2847,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             LnkFolioManual.Visible = True
             BtnDescontabilizar.Visible = False
             BtnContabilizar.Visible = True
+            Folio = "0"
         End If
 
         ObjConta.Dispose()
@@ -2857,7 +2858,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
     Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click
-
+        Folio = "0"
         TxtFolio.Enabled = True
         TxtFolio.Focus()
         UpPoliza.Update()

Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc

@@ -5884,6 +5884,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                   <Border>
                     <Style>Solid</Style>
                   </Border>
+                  <BackgroundColor>LightGrey</BackgroundColor>
                   <PaddingLeft>2pt</PaddingLeft>
                   <PaddingRight>2pt</PaddingRight>
                   <PaddingTop>2pt</PaddingTop>
@@ -6015,6 +6016,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                   <Border>
                     <Style>Solid</Style>
                   </Border>
+                  <BackgroundColor>LightGrey</BackgroundColor>
                   <PaddingLeft>2pt</PaddingLeft>
                   <PaddingRight>2pt</PaddingRight>
                   <PaddingTop>2pt</PaddingTop>
@@ -6134,6 +6136,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                   <Border>
                     <Style>Solid</Style>
                   </Border>
+                  <BackgroundColor>LightGrey</BackgroundColor>
                   <PaddingLeft>2pt</PaddingLeft>
                   <PaddingRight>2pt</PaddingRight>
                   <PaddingTop>2pt</PaddingTop>

Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc

@@ -1121,7 +1121,9 @@
                       </Style>
                     </TextRun>
                   </TextRuns>
-                  <Style />
+                  <Style>
+                    <TextAlign>Center</TextAlign>
+                  </Style>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox1</rd:DefaultName>

Inventarios/Kardex.aspx

@@ -425,7 +425,7 @@
     </asp:UpdatePanel>
 
     <div class="row">
-        <div class="col-md-8">
+        <div class="col-md-7">
             <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpNumeroParte">
                 <ContentTemplate>
                     <asp:Label runat="server" ID="LblNumeroParte" Text="" Visible ="false"></asp:Label>
@@ -433,24 +433,54 @@
             </asp:UpdatePanel>
             
         </div>
-        <div class="col-md-2" style="text-align:right!important">
+        
+            
             <asp:UpdatePanel runat="server" ID="UpOCS" UpdateMode="Conditional">
-                <ContentTemplate>             
+                <ContentTemplate> 
-                    <div id="DivIndicadorOC2" runat="server" visible="false" >
-                        <div style=" color: gray;font-size: 12px;font-weight: bold;">
-                            OC
-                        </div>
-                        <div style=" color: blue; font-size: 20px; font-weight: bold;">
-                            <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
-                        </div>
 
+                    <div class="col-md-1" style="text-align:right!important">
+                        
+                        <div id="DivIndicadorOC2" runat="server" visible="false" >
+                            <div style=" color: gray;font-size: 12px;font-weight: bold;">
+                                OC
+                            </div>
+                            <div style=" color: blue; font-size: 20px; font-weight: bold;">
+                                <asp:LinkButton ID="LnkIndicador_OC2" Text="" OnClick="LnkIndicador_OC_Click" runat="server" CssClass="Texto" />                                            
+                            </div>
+
+                        </div>
                     </div>
+
+                   <div class="col-md-1" style="text-align:right!important">
+                       <div id="DivIndicadorL1" runat="server" visible="false" >
+                            <div style="font-size: 12px">
+                                <asp:Label runat="server" ID="LblHeaderL1"></asp:Label>
+                            </div>
+                            <div style="font-size: 12px">
+                                <asp:Label runat="server" ID="LblL1"></asp:Label>
+                            </div>
+
+                        </div>
+                   </div>
+
+                   <div class="col-md-1" style="text-align:right!important">
+                       <div id="DivIndicadorL2" runat="server" visible="false" >
+                             <div style="font-size: 12px">
+                                 <asp:Label runat="server" ID="LblHeaderL2"></asp:Label>
+                             </div>
+                             <div style="font-size: 12px">
+                                 <asp:Label runat="server" ID="LblL2"></asp:Label>
+                             </div>
+
+                         </div>
+                   </div>
+
                   
                 </ContentTemplate>
             </asp:UpdatePanel>
                 
            
-        </div>
+        
         <div class="col-md-2">
             <div class="text-right" style="margin: 5px 0px;">
                 <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvM.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
@@ -467,67 +497,85 @@
             <asp:GridView ID="GvM" Width="100%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
                 ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" DataKeyNames="CveMovimiento,FechaMovto">
                 <Columns>
+                    <%--0--%>
                     <asp:BoundField DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="70px" HeaderText="Fecha" />
+                    <%--1--%>
                     <asp:TemplateField ItemStyle-Width="10px" ItemStyle-HorizontalAlign="Left" Visible="false">
                         <ItemTemplate>
                             <asp:LinkButton data-toggle="tooltip" title="Editar Fecha" ID="LnkEditarFecha" OnClick="LnkEditarFecha_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--2--%>
                     <asp:BoundField DataField="Concepto" HeaderText="Movimiento" ItemStyle-HorizontalAlign="Left" />
+                    <%--3--%>
                     <asp:BoundField DataField="Almacen" HeaderText="Almacén" ItemStyle-HorizontalAlign="Left" />
+                    <%--4--%>
                     <asp:TemplateField ItemStyle-Width="70px" HeaderText="Folio">
                         <ItemTemplate>
                             <asp:HyperLink ID="hlFolio" runat="server" Text='<%# Eval("Folio")%>' CssClass="Texto" NavigateUrl='<%# Eval("CveMovimiento", "/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}")%>' Target="_blank" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--5--%>
                     <asp:BoundField DataField="AlmacenDestino" HeaderText="A.Destino" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px"  />
+                    <%--6--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Doc.">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioD" Text='<%# Eval("FolioDocto")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--7--%>
+                    <asp:BoundField DataField="ClienteProveedor" HeaderText="Cliente/Proveedor" ItemStyle-HorizontalAlign="Left" Visible="false" />
+                    <%--8--%>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Folio Rel." Visible="false">
                         <ItemTemplate>
                             <asp:HyperLink runat="server" Target="_blank" ID="hlFolioDr" Text='<%# Eval("FolioRelacionEntrada")%>' NavigateUrl='<%# Eval("CveVentaRelacionada", "/Ventas/Ventas.aspx?CveVenta={0}")%>' CssClass="Texto" />
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--9--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Left" HeaderText="U. M.">
                         <ItemTemplate>
                             <asp:Label ID="lbUm" runat="server" Text='<%# Eval("UnidadMedida")%>' data-toggle="tooltip" title='<%# Eval("CveUnidadMedida")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--10--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Sección" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbSA" runat="server" Text='<%# Eval("SeccionAlmacen")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--11--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Serie" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbS" runat="server" Text='<%# Eval("Serie")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--12--%>
                     <asp:TemplateField ItemStyle-Width="70px" ItemStyle-HorizontalAlign="Left" HeaderText="Lote" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="lbL" runat="server" Text='<%# Eval("Lote")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--13--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Center" HeaderText="F. Caducidad" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lbFCad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}")%>' data-toggle="tooltip"></asp:Label>
-                        </ItemTemplate>
+                        </ItemTemplate>                        
                     </asp:TemplateField>
+                    <%--14--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Entrada">
                         <ItemTemplate>
                             <asp:Label ID="lbEntrada" runat="server"
                                 Text='<%# Eval("Entrada", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--15--%>
                     <asp:TemplateField ItemStyle-Width="75px" ItemStyle-HorizontalAlign="Right" HeaderText="Salida">
                         <ItemTemplate>
                             <asp:Label ID="lbSalida" runat="server"
                                 Text='<%# Eval("Salida", "{0:###,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--16--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Costo">
                         <ItemTemplate>
                             <asp:Label ID="lbCosto" runat="server"
@@ -535,24 +583,28 @@
                         </ItemTemplate>
                         <ItemStyle Width="100px" HorizontalAlign="Right"></ItemStyle>
                     </asp:TemplateField>
+                    <%--17--%>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Importe">
                         <ItemTemplate>
                             <asp:Label ID="lbImporte" runat="server"
                                 Text='<%# Eval("Importe", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--18--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right" HeaderText="Existencias">
                         <ItemTemplate>
                             <asp:Label ID="lbExistencias" runat="server"
                                 Text='<%# Eval("Existencias", "{0:#,###.####}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--19--%>
                     <asp:TemplateField ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Right" HeaderText="Valor">
                         <ItemTemplate>
                             <asp:Label ID="lbValor" runat="server"
                                 Text='<%# Eval("ValorInventario", "{0:N2}")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%--20--%>
                     <asp:TemplateField ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Center" HeaderText="OdeC">
                         <ItemTemplate>
                             <asp:Label ID="LbOC" runat="server" Text='<%# Eval("NoOrden")%>' data-toggle="tooltip" title='<%# Eval("CveOrdendeCorte")%>'></asp:Label>

Inventarios/Kardex.aspx.vb

@@ -79,16 +79,20 @@ Partial Class Inventarios_Kardex
     Private Sub CargaPermisos()
         If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
-        GvM.Columns(15).Visible = TienePermisoImportes ' costo
+        GvM.Columns(16).Visible = TienePermisoImportes ' costo
-        GvM.Columns(16).Visible = TienePermisoImportes ' importe
+        GvM.Columns(17).Visible = TienePermisoImportes ' importe
-        GvM.Columns(18).Visible = TienePermisoImportes ' valor
+        GvM.Columns(19).Visible = TienePermisoImportes ' valor
 
-        GvM.Columns(19).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
+        GvM.Columns(20).Visible = UsuarioActual.CveEmpresa = 172 AndAlso UsuarioActual.CveRol = 1
 
         If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
             DVFiltroCodigo.Visible = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            GvM.Columns(7).Visible = True
+        End If
+
     End Sub
 
     Private Function isWithFamily() As Boolean
@@ -261,13 +265,13 @@ Partial Class Inventarios_Kardex
                 AplicaAlmacenDestino = DtTemp.MAX("AlmacenDestino") <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1"
 
                 GvM.Columns(5).Visible = AplicaAlmacenDestino
-                GvM.Columns(7).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
+                GvM.Columns(8).Visible = DtTemp.MAX("FolioRelacionEntrada") <> ""
 
-                If AplicaSeccion Then GvM.Columns(9).Visible = True
+                If AplicaSeccion Then GvM.Columns(10).Visible = True
-                If AplicaSerie Then GvM.Columns(10).Visible = True
+                If AplicaSerie Then GvM.Columns(11).Visible = True
-                If AplicaLote Then GvM.Columns(11).Visible = True
+                If AplicaLote Then GvM.Columns(12).Visible = True
-                If AplicaCaducidad Then GvM.Columns(12).Visible = True
+                If AplicaCaducidad Then GvM.Columns(13).Visible = True
-                If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(12).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
+                If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(13).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
 
                 Dim Drp As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
                 Dim AuxAplicaSerie As Boolean
@@ -341,6 +345,50 @@ Partial Class Inventarios_Kardex
         UpOCS.Update()
     End Sub
 
+
+    Private Sub CargaPreciosLista(CvePS As Integer)
+
+
+        LblHeaderL1.Text = ""
+        LblL1.Text = ""
+
+        LblHeaderL2.Text = ""
+        LblL2.Text = ""
+
+        DivIndicadorL1.Visible = False
+        DivIndicadorL2.Visible = False
+
+        Dim DTPrecioLista As New DataTable
+
+        Dim objPS As New ClsProductosServicios
+        If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CvePS:=CvePS) Then
+            DTPrecioLista = objPS.DtResultados.Copy
+        End If
+        objPS.Dispose()
+
+
+        If DTPrecioLista.Rows.Count = 1 Then
+            LblHeaderL1.Text = DTPrecioLista.Rows(0)("PrecioLista").ToString
+            LblL1.Text = DTPrecioLista.Rows(0)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+            DivIndicadorL1.Visible = True
+        ElseIf DTPrecioLista.Rows.Count >= 2 Then
+
+            LblHeaderL1.Text = DTPrecioLista.Rows(0)("PrecioLista").ToString
+            LblL1.Text = DTPrecioLista.Rows(0)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+
+            LblHeaderL2.Text = DTPrecioLista.Rows(1)("PrecioLista").ToString
+            LblL2.Text = DTPrecioLista.Rows(1)("Precio").ToString.ToDecimal.ToString("###,###,###.00")
+
+            DivIndicadorL1.Visible = True
+            DivIndicadorL2.Visible = True
+
+        End If
+
+
+
+
+    End Sub
+
     Private Function CargarKardex(CvePS As Integer) As DataTable
         Dim dt As DataTable = Nothing
 
@@ -409,6 +457,7 @@ Partial Class Inventarios_Kardex
 
                 If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                     CargarOCPendientesCompra()
+                    CargaPreciosLista(CvePS)
                     DivIndicadorOC.Visible = True
                     DivIndicadorOC2.Visible = True
                     UpOCS.Update()

Ventas/RepRemisiones.aspx

@@ -208,6 +208,7 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>   
+    
     <div class="row">
         <div align="right">
            <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
@@ -221,8 +222,18 @@
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true"  GridLines="None">
                 <Columns>
-                    <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField ="Folio" DataNavigateUrlFormatString="/Ventas/RepRemisionesDetalle.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" Target="_blank" />
+                    <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField ="Folio" DataNavigateUrlFormatString="/Ventas/RepRemisionesDetalle.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" Target="_blank" />                    
-                    <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="150px" DataTextField ="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" />                    
+                    <%--<asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="150px" DataTextField ="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"  DataNavigateUrlFields="CveVenta" />--%>
+                    
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right" HeaderStyle-Width="10%"  >
+                        <HeaderTemplate>
+                            Fecha
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:LinkButton ID="LnkFecha"   runat="server"  />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
                     <asp:BoundField HeaderText="Vencimiento" DataField="FechaVencimiento" DataFormatString="{0:d}"  />
                     <asp:BoundField HeaderText="Cliente" DataField="Cliente"  />
                     <asp:BoundField HeaderText="Contrato" DataField="TieneContrato" Visible="false"  />                    

Ventas/RepRemisiones.aspx.vb

@@ -130,7 +130,12 @@ Partial Class RepRemisiones
                     e.Row.Cells(2).ForeColor = Drawing.Color.Red
                 End If
 
-                e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' targen='_blank'>{e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm:ss")}</a>"
+                'e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' targen='_blank'>{e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm:ss")}</a>"
+                Dim LnkFecha = e.Row.FCLinkButton("LnkFecha")
+                LnkFecha.Text = If(UsuarioActual.Empresa.Funcionalidad(578) = "1", e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm"), e.Row.DataKey("Fecha").ToDate().ToString("dd/MM/yyyy HH:mm:ss"))
+                LnkFecha.Attributes("onclick") = $"window.open('./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}', '_blank'); return false;"
+
+
 
             End If
 
@@ -155,8 +160,8 @@ Partial Class RepRemisiones
             GvDatos.Columns(7).Visible = True
             'columna de fecha
             GvDatos.Columns(1).HeaderText = "Fecha Cirugía"
-            CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"
+            'CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"
-            CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120)
+            'CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120)
             GvDatos.Columns(16).Visible = True
         End If