AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-27 18:39:56 -07:00
parent a08af9f74b 10a748bfff
commit 0c29f738b9
11 changed files with 2037 additions and 1862 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Compras/Compras.aspx.vb
View File

@@ -4425,14 +4425,14 @@ Partial Class Compras_Compras
'------------------ INICIA VALIDACIONES ------------------
If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
Dim Fecha28Dic As Date = New Date(2024, 12, 28)
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)
Exit Sub
End If
End If
'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 Then
' Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
' Dim Fecha28Dic As Date = New Date(2024, 12, 28)
' 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)
' Exit Sub
' 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

12
Compras/PopUpVerFactura.aspx.vb
View File

@@ -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

12
Compras/eFacturas.aspx.vb
View File

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

3
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -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()

3
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -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>

4
Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc
View File

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

3667
Empresas/Grales/Formatos/rptChequeMovimientos.rdlc
View File

File diff suppressed because it is too large Load Diff

76
Inventarios/Kardex.aspx
View File

@@ -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>
<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>
<ContentTemplate>
<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>

69
Inventarios/Kardex.aspx.vb
View File

@@ -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 ' importe
GvM.Columns(18).Visible = TienePermisoImportes ' valor
GvM.Columns(16).Visible = TienePermisoImportes ' costo
GvM.Columns(17).Visible = TienePermisoImportes ' importe
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 AplicaSerie Then GvM.Columns(10).Visible = True
If AplicaLote Then GvM.Columns(11).Visible = True
If AplicaCaducidad Then GvM.Columns(12).Visible = True
If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(12).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
If AplicaSeccion Then GvM.Columns(10).Visible = True
If AplicaSerie Then GvM.Columns(11).Visible = True
If AplicaLote 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(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()

15
Ventas/RepRemisiones.aspx
View File

@@ -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="Fecha" ItemStyle-Width="150px" DataTextField ="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" DataNavigateUrlFields="CveVenta" />
<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: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" />

11
Ventas/RepRemisiones.aspx.vb
View File

@@ -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).ItemStyle.Width = Unit.Pixel(120)
'CType(GvDatos.Columns(1), HyperLinkField).DataTextFormatString = "{0:dd/MM/yyyy HH:mm}"
'CType(GvDatos.Columns(1), HyperLinkField).ItemStyle.Width = Unit.Pixel(120)
GvDatos.Columns(16).Visible = True
End If