This commit is contained in:
2023-08-09 19:00:30 -07:00
26 changed files with 9455 additions and 6456 deletions

View File

@@ -259,6 +259,7 @@ Public Class ClsFinanzas
.Add("@Opcion", SqlDbType.Int).Value = Opcion
End With
Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
@@ -286,6 +287,7 @@ Public Class ClsFinanzas
End With
Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
@@ -337,6 +339,7 @@ Public Class ClsFinanzas
End With
Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception

View File

@@ -9188,7 +9188,7 @@ Public Class ClsPaginas
'PaginaDict.Add("/Sistemas/CatEmpresas.aspx".ToUpper(), 2)
PaginaDict.Add("/Sistemas/CatEmpresas.aspx".ToUpper(), 24)
PaginaDict.Add("/Sistemas/Empresa.aspx".ToUpper(), 2)
PaginaDict.Add("/Sistemas/Empresa2.aspx".ToUpper(), -1)
PaginaDict.Add("/Sistemas/Empresa2.aspx".ToUpper(), 1341)
PaginaDict.Add("/Sistemas/CatUsuarios.aspx".ToUpper(), 20)
PaginaDict.Add("/Sistemas/Usuarios.aspx".ToUpper(), 20)
PaginaDict.Add("/Sistemas/UsuarioDetalle.aspx".ToUpper(), 20)

View File

@@ -432,8 +432,8 @@ Partial Class Compras_ReembolsosComprobaciones
FoliosFechasValFechaDocumentoMesInferior.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
ElseIf AnioFactura = AnioDocumento And MesDocumento > MesFactura Then
FoliosFechasValFechaDocumentoPagoMesSuperior.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
ValFechaDocumento = True
'FoliosFechasValFechaDocumentoPagoMesSuperior.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("FechaCompra").ToDate.ToString("dd/MM/yyyy") } <br/>")
'ValFechaDocumento = True
End If
End If

View File

@@ -525,6 +525,12 @@
$('[data-toggle="tooltip"]').tooltip();
});
}
</script>
</asp:Content>

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -320,6 +320,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -723,6 +726,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -779,6 +785,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -835,6 +844,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox25</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -891,6 +903,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox28</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -1210,6 +1225,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>SaldoIniImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1255,6 +1273,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>EntradaImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1300,6 +1321,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>SalidaImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1345,6 +1369,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>SaldoFImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1598,6 +1625,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox30</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -1610,6 +1640,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1634,6 +1665,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -1670,6 +1704,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -1706,6 +1743,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox33</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -2176,6 +2216,12 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="OcultarImportes">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="LOGOSERVECENJPG">

File diff suppressed because it is too large Load Diff

View File

@@ -303,6 +303,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -698,6 +701,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -754,6 +760,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -810,6 +819,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox25</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -866,6 +878,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox28</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>White</Color>
@@ -1185,6 +1200,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>SaldoIniImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1217,7 +1235,6 @@
<Value>=IIF(Fields!EntradaImp.Value = "0", "-", Fields!EntradaImp.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>=Iif(Fields!CvePS.Value=-1, "Medium","Default")</FontWeight>
<Format>#,0.00</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language>
@@ -1230,6 +1247,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>EntradaImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1262,7 +1282,6 @@
<Value>=IIF(Fields!SalidaImp.Value = "0", "-", Fields!SalidaImp.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>=Iif(Fields!CvePS.Value=-1, "Medium","Default")</FontWeight>
<Format>#,0.00</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language>
@@ -1275,6 +1294,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>SalidaImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1307,7 +1329,6 @@
<Value>=IIF(Fields!SaldoFImp.Value = "0", "-", Fields!SaldoFImp.Value)</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>=Iif(Fields!CvePS.Value=-1, "Medium","Default")</FontWeight>
<Format>#,0.00</Format>
<Color>=Iif(Fields!CvePS.Value=-1, "White","Black")</Color>
<Language>es-MX</Language>
@@ -1320,6 +1341,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>SaldoFImp</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1573,6 +1597,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox30</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -1599,7 +1626,6 @@
<Value>=Sum(Fields!EntradaImp.Value, "DataSet1")</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>=Iif(Fields!CvePS.Value=-1, "Medium","Default")</FontWeight>
<Format>#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1609,6 +1635,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox31</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -1635,7 +1664,6 @@
<Value>=Sum(Fields!SalidaImp.Value, "DataSet1")</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>=Iif(Fields!CvePS.Value=-1, "Medium","Default")</FontWeight>
<Format>#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1645,6 +1673,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -1671,7 +1702,6 @@
<Value>=Sum(Fields!SaldoFImp.Value, "DataSet1")</Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>=Iif(Fields!CvePS.Value=-1, "Medium","Default")</FontWeight>
<Format>#,0.00</Format>
<Language>es-MX</Language>
</Style>
@@ -1681,6 +1711,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox33</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Color>LightGrey</Color>
@@ -1693,6 +1726,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
</TablixCells>
@@ -2108,15 +2142,20 @@
<ReportParameters>
<ReportParameter Name="pEmp">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="pImg">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FechaInicial">
<DataType>DateTime</DataType>
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FechaFinal">
@@ -2133,6 +2172,7 @@
</ReportParameter>
<ReportParameter Name="UsuarioImprimio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
@@ -2142,6 +2182,12 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="OcultarImportes">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>1d5d9525-4bdd-4783-9df6-cce93069c30f</rd:ReportID>

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -3,6 +3,19 @@
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<link rel="stylesheet" href="https://www.amcharts.com/lib/3/plugins/export/export.css" type="text/css" media="all" />
<style>
#chartdiv {
width: 100%;
height: 500px;
}
.fa.fa-bar-chart {
width: 16px;
height: 14px;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -52,16 +65,17 @@
<label class="col-md-1" runat="server" id="LiEjercicioLbl">Ejercicio Inicio: </label>
<div class="col-md-2 " runat="server" id="LiEjercicioDdl">
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
<asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio_SelectedIndexChanged" >
</asp:DropDownList>
</div>
<label class="col-md-1" runat="server" id="LiEjercicioLbl2" visible="True">Ejercicio Fin: </label>
<div class="col-md-2" runat="server" id="LiEjercicioDdl2" visible="True">
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" OnSelectedIndexChanged="DdlEjercicio2_SelectedIndexChanged" >
</asp:DropDownList>
</div>
<label class="col-md-2" style="width: 80px;" runat="server" id="LblPeriodo" visible="false" >Periodo: </label>
<label class="col-md-1" runat="server" id="LblPeriodo" visible="false" >Periodo: </label>
<div class="col-md-2 " runat="server" id="DivPeriodo" visible="false">
<asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
@@ -81,9 +95,20 @@
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1" Visible="false">SubProyecto:</asp:Label>
<div class="col-md-2" runat="server" visible="false">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
<asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%" AutoPostBack="True">
</asp:DropDownList>
</div>
<label class="col-md-1" runat="server" id="LblVisualizacion" visible="false" >Visualización: </label>
<div class="col-md-2" runat="server" visible="false" id="DVVisualizacion" >
<asp:DropDownList runat="server" ID="DdlVisualizacion" CssClass="select2me" Width="150px" >
<asp:ListItem Value="1">Comparativo</asp:ListItem>
<asp:ListItem Value="2">Trazabilidad</asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
@@ -106,7 +131,7 @@
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" >
<ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General" >
<ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General" Visible="false">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpBalanceGeneral" UpdateMode="Conditional">
<ContentTemplate>
@@ -262,7 +287,7 @@
</ajax:TabPanel>
<ajax:TabPanel ID="TabEstadoResultados" runat="server" HeaderText="Estado Resultados">
<ajax:TabPanel ID="TabEstadoResultados" runat="server" HeaderText="Estado Resultados" Visible="false">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpEstadoResultados" UpdateMode="Conditional">
<ContentTemplate>
@@ -412,7 +437,7 @@
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Razones F." >
<ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Razones Financieras" >
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional">
<ContentTemplate>
@@ -421,13 +446,23 @@
EmptyDataText="No se encontraron registros"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"
Style="text-align: center;" GridLines="None">
<Columns>
<%-- <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderStyle-Width="40px">
<HeaderTemplate>Codigo</HeaderTemplate>
<Columns>
<asp:TemplateField>
<HeaderTemplate>
<%--<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica gral" NavigateUrl="javascript:void(0);" onclick="return cargaGraficaBarras2();"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>--%>
</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
<div style="white-space: nowrap">
<asp:HyperLink ID="Hypgrafica" Visible="false" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" Visible="false" />
<asp:HyperLink ID="hpl2" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" >
<i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
</div>
</ItemTemplate>
</asp:TemplateField>--%>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
<HeaderTemplate>Ratio</HeaderTemplate>
@@ -572,11 +607,7 @@
</asp:UpdatePanel>
<div id="DivModalGrafica" class="modal ADS fade" role="dialog">
<div id="DivModalGrafica" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UPModalProd" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
@@ -587,7 +618,7 @@
</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="row" style="display:none">
<div class="col-md-2"></div>
<label class="col-md-1 truncate">Grafica:</label>
<div class="col-md-2">
@@ -598,7 +629,8 @@
</div>
</div>
<br />
<div id="chartdiv"></div>
<div id="chartdiv" style="display:none"></div>
<div runat="server" id="chartdiv2"></div>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
@@ -608,44 +640,12 @@
</asp:UpdatePanel>
</div>
<div id="DivModalGraficaGral" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog modal-lg" style="width: 1300px" runat="server" ID="UpdatePanel1" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label CssClass="LblTituloGraficaGral" runat="server" ClientIDMode="Static" Text="">Análisis de estados de resultados</asp:Label>
</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-1"></div>
<label class="col-md-2 truncate" style="display: inline-block; padding-top: 8px; font-weight: bold;">Seleccione el tipo de gráfica:</label>
<div class="col-md-4">
<asp:RadioButtonList ID="rdblistgrafica" CssClass="rdblistgrafica" runat="server" RepeatDirection="Horizontal">
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
<asp:ListItem Text="Lineas" Value="2"></asp:ListItem>
</asp:RadioButtonList>
</div>
</div>
<div class="row">
<div class="col-md-3">
<div id="grafInfo"></div>
</div>
<div class="col-md-9">
<div id="chartdivgral"></div>
</div>
</div>
<br />
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
@@ -668,7 +668,7 @@
} else {
CargaGraficaPastel();
}
$('.LblTituloGrafica').text($(obj).parent().text());
$('.LblTituloGrafica').text($(obj).closest('tr').text().trim());
}
function CargaGraficaBarras() {
let data = cdatos;
@@ -686,7 +686,7 @@
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"type": "line",
"valueField": "Valor"
}],
"depth3D": 20,
@@ -706,7 +706,6 @@
}
});
}
function CargaGraficaPastel() {
let data = cdatos;
var chart = AmCharts.makeChart("chartdiv", {
@@ -735,137 +734,50 @@
CargaGraficaPastel();
}
});
$(".rdblistgrafica:not(.clicked) input").change(cargaGraficaBarras2);
$('.rdblistgrafica').addClass('clicked')
$('.DdlGrafica').removeClass('DdlGrafica')
initamgrafica();
}
let objetos;
let Colores = ["#FF0F00", "#FF6600", "#F8FF01", "#04D215", "#2A0CD0", "#8A0CCF", "#CD0D74", "#754DEB", "#DDDDDD", "#999999", "#000000"];
function graficarshow() {
$('.btngraficarborrar').remove();
$('#C_Tab_header').append('<a onclick="cargaGraficaBarras2();" class="btn btn-success btngraficarborrar" style="float:right;"><i class="fa fa-bar-chart" aria-hidden="true"></i> Graficar</a>');
$('#C_Tab_body').addClass('showgrph');
}
function cargaGraficaBarras2(Titulo) {
$('.LblTituloGraficaGral').text(Titulo);
cargaGraficaBarras2();
}
function cargaGraficaBarras2() {
//Hypgrafica
$("#DivModalGraficaGral").modal();
let infogral = $('#grafInfo');
infogral.find('>*').remove();
$("#DivModalGrafica").modal();
$('.LblTituloGrafica').text('grafica');
let items = []
let data;
let icolor = 0;
let tipografica = $('.rdblistgrafica input:checked').val();
$('.ajax__tab_panel:visible .chkgraf input:checked').each(function () {
data = $(this).closest('tr').find('.Hypgrafica').data('values')
let name = $(this).closest('td').text().trim()
items.push({ id: icolor, data: data, name: name, Color: Colores[icolor], tipografica })
gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica);
icolor = icolor + 1;
if (icolor >= Colores.length) { icolor = 0; }
});
objetos = items;
$(".chkonchange input").each(function () {
let _this = $(this)
_this.change(function () {
let _this = $(this)
let id = Number(_this.data('id'))
objetos[id].tipografica = _this.is(':checked') ? 1 : 2;
ShowGraf2();
})
});
$(function () {
$('.chkonchange').tooltip()
});
ShowGraf2();
}
function gettitlegraf(infogral, id, Color, name, tipografica) {
let strtipografica = '<span class="chksino chkonchange" data-html="true" data-original-title="<div style=\'white-space:nowrap;\'>\'B\' Barras / \'L\' Lineas </div>" ><input id="chk' + id + '" ' + (tipografica == 1 ? 'checked="checked"' : '"') + ' data-id="' + id + '" type="checkbox" name="nchk' + id + '"><label for="chk' + id + '"> </label></span>';
let contenedor = $("<div class='row'></div>");
let divcolspan = $("<div class='col-md-1'></div>");
let divcolor = $('<div class="col-md-1"><div style="width:20px;height:10px;background-color:' + Color + ';"></div> </div>');
let divtexto = $("<div class='col-md-6'>" + name + "</div>");
let divtipografica = $("<div class='col-md-4'>" + strtipografica + "</div>");
infogral.append(contenedor);
/*contenedor.append(divcolspan);*/ contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica);
}
function ShowGraf2() {
let items = objetos;
let series = [];
$('.chkgraf input:checked').each(function () {
data = $(this).closest('tr').find('.Hypgrafica').data('values')
let name = $(this).closest('tr').text().trim()
items.push({ data: data, name: name })
});
if (items) {
data = items[0].data;
series.push((
(items[0].tipografica == 1) ?
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[0].name,
"valueField": 'Valor'
} :
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"bullet": "round",
"dashLength": 3,
"colorField": "color",
"type": "line",
"title": items[0].name,
"valueField": "Valor"
}
));
for (var i = 0; i < data.length; i++) {
data[i]['Color'] = items[0].Color
}
series.push({
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[0].name,
"valueField": 'Valor'
})
for (var indexcol = 1; indexcol < items.length; indexcol++) {
let cdatos = items[indexcol].data;
let valueField = 'Valor' + indexcol;
let colorField = 'Color' + indexcol;
let tipografica = "column";
for (var i = 0; i < cdatos.length; i++) {
data[i][valueField] = cdatos[i].Valor
data[i][colorField] = items[indexcol].Color
}
series.push((
(items[indexcol].tipografica == 1) ?
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": colorField,
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[indexcol].name,
"valueField": valueField
} :
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": colorField,
"bullet": "round",
"dashLength": 3,
"colorField": "color",
"type": "line",
"title": items[indexcol].name,
"valueField": valueField
}
));
series.push({
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[indexcol].name,
"valueField": valueField
})
}
var chart = AmCharts.makeChart("chartdivgral", {
var chart = AmCharts.makeChart("chartdiv", {
"type": "serial",
"theme": "light",
"dataProvider": data,
@@ -948,4 +860,171 @@
}
</script>
<script>
function LimpiaCeros() {
let Divisor = 1;
$('.ceros').each(function (i, obj) {
if ($(this).html() == '0.00' || $(this).html() == '0.00%') {
$(this).html('-');
}
if (!($(this).html() == '-' || $(this).html() == '' || ~$(this).html().indexOf("%"))) {
if (Divisor > 1) {
$(this).attr('data-toggle', 'tooltip');
$(this).attr('data-container', 'body');
$(this).attr('title', $(this).html());
}
$(this).html(FormatoNumeroIPP(ToDouble($(this).html()) / Divisor, ((Divisor == 1) ? 2 : 0)));
}
if (ToDouble($(this).html()) < 0) {
$(this).css("color", "red");
}
});
}
function FormatoNumeroIPP(Importe, Decimales) {
if (typeof Decimales === 'undefined') { Decimales = 2; }
if (isNaN(parseInt(Importe))) return "NaN";
var tmpNum = Importe;
tmpNum = tmpNum.toFixed(Decimales).replace(/./g, function (c, i, a) {
return i && c !== "." && !((a.length - i) % 3) ? ',' + c : c;
});
return tmpNum;
}
function pageLoad(sender, e) {
$(document).ready(function () {
$('[data-toggle="tooltip"]').tooltip();
});
}
function graficahighchartsFinan(idcontainer, titulo, subtitulo, ytitulo, datos, Yinterval, labelpoint, media, datospie1, datospie2, Tittulo2) {
$('#LblTituloGrafica').text(Tittulo2)
$(document).ready(function () {
$(".chartcheckboxes").remove();
});
var Monedas = '';
if (datospie1.length > 0) {
Monedas = 'Monedas';
}
var numerodatos = 0;
$("<div class='chartcheckboxes' ><span></span></div>").insertAfter("#" + idcontainer);
if (datos.length > 0) {
var numerodatos = datos.length - 1;
//var media = (datos.reduce(function (a, b) { return a + b; })) / (numerodatos + 1);
for (var i = numerodatos; i >= 0; i--) {
$("<input type='checkbox' id='" + idcontainer + i + "' class='overrydecheckbox' value='" + i + "' onchange=\" changedatagrafica2('" + idcontainer + "');\" /><label for='" + idcontainer + i + "'>" + datos[i][0].substring(0, 3) + "</label>").insertAfter("#" + idcontainer + " + div span");
}
}
$("#" + idcontainer).data('serie', datos);
var margintop = 80;
var dataset = [{
type: 'area',
lineColor: '#9ACAE6',
color: '#F1F7FD',
fillColor: '#F1F7FD',
lineWidth: 3,
marker: {
lineWidth: 2,
lineColor: '#9ACAE6',
fillColor: '#9ACAE6'
},
pointInterval: 1,
name: ' ',
data: datos
}, {
type: 'line',
lineWidth: 2,
lineColor: '#999',
marker: {
enabled: false
},
name: ' ',
data: [media, media]
}];
$('#' + idcontainer).highcharts({
chart: {
type: 'area', spacingTop: margintop
},
title: {
text: titulo
},
subtitle: {
text: subtitulo
},
xAxis: {
type: "category"
},
yAxis: {
title: {
text: ytitulo
},
labels: {
formatter: function () {
return this.value / Yinterval;
}
}
},
tooltip: {
shared: true,
valueSuffix: labelpoint
},
plotOptions: {
area: {
color: '#FBC5C5',
fillColor: '#FBC5C5',
stacking: 'normal',
lineColor: '#F89F9F',
lineWidth: 0,
marker: {
radius: 5,
lineWidth: 2,
lineColor: '#FFF',
fillColor: '#F89F9F'
}
},
line: {
pointInterval: numerodatos,
lineColor: '#999999',
marker: {
enabled: false,
symbol: 'circle',
radius: 2,
states: {
hover: {
enabled: true
}
}
}
}
},
series: dataset,
navigation: {
buttonOptions: {
y: -80
}
}
});
}
</script>
</asp:Content>

View File

@@ -58,44 +58,55 @@ Partial Class Finanzas_RepRazonesFinancieras2
CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
ValidaEjercicios()
ValidaEjercicios(EnumInicioFin.Fin)
End If
End Sub
Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaEjercicios()
ValidaEjercicios(EnumInicioFin.Inicio)
End Sub
Protected Sub DdlEjercicio2_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaEjercicios()
ValidaEjercicios(EnumInicioFin.Fin)
End Sub
Private Sub ValidaEjercicios()
Enum EnumInicioFin
Inicio
Fin
End Enum
Private Sub ValidaEjercicios(enuInicioFin As EnumInicioFin)
Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
If DdlEjercicio2.Items.Count > 0 Then
DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
If enuInicioFin = EnumInicioFin.Inicio Then
If DdlEjercicio.SelectedIndex > DdlEjercicio2.SelectedIndex Then
DdlEjercicio2.SelectedIndex = DdlEjercicio.SelectedIndex
End If
Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero
If Not EInicio + 1 > Fejerciosio Then
DdlEjercicio2.SelectedValueExist(EInicio + 1)
Else
If DdlEjercicio.SelectedIndex > DdlEjercicio2.SelectedIndex Then
DdlEjercicio.SelectedIndex = DdlEjercicio2.SelectedIndex
End If
End If
'Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
'If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
' If DdlEjercicio2.Items.Count > 0 Then
' DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
' End If
' Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero
' If Not EInicio + 1 > Fejerciosio Then
' DdlEjercicio2.SelectedValueExist(EInicio + 1)
' End If
'End If
UpFiltros.Update()
End Sub
@@ -332,9 +343,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
GVRatiosOcultarColumnas(GVRatios, 1)
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
Dim FechasConsultar As String = GetFechasConsultar()
@@ -365,7 +373,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
Private Sub GVRatiosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
For index = 1 To Gv.Columns.Count - 1
For index = 2 To Gv.Columns.Count - 1
CType(Gv.Columns(index), BoundField).DataField = Nothing
Gv.Columns(index).Visible = False
Next
@@ -373,7 +381,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
End Sub
Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
Dim index = 4
For index = 4 To dt.Columns.Count - 2
@@ -390,6 +398,10 @@ Partial Class Finanzas_RepRazonesFinancieras2
If e.Row.RowType = DataControlRowType.DataRow Then
For x = 1 To DTRatios.Columns.Count
If e.Row.DataKey("Ratio") = "INCREMENTO DE VENTAS" Then
@@ -418,7 +430,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
Dim EsPorcentaje = If(e.Row.DataKey("EsPorcentaje").ToEntero = 1, True, False)
For x = 1 To DTRatios.Columns.Count - 2
For x = 2 To DTRatios.Columns.Count - 2
If EsPorcentaje Then
e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###,####,###.00")}%"
Else
@@ -427,6 +439,7 @@ Partial Class Finanzas_RepRazonesFinancieras2
Next
End If
If e.Row.DataKey("Formula").Trim().Length > 0 Then
'data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares"
@@ -437,16 +450,87 @@ Partial Class Finanzas_RepRazonesFinancieras2
End If
Dim Titulo As String = e.Row.FCLabel("LblRatio").Text
Dim SubTitulo As String = ""
Dim YReferencia As String = "$"
Dim Info As String = ""
Dim XReferencia As String = ""
Dim Promedio As String = ""
Dim lista As New List(Of Object)
Dim Lista2 As New List(Of String)
For x = 2 To GVRatios.Columns.Count - 1
If GVRatios.Columns(x).Visible = True Then
Dim headerString As String = GVRatios.Columns(x).HeaderText
If IsDate(headerString) Then
Dim valor As String = e.Row.Cells(x).Text.ToString.Replace("%", "").Replace("&nbsp;", "").Replace(" ", "").Replace(",", "").Trim
If valor.Length > 0 Then
lista.Add(New With {.Texto = headerString, .Valor = valor.ToDecimal, .Color = "#FF0F00"})
Lista2.Add($"['{headerString}',{valor}]")
End If
End If
End If
Next
'e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
If e.Row.DataKey("Tipo").ToEntero <> 1 Then
Info = String.Join(",", Lista2)
e.Row.FCHyperLink("hpl2").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " &
String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}],'{9}');", chartdiv2.ClientID, "", SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "", Titulo))
Else
e.Row.FCHyperLink("hpl2").Visible = False
End If
'AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}]);", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "")
End If
End Sub
Private Function MuestraGrafica(divcontainer As HtmlGenericControl, DTDatos As DataTable, DTPie As DataTable, ColTitle As String, ColValue As String, Titulo As String, SubTitulo As String, Indicador As String, XReferencia As String, Promedio As String, Optional YReferencia As String = "") As String
Dim SBPie1 As New StringBuilder
Dim SBPie2 As New StringBuilder
Dim Info As String = ""
Dim SBJSScript As New StringBuilder
'If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then
' For Each DbRow As DataRow In DTDatos.Rows
' Info = String.Format("{2}['{1}',{0}],", DbRow(ColValue), DbRow(ColTitle), Info)
' Next
' Info = Info.Remove(Info.Length - 1, 1)
'End If
'For Each DbRow As DataRow In DTPie.Rows
' If DbRow("Importe").ToString.ToDouble > 0 Then SBPie1.AppendFormat("{{ name:'{1}- {2}',y:{0} }},", DbRow("Importe"), DbRow("Banco"), DbRow("NumCuenta"))
'Next
'pesos y dolares
'Dim Dolares As Double = DTPie.SUM("Importe", "CveMoneda = 2")
'If Dolares > 0 Then
' SBPie2.AppendFormat("{{ name:'Dólares',y:{0} }},", Dolares)
' SBPie2.AppendFormat("{{ name:'Pesos',y:{0} }},", DTPie.SUM("Importe", "CveMoneda = 1"))
'End If
SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}]);", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "")
Return SBJSScript.ToString
'RegistraScript(SBJSScript.ToString, Indicador)
End Function
#End Region
@@ -505,6 +589,9 @@ Partial Class Finanzas_RepRazonesFinancieras2
DivPeriodo.Visible = False
DdlPeriodo.SelectedValueExist(12)
DVVisualizacion.Visible = False
LblVisualizacion.Visible = False
DdlEjercicio.SelectedValue = Nothing
DdlEjercicio2.SelectedValue = Nothing
@@ -517,13 +604,15 @@ Partial Class Finanzas_RepRazonesFinancieras2
LblPeriodo.Visible = True
DivPeriodo.Visible = True
AddHandler DdlEjercicio.SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
AddHandler DdlEjercicio2.SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
'AddHandler DdlEjercicio.SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
'AddHandler DdlEjercicio2.SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
CargaEjercicios()
Else
DVVisualizacion.Visible = True
LblVisualizacion.Visible = True
RemoveHandler CType(DdlEjercicio, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
RemoveHandler CType(DdlEjercicio2, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
'RemoveHandler CType(DdlEjercicio, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio_SelectedIndexChanged
'RemoveHandler CType(DdlEjercicio2, DropDownList).SelectedIndexChanged, AddressOf DdlEjercicio2_SelectedIndexChanged
CargaMeses()
End If
@@ -614,7 +703,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
If DdlEjercicio2.SelectedValue.ToEntero >= DdlEjercicio.SelectedValue.ToEntero Then
Dim x As Integer = DdlEjercicio.SelectedValue.ToEntero
For x = DdlEjercicio.SelectedValue.ToEntero To DdlEjercicio2.SelectedValue.ToEntero
ListaFechas.Add($"{x}-12-31")
Next x
@@ -623,8 +711,27 @@ Partial Class Finanzas_RepRazonesFinancieras2
Else ' POR MESES
ListaFechas.Add($"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
ListaFechas.Add($"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
If DdlVisualizacion.SelectedValue.ToEntero = 1 Then
ListaFechas.Add($"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
ListaFechas.Add($"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd"))
Else
Dim FechaInicial As Date = $"{DdlEjercicio.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd").ToDate
Dim FechaFinal As Date = $"{DdlEjercicio2.SelectedValue}-01".ToDate.LastDayOfMonth.ToString("yyyy-MM-dd").ToDate
Dim FechaTemp As Date = FechaInicial.LastDayOfMonth
ListaFechas.Add(FechaTemp.ToString("yyyy-MM-dd"))
While FechaFinal >= FechaTemp
FechaTemp = FechaTemp.AddMonths(1).LastDayOfMonth
If FechaFinal >= FechaTemp Then
ListaFechas.Add(FechaTemp.ToString("yyyy-MM-dd"))
End If
End While
End If
End If
@@ -634,6 +741,9 @@ Partial Class Finanzas_RepRazonesFinancieras2
End Function
End Class

View File

@@ -212,6 +212,7 @@
</div>
<!-- END REGIONAL STATS PORTLET-->
</div>
<div id="DvGraBancos" runat="server" class="col-md-6 col-sm-6">
<!-- BEGIN REGIONAL STATS PORTLET-->
<div class="portlet light ">

View File

@@ -474,6 +474,7 @@ Partial Class Inventarios_Kardex
params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b>&nbsp;{SerieAgrupado}{EntradaSalida}{Almacen}{UM}{FechaIn}{FechaFn}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))
ImprimirPDF("Empresas/Grales/Formatos/RepKardex.rdlc", dt, params, "ReporteKardex", Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

View File

@@ -4,10 +4,10 @@
<asp:UpdatePanel ID="UPAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li>
<li>

View File

@@ -366,6 +366,7 @@ Partial Class Inventarios_ReporteEntradasSalidas
Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>PS:</b>&nbsp;{DdlPS.SelectedText}")
Dim FechaIn As String = $"&emsp;<b>Fecha&nbsp;Inicio:</b>&nbsp;{TxtFechaI.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha&nbsp;Fin:</b>&nbsp;{TxtFechaF.Text}"
If TxtFechaI.Text = "" Then FechaIn = ""
If TxtFechaF.Text = "" Then FechaFn = ""
@@ -379,6 +380,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
Dim Ruta As String = UsuarioActual.Empresa.Ruta
Dim NombreArchivoDescarga = "ReporteEntradas-Salidas"
Dim params As New List(Of ReportParameter)
If UsuarioActual.CveEmpresa.Contiene(119) Then
If FormatoInventario Then
@@ -401,7 +404,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
RutaPDF = "Empresas/Grales/Formatos/EntradasSalidas.rdlc"
End If
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -415,6 +419,8 @@ Partial Class Inventarios_ReporteEntradasSalidas
params.Add(New ReportParameter("FechaFinal", FechaF))
params.Add(New ReportParameter("AgrupadoPor", $"{Almacen}{TipoMov}{Moneda}{SoloConMov}{Proveedor}{Clasificacion}{Familia}{SubFamilia}{PS}{FechaIn}{FechaFn}"))
End If
params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))
ImprimirPDF(RutaPDF, If(FormatoInventario, dt.FiltraParametros("", "RazonSocial, PS ASC"), dt), params, NombreArchivoDescarga, Formato:=Formato)
End Sub

View File

@@ -20,10 +20,10 @@
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li>
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
<asp:LinkButton ID="LnkImprimir" runat="server"><i class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
</li>
<li>
<asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i> Personalizar</asp:HyperLink>
@@ -152,10 +152,13 @@
<asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
<asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoE" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoS" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
<asp:BoundField HeaderText="Valor" ItemStyle-Width="100px" DataField="ValorAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
</Columns>
</asp:GridView>

View File

@@ -298,6 +298,7 @@ Partial Class Inventarios_RepExistenciasCostos
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", $"{FechaIn} {FechaFn} {Proveedor} {Concepto} {Almacen} {Clasificacion} {PS} {Moneda}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))
ImprimirPDF("Empresas/Grales/Formatos/RepExistenciasCostos.rdlc", DtData, params, "ReporteExistenciasCostos", Formato:=reporte)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)

View File

@@ -94,7 +94,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
{
cargaEjercicios();
CargaTiposPeriodo();
CargarCentrosDeCosto(DdlProyecto,null,LblProyecto,LblSubProyeccto,"");//DdlSubProyecto
CargarCentrosDeCosto(DdlProyecto, null, LblProyecto, LblSubProyeccto, "");//DdlSubProyecto
divddlproyeto.Visible = DdlProyecto.Visible;
//CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListBox = Nothing)
}
@@ -399,14 +399,14 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
if (dtempleados.Rows.Count > 0)
{
try
{
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
var libro = wb.AddWorksheet("Nomina");
int column = 1;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Codigo";
libro.Cell(3, column).Value = " ";
try
{
ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
var libro = wb.AddWorksheet("Nomina");
int column = 1;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Codigo";
libro.Cell(3, column).Value = " ";
column++;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Empleado";
@@ -429,251 +429,251 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
libro.Column(column).Width = 35;
int iniciotipe = column;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows)
{
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows)
{
column++;
libro.Cell(2, column).Value = row["Concepto"].ToString();
libro.Cell(3, column).Value = row["Codigo"].ToString();
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
{
libro.Column(column).Hide();
}
}
column++;
libro.Range(2, column, 3, column).Merge().Value = "Percepciones";
libro.Column(column).Width = 15;
if (iniciotipe < column)
{
libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Percepciones";
}
iniciotipe = column;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
{
column++;
libro.Cell(2, column).Value = row["Concepto"].ToString();
libro.Cell(3, column).Value = row["Codigo"].ToString();
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
{
libro.Column(column).Hide();
}
}
column++;
libro.Cell(2, column).Value = row["Concepto"].ToString();
libro.Cell(3, column).Value = row["Codigo"].ToString();
libro.Range(2, column, 3, column).Merge().Value = "Deducciones";
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
if (iniciotipe < column)
{
libro.Column(column).Hide();
libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Deducciones";
}
}
column++;
libro.Range(2, column, 3, column).Merge().Value = "Percepciones";
libro.Column(column).Width = 15;
if (iniciotipe < column)
{
libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Percepciones";
}
iniciotipe = column;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
{
column++;
libro.Cell(2, column).Value = row["Concepto"].ToString();
libro.Cell(3, column).Value = row["Codigo"].ToString();
libro.Cell(1, column).Value = " ";
libro.Range(2, column, 3, column).Merge().Value = "Total";
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
iniciotipe = column;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
{
libro.Column(column).Hide();
column++;
libro.Cell(2, column).Value = row["Concepto"].ToString();
libro.Cell(3, column).Value = row["Codigo"].ToString();
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
{
libro.Column(column).Hide();
}
}
}
column++;
libro.Range(2, column, 3, column).Merge().Value = "Deducciones";
libro.Column(column).Width = 15;
if (iniciotipe < column)
{
libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Deducciones";
}
column++;
libro.Cell(1, column).Value = " ";
libro.Range(2, column, 3, column).Merge().Value = "Total";
libro.Column(column).Width = 15;
iniciotipe = column;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
{
column++;
libro.Cell(2, column).Value = row["Concepto"].ToString();
libro.Cell(3, column).Value = row["Codigo"].ToString();
libro.Range(2, column, 3, column).Merge().Value = "Obligaciones";
libro.Column(column).Width = 15;
if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
if (iniciotipe < column)
{
libro.Column(column).Hide();
libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Obligaciones";
}
}
column++;
libro.Range(2, column, 3, column).Merge().Value = "Obligaciones";
libro.Column(column).Width = 15;
libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199));
libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
if (iniciotipe < column)
{
libro.Range(1, iniciotipe + 1, 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
libro.Range(1, iniciotipe + 1, 1, column).Merge().Value = "Obligaciones";
}
libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199));
libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
int Fila = 3;
int cveSupProyecto = -5;
string subproyecto = "";
string subproyectoold = "";
int oldcveSupProyecto = -5;
bool newsubproyecto = false;
bool newsubproyectoTitulo = false;
foreach (DataRow erow in dtempleados.FiltraParametros("", "CveSubProyecto").Rows)
{
Fila++;
newsubproyecto = false; newsubproyectoTitulo = false;
if (cveSupProyecto != erow["CveSubProyecto"].ToString().ToEntero())
int Fila = 3;
int cveSupProyecto = -5;
string subproyecto = "";
string subproyectoold = "";
int oldcveSupProyecto = -5;
bool newsubproyecto = false;
bool newsubproyectoTitulo = false;
foreach (DataRow erow in dtempleados.FiltraParametros("", "CveSubProyecto").Rows)
{
Fila++;
newsubproyecto = false; newsubproyectoTitulo = false;
if (cveSupProyecto != erow["CveSubProyecto"].ToString().ToEntero())
{
if (oldcveSupProyecto != -5) { Fila += 2; newsubproyecto = true; }
oldcveSupProyecto = cveSupProyecto;
cveSupProyecto = erow["CveSubProyecto"].ToString().ToEntero();
subproyecto = erow["SubProyecto"].ToString();
if (cveSupProyecto != -5 && oldcveSupProyecto != -5) { Fila++; newsubproyectoTitulo = true; }
}
column = 1;
libro.Cell(Fila, column).Value = string.Format("'{0}",erow["Codigo"]);
if (oldcveSupProyecto != -5) { Fila += 2; newsubproyecto = true; }
oldcveSupProyecto = cveSupProyecto;
cveSupProyecto = erow["CveSubProyecto"].ToString().ToEntero();
subproyecto = erow["SubProyecto"].ToString();
if (cveSupProyecto != -5 && oldcveSupProyecto != -5) { Fila++; newsubproyectoTitulo = true; }
}
column = 1;
libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
column++;
if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
libro.Cell(Fila, column).Value = erow["Nombre"];
column++;
column++;
libro.Cell(Fila, column).Value = erow["SubProyecto"];
column++;
libro.Cell(Fila, column).Value =string.Format("'{0}", erow["NumeroSS"]);
column++;
column++;
libro.Cell(Fila, column).Value = string.Format("'{0}", erow["NumeroSS"]);
column++;
libro.Cell(Fila, column).Value = erow["RegistroPatronal"];
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
{
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
}
}
column++;
libro.Cell(Fila, column).Value = erow["SumaPercepciones"];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
{
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
libro.Cell(Fila, column).Value = erow["SumaPercepciones"];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
}
column++;
libro.Cell(Fila, column).Value = erow["SumaDeducciones"];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
column++;
libro.Cell(Fila, column).Value = erow["Total"];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
{
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
}
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
{
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
libro.Cell(Fila, column).Value = erow["SumaDeducciones"];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
column++;
libro.Cell(Fila, column).Value = erow["Total"];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
{
column++;
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
libro.Cell(Fila, column).Value = erow[Concepto];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
}
column++;
libro.Cell(Fila, column).Value = erow["SumaObligaciones"];
if (newsubproyecto)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaObligaciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
if (newsubproyectoTitulo) { libro.Range(Fila - 1, 1, Fila - 1, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228)); }
if (newsubproyecto)
{
libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228));
libro.Range(Fila - 3, 6, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila - 3, 6, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
}
libro.Range(Fila, 6, Fila, column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
}
column++;
libro.Cell(Fila, column).Value = erow["SumaObligaciones"];
if (newsubproyecto)
if (true)
{
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaObligaciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
if (newsubproyectoTitulo) { libro.Range(Fila - 1, 1, Fila - 1, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228)); }
if (newsubproyecto)
{
libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228));
libro.Range(Fila - 3, 6, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila - 3,6, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
}
libro.Range(Fila , 6, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
}
if (true)
{
Fila += 4;
Fila += 4;
oldcveSupProyecto = cveSupProyecto; newsubproyecto = true;
column = 1;
column++;
libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold);
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
{
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
column = 1;
column++;
libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); column++; column++; column++;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
{
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
}
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
{
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
{
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
column++;
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
{
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
column++;
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
{
string Concepto = string.Format("V_{0}", row["CveConcepto"]);
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
}
column++;
libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaObligaciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228));
libro.Range(Fila - 3, 3, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila - 3, 3, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
libro.Range(Fila, 3, Fila, column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
}
libro.Range(4, 1, 4, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
libro.Range(Fila, 3, Fila, column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
}
libro.Range(4, 1, 4, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
@@ -681,34 +681,34 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
libro.Range(1, 2, 1, 6).Merge().Value = UsuarioActual.Empresa.Empresa;
libro.Range(2, 2, 2, 6).Merge().Value = "Reporte de acumulados nómina";
libro.Range(1, 2, 2, 6).Style.Font.Bold = true; libro.Range(1, 2, 2, 6).Style.Font.FontSize = 16;
libro.Range(3, 2, 3, 6).Merge().Value = $"del {TxtRpdFechaInicio.Text.ToDateTime():dd/MM/yyyy} al {TxtRpdFechaFin.Text.ToDateTime():dd/MM/yyyy}";
libro.Range(3, 2, 3, 6).Merge().Value = $"del {TxtRpdFechaInicio.Text.ToDateTime():dd/MM/yyyy} al {TxtRpdFechaFin.Text.ToDateTime():dd/MM/yyyy}";
libro.Range(2, 7, 2, 9).Merge().Value = $"Fecha:{DateTime.Now:dd/MM/yyyy}";
libro.Range(3, 7, 3, 9).Merge().Value = $"Hora:{DateTime.Now:HH:mm}";
System.IO.Stream fs = new System.IO.MemoryStream();
wb.SaveAs(fs);
fs.Position = 0;
System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
using (System.IO.Stream input = fs)
wb.SaveAs(fs);
fs.Position = 0;
System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
using (System.IO.Stream input = fs)
{
input.CopyTo(memoryStream);
}
memoryStream.Position = 0;
Response.Clear();
Response.Buffer = true;
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Acumulados nomina"));
Response.BinaryWrite(memoryStream.ToArray());
Response.End();
}
catch (Exception ex)
{
input.CopyTo(memoryStream);
Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString());
}
memoryStream.Position = 0;
Response.Clear();
Response.Buffer = true;
Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Acumulados nomina"));
Response.BinaryWrite(memoryStream.ToArray());
Response.End();
}
catch (Exception ex)
{
Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString());
}
}
else
{

View File

@@ -1635,82 +1635,170 @@
</div>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel HeaderText="Plantilla Manda Correo" ID="TabPlantillaCorreo" runat="server">
<ContentTemplate>
<div class="row">
<div class="col-md-12">
<div class="portlet light smmallpadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Plantilla Manda Correo</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<asp:Label ID="Lbl" runat="server" Text=""></asp:Label>
<br />
<br />
<li>{"FolioFactura"}</li>
<li>{"ImporteFactura"}</li>
<li>{"FechaFactura"}</li>
<li>{"FechaVencimiento"}</li>
<li>{"RazonSocialEmisor"}</li>
<li>{"RazonSocialReceptor"}</li>
<asp:TextBox ID="TxtAsunto" runat="server" ClientIDMode="Static" MaxLength="150"></asp:TextBox>
<asp:TextBox ID="TxtPlantillaVenta" runat="server" ClientIDMode="Static" MaxLength="5000" TextMode="MultiLine" Height="300px" Width="960px"></asp:TextBox>
<ajax:HtmlEditorExtender ID="HTMLPlantillaVenta" runat="server" TargetControlID="TxtPlantillaVenta" DisplaySourceTab="True" EnableSanitization="false">
<Toolbar>
<ajax:Undo />
<ajax:Redo />
<ajax:Bold />
<ajax:Italic />
<ajax:Underline />
<ajax:StrikeThrough />
<ajax:Subscript />
<ajax:Superscript />
<ajax:JustifyLeft />
<ajax:JustifyCenter />
<ajax:JustifyRight />
<ajax:JustifyFull />
<ajax:InsertOrderedList />
<ajax:InsertUnorderedList />
<ajax:CreateLink />
<ajax:UnLink />
<ajax:RemoveFormat />
<ajax:SelectAll />
<ajax:UnSelect />
<ajax:Delete />
<ajax:Cut />
<ajax:Copy />
<ajax:Paste />
<ajax:BackgroundColorSelector />
<ajax:ForeColorSelector />
<ajax:FontNameSelector />
<ajax:FontSizeSelector />
<ajax:Indent />
<ajax:Outdent />
<ajax:InsertHorizontalRule />
<ajax:HorizontalSeparator />
</Toolbar>
</ajax:HtmlEditorExtender>
<asp:Button ID="BtnGuardarPlantilla" runat="server" CssClass="btn btn-primary" align="center" Text="Guardar" />
</div>
</div>
</div>
</div>
</ContentTemplate>
<ajax:TabPanel HeaderText="Plantilla Manda Correo" ID="TabPlantillaCorreo" runat="server">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Plantilla Manda Correo Venta</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a data-toggle="modal" data-target="#DVModalEqiqutas" id="LnkEtiquetasVenta" runat="server" class="caption-subject bold font-green" style="font-size:12px!important"> <i class="fa fa-tags"></i> Etiquetas Disponibles</a>
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<div class="row">
<div class="col-md-12">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsunto" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control" ></asp:TextBox>
<label for="<%= TxtAsunto.ClientID.ToString()%>">Asunto:</label>
<i></i>
</div>
<br />
<asp:TextBox ID="TxtPlantillaVenta" runat="server" ClientIDMode="Static" MaxLength="5000" TextMode="MultiLine" Height="300px" Width="100%"></asp:TextBox>
<ajax:HtmlEditorExtender ID="HTMLPlantillaVenta" runat="server" TargetControlID="TxtPlantillaVenta" DisplaySourceTab="True" EnableSanitization="false">
<Toolbar>
<ajax:Undo />
<ajax:Redo />
<ajax:Bold />
<ajax:Italic />
<ajax:Underline />
<ajax:StrikeThrough />
<ajax:Subscript />
<ajax:Superscript />
<ajax:JustifyLeft />
<ajax:JustifyCenter />
<ajax:JustifyRight />
<ajax:JustifyFull />
<ajax:InsertOrderedList />
<ajax:InsertUnorderedList />
<ajax:CreateLink />
<ajax:UnLink />
<ajax:RemoveFormat />
<ajax:SelectAll />
<ajax:UnSelect />
<ajax:Delete />
<ajax:Cut />
<ajax:Copy />
<ajax:Paste />
<ajax:BackgroundColorSelector />
<ajax:ForeColorSelector />
<ajax:FontNameSelector />
<ajax:FontSizeSelector />
<ajax:Indent />
<ajax:Outdent />
<ajax:InsertHorizontalRule />
<ajax:HorizontalSeparator />
</Toolbar>
</ajax:HtmlEditorExtender>
</div>
</div>
</div>
</div>
</div>
<div class="col-md-6">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Plantilla Manda Correo Cotización</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
<div class="tools">
<a data-toggle="modal" data-target="#DVModalEqiqutas" id="LnkEtiquetasCotizacion" runat="server" class="caption-subject bold font-green" style="font-size:12px!important"> <i class="fa fa-tags"></i> Etiquetas Disponibles</a>
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body">
<div class="row">
<div class="col-md-12">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsuntoCotizacion" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtAsuntoCotizacion.ClientID.ToString()%>">Asunto:</label>
<i></i>
</div>
<br />
<asp:TextBox ID="TxtPlantillaCotizacion" runat="server" ClientIDMode="Static" MaxLength="5000" TextMode="MultiLine" Height="300px" Width="100%"></asp:TextBox>
<ajax:HtmlEditorExtender ID="HtmlEditorExtender1" runat="server" TargetControlID="TxtPlantillaCotizacion" DisplaySourceTab="True" EnableSanitization="false">
<Toolbar>
<ajax:Undo />
<ajax:Redo />
<ajax:Bold />
<ajax:Italic />
<ajax:Underline />
<ajax:StrikeThrough />
<ajax:Subscript />
<ajax:Superscript />
<ajax:JustifyLeft />
<ajax:JustifyCenter />
<ajax:JustifyRight />
<ajax:JustifyFull />
<ajax:InsertOrderedList />
<ajax:InsertUnorderedList />
<ajax:CreateLink />
<ajax:UnLink />
<ajax:RemoveFormat />
<ajax:SelectAll />
<ajax:UnSelect />
<ajax:Delete />
<ajax:Cut />
<ajax:Copy />
<ajax:Paste />
<ajax:BackgroundColorSelector />
<ajax:ForeColorSelector />
<ajax:FontNameSelector />
<ajax:FontSizeSelector />
<ajax:Indent />
<ajax:Outdent />
<ajax:InsertHorizontalRule />
<ajax:HorizontalSeparator />
</Toolbar>
</ajax:HtmlEditorExtender>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="row">
<div class="col-md-12">
<asp:Button ID="BtnGuardarPlantilla" runat="server" CssClass="btn btn-primary" align="center" Text="Guardar Plantillas" />
</div>
</div>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
</ContentTemplate>
</asp:UpdatePanel>
@@ -1788,6 +1876,38 @@
</asp:UpdatePanel>
<div id="DVModalEqiqutas" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content" >
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Etiquetas Disponibles</h4>
</div>
<div class="modal-body">
<ul>
<li>{"FolioFactura"}</li>
<li>{"ImporteFactura"}</li>
<li>{"FechaFactura"}</li>
<li>{"FechaVencimiento"}</li>
<li>{"RazonSocialEmisor"}</li>
<li>{"RazonSocialReceptor"}</li>
</ul>
</div>
<br />
<div class="modal-footer">
<div class="row">
<div class="col-md-12">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
</div>
</div>
</div>
</div>
</div>
</div>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="server">

View File

@@ -199,8 +199,7 @@ Partial Class Sistemas_Empresa
BtnGuardar.Text = "Guardar Cambios"
'Plantilla Correo
TxtPlantillaVenta.Text = UsuarioActual.Empresa.PlantillaMailVenta
TxtAsunto.Text = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
Else
'Configuración de Modalidad Insert
@@ -320,6 +319,12 @@ Partial Class Sistemas_Empresa
TxtImporte.Text = .Importe.ToString
TipoContabilidad = .TipoContabilidad
TxtPlantillaVenta.Text = .PlantillaMailVenta
TxtAsunto.Text = .AsuntoPlantillaMailVenta
TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion
TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion
'NUEVOS
TxtAreaGeografica.Text = .AreaGeografica
DdlProtocolo.Text = .Buzon_Tipo
@@ -1317,10 +1322,19 @@ Partial Class Sistemas_Empresa
End If
Dim ObjEmpresa As New ClsSisEmpresas()
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, UsuarioActual.CveEmpresa) Then
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, CveEmpresa) Then
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVentaCotizacion", TxtAsuntoCotizacion.Text.Trim, "PlantillaMailVentaCotizacion", TxtPlantillaCotizacion.Text.Trim, CveEmpresa) Then
End If
Alert("La plantilla de mail de ventas se guardó correctamente.", TipoMensaje.MsgInformacion)
UsuarioActual.Empresa.PlantillaMailVenta = TxtPlantillaVenta.Text.Trim
UsuarioActual.Empresa.AsuntoPlantillaMailVenta = TxtAsunto.Text.Trim
UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim
'TxtPlantillaVenta.Text = ""
'TxtAsunto.Text = ""
End If

View File

@@ -171,7 +171,7 @@
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRFC" runat="server" MaxLength="13" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtRFC.ClientID.ToString()%>">RFC:</label>
<asp:RegularExpressionValidator ID="REVRFC" runat="server" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardar" ControlToValidate="TxtRFC" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
<asp:RegularExpressionValidator ID="REVRFC" runat="server" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardar" ControlToValidate="TxtRFC" ValidationExpression="^[a-zA-Z.)(/\\&ñÑ-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
<asp:RequiredFieldValidator ID="RFVRFC" runat="server" ControlToValidate="TxtRFC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCERFC" runat="server" HighlightCssClass="vco" TargetControlID="RFVRFC" Width="300px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCEREVRFC" runat="server" HighlightCssClass="vco" TargetControlID="REVRFC" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -218,25 +218,31 @@
<asp:RequiredFieldValidator ID="RFVMail" runat="server" ControlToValidate="TxtMail" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Mail''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEMail" runat="server" HighlightCssClass="vco" TargetControlID="RFVMail" Width="300px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCEMailInvalido" runat="server" HighlightCssClass="vco" TargetControlID="REVMail" Width="300px"></ajax:ValidatorCalloutExtender>
<asp:RegularExpressionValidator ID="REVMail" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'></span></b><br />Favor de Introducir una direccion <b>''Mail''</b> Valida."></asp:RegularExpressionValidator>
<asp:RegularExpressionValidator ID="REVMail" runat="server" ValidationExpression="\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*" ControlToValidate="TxtMail" Display="Dynamic"
ErrorMessage="<b><span style='text-decoration: underline'></span></b><br />Favor de Introducir una direccion <b>''Mail''</b> Valida."></asp:RegularExpressionValidator>
<i></i>
</div>
</div>
</div>
<div class="row">
<div class="form-group col-md-6 ">
<label>Mostrar Ret. IVA: </label>
<asp:CheckBox ID="ChkMostrarRetIVA" runat="server" CssClass="make-switchsd" data-size="small" />
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkMostrarRetIVA" runat="server" CssClass="form-control make-switchsd" style="margin-top:15px!important" data-size="small" />
<label for="<%= ChkMostrarRetIVA.ClientID.ToString()%>" style="margin-top:-13px!important" >Mostrar Ret. IVA:</label>
</div>
</div>
<div class="form-group col-md-6 ">
<label>Mostrar Ret. ISR: </label>
<asp:CheckBox ID="ChkMostrarRetISR" runat="server" CssClass="make-switchsd" data-size="small" />
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkMostrarRetISR" runat="server" CssClass="form-control make-switchsd" style="margin-top:15px!important" data-size="small" />
<label for="<%= ChkMostrarRetISR.ClientID.ToString()%>" style="margin-top:-13px!important" >Mostrar Ret. ISR:</label>
</div>
</div>
</div>
<div class="row">
<%-- <div class="row">
<div class="col-md-6">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtImporte" CssClass="form-control " runat="server" MaxLength="50" ValidationGroup="GrpGuardar"></asp:TextBox>
@@ -248,7 +254,7 @@
<div class="col-md-6">
</div>
</div>
</div>--%>
<br />
</div>
@@ -279,7 +285,7 @@
<div class="row">
<div class="col-md-6">
<div class="col-md-8">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtArchivoKey" runat="server" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtArchivoKey.ClientID.ToString()%>">Archivo Key:</label>
@@ -299,7 +305,7 @@
</div>
<div class="row">
<div class="col-md-6">
<div class="col-md-8">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtArchivoCer" runat="server" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtArchivoCer.ClientID.ToString()%>">Archivo CER:</label>
@@ -320,7 +326,7 @@
<div class="row">
<div class="col-md-6">
<div class="col-md-8">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtArchivoPfx" runat="server" CssClass="form-control" ></asp:TextBox>
<label for="<%= TxtArchivoPfx.ClientID.ToString()%>">Archivo PFX:</label>
@@ -362,11 +368,7 @@
</div>
<br />
<div class="row">
<div class="col-md-6">
<asp:LinkButton ID="LnkRegistrarPAC3" runat="server" CssClass="Texto" OnClick="LnkRegistrarPAC3_Click">Registrar en ProFact</asp:LinkButton>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LbArchivoKeyDescarga" />
@@ -461,7 +463,7 @@
<div class="form-group col-md-6 ">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkSendMailSSL" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" />
<asp:CheckBox ID="ChkSendMailSSL" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" data-size="small" />
<label for="<%= ChkSendMailSSL.ClientID.ToString()%>" style="margin-top:-13px!important" >SSL:</label>
</div>
</div>
@@ -522,7 +524,7 @@
</div>
<div class="form-group col-md-6 ">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkBuzon_SSL" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" />
<asp:CheckBox ID="ChkBuzon_SSL" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" data-size="small" />
<label for="<%= ChkSendMailSSL.ClientID.ToString()%>" style="margin-top:-13px!important" >SSL:</label>
</div>
</div>
@@ -673,7 +675,7 @@
<div class="row">
<div class="form-group col-md-6 ">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkDefaultAsistencias" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" />
<asp:CheckBox ID="ChkDefaultAsistencias" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" data-size="small" />
<label for="<%= ChkDefaultAsistencias.ClientID.ToString()%>" style="margin-top:-13px!important" >Default Asistencias:</label>
</div>
</div>
@@ -710,7 +712,7 @@
<div class="row">
<div class="form-group col-md-6 ">
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkReqCentroCostos" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" />
<asp:CheckBox ID="ChkReqCentroCostos" Text=" " CssClass="form-control make-switchsd" runat="server" style="margin-top:15px!important" data-size="small" />
<label for="<%= ChkReqCentroCostos.ClientID.ToString()%>" style="margin-top:-13px!important" >Requiere Centro De Costos::</label>
</div>
</div>
@@ -785,11 +787,14 @@
<div class="row">
<div class="col-md-12">
<div class="col-md-12">
Asunto: <asp:TextBox ID="TxtAsunto" runat="server" ClientIDMode="Static" MaxLength="150"></asp:TextBox>
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsunto" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control" ></asp:TextBox>
<label for="<%= TxtAsunto.ClientID.ToString()%>">Asunto:</label>
<i></i>
</div>
<br />
<asp:TextBox ID="TxtPlantillaVenta" runat="server" ClientIDMode="Static" MaxLength="5000" TextMode="MultiLine" Height="300px" Width="100%"></asp:TextBox>
<ajax:HtmlEditorExtender ID="HTMLPlantillaVenta" runat="server" TargetControlID="TxtPlantillaVenta" DisplaySourceTab="True" EnableSanitization="false">
@@ -855,7 +860,14 @@
<div class="row">
<div class="col-md-12">
Asunto: <asp:TextBox ID="TxtAsuntoCotizacion" runat="server" ClientIDMode="Static" MaxLength="150"></asp:TextBox>
<div runat="server" class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAsuntoCotizacion" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control"></asp:TextBox>
<label for="<%= TxtAsuntoCotizacion.ClientID.ToString()%>">Asunto:</label>
<i></i>
</div>
<br />
<asp:TextBox ID="TxtPlantillaCotizacion" runat="server" ClientIDMode="Static" MaxLength="5000" TextMode="MultiLine" Height="300px" Width="100%"></asp:TextBox>
<ajax:HtmlEditorExtender ID="HtmlEditorExtender1" runat="server" TargetControlID="TxtPlantillaCotizacion" DisplaySourceTab="True" EnableSanitization="false">
<Toolbar>
@@ -909,6 +921,7 @@
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
</ContentTemplate>
</asp:UpdatePanel>

View File

@@ -480,7 +480,7 @@ Partial Class Sistemas_Empresa2
'DdlCvePac.SelectedValueExist(.CvePAC.ToString)
DdlRegimen.SelectedValue = .CveRegimenFiscal.ToString
TxtCURP.Text = .CURP
TxtImporte.Text.ToDecimal
'TxtImporte.Text.ToDecimal
TxtCIEC.Text = .CIEC
'DdlPlataforma.SelectedValue = .CvePlataforma.ToString
UsaAC = .UsaAC
@@ -496,7 +496,7 @@ Partial Class Sistemas_Empresa2
DdlTipoCentroDeCostos.SelectedValue = .Tipo_CentroCosto.ToString
ChkReqCentroCostos.Checked = .RequiereCentroCostos
DdlTerminalTipo.SelectedValue = .PV_TerminalTipo.ToString
TxtImporte.Text = .Importe.ToString
'TxtImporte.Text = .Importe.ToString
TipoContabilidad = .TipoContabilidad
TxtPlantillaVenta.Text = .PlantillaMailVenta
@@ -760,7 +760,7 @@ Partial Class Sistemas_Empresa2
ChkBuzon_SSL.Checked, TxtBuzon_USR.Text.Trim, TxtBuzon_PWD.Text.Trim, UsuarioActual.CveEmpresa, DdlProtocolo.SelectedValue,
"-1", "-1", -1, SSLSoporte, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, "", TxtAreaGeografica.Text.Trim,
-1, -1, TxtNombreCorto.Text, TxtCURP.Text.Trim, DdlRegimen.SelectedValue.ToEntero, 1,
TxtImporte.Text.ToDecimal, TxtCIEC.Text, 1, UsaAC,
-1, TxtCIEC.Text, 1, UsaAC,
TxtPorDepreciacion.Text.ToDecimal, TxtExtension.Text, TxtLocalidad.Text, DdlMetodoInventario.SelectedValue.ToEntero, AsientoContable, TxtPeriodoActual.Text.ToEntero,
TxtEjercicioActual.Text.ToEntero, ChkDefaultAsistencias.Checked, TxtDiasPermitidos.Text.ToEntero, DdlTipoCentroDeCostos.SelectedValue.ToEntero, ChkReqCentroCostos.Checked,
DdlTerminalTipo.SelectedValue.ToEntero, IdCuentaDSV:=-1, IdCuentaImpuestosLocales:=-1, IdCuentaIEPSxAcreditar:=-1, IdCuentaIEPSAcreditable:=-1,

View File

@@ -2131,26 +2131,53 @@ Partial Class Clientes
End If
ObjVenta.Dispose()
If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
If Dr IsNot Nothing Then
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
End If
End If
If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString())
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
End If
If HdnTipoDocto.Value.ToString() = "Cot" Then
If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
Cuerpo = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
If Dr IsNot Nothing Then
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
End If
End If
If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString())
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
End If
Else
If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
Cuerpo = Cuerpo.Replace("{""NombreCliente""}", LtlCliente.Text.Trim)
Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
Cuerpo = Cuerpo.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
If Dr IsNot Nothing Then
Cuerpo = Cuerpo.Replace("{""Fecha""}", Dr("Fecha").ToString().ToDate().ToShortDateString())
Cuerpo = Cuerpo.Replace("{""Total""}", Dr("Total").ToString().FormatoNumero())
Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", Dr("FechaVencimiento").ToString().ToDate().ToShortDateString())
End If
End If
If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
Asunto = Asunto.Replace("{""Sucursal""}", HdnSubProyecto.Value.ToString())
Asunto = Asunto.Replace("{""SerieFolio""}", HdnSerieFolio.Value.ToString())
End If
End If
If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso HdnTipoDocto.Value.Contiene("Ing", "Egs", "Ant", "Dev") Then
Dim PDF As String = $"{Ruta}PDF\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.pdf"
Dim XML As String = $"{Ruta}XML\{HdnTipoDocto.Value}\{HdnFolioVenta.Value}.xml"

View File

@@ -107,7 +107,12 @@ Partial Class Ventas_FacturacionAcarreos
ObjVentas.IniciaTransacSQL()
Dim TieneError As Boolean = False
Try
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
If dt.Rows.Count = 0 Then
TieneError = True
MsgFacturacionAcarreos.Append("No hay datos para procesar")
RowsNoCargados += 1
End If
For Each row As DataRow In dt.Rows
Dim FechaSalida As DateTime = MinFecha
Dim FechaLlegada As DateTime = MinFecha
@@ -156,7 +161,6 @@ Partial Class Ventas_FacturacionAcarreos
CargaDatos()
End If
End Sub