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

Empresas2

Browse Source
This commit is contained in:
rakcsle
2023-08-07 09:18:36 -07:00
parent 2bdf079d8d
commit aa9fa03bdc
10 changed files with 364 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsFinanzas.vb
View File

@@ -277,6 +277,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
@@ -304,6 +305,7 @@ Public Class ClsFinanzas
End With
Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
@@ -355,6 +357,7 @@ Public Class ClsFinanzas
End With
Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception

2
App_Code/ClsPaginas.vb
View File

@@ -9207,7 +9207,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)

25
Empresas/Grales/Formatos/RepExistenciasCostos.rdlc
View File

@@ -339,6 +339,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox24</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -450,6 +453,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox33</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -636,6 +642,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -738,6 +747,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1026,6 +1038,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>ImporteE2</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1051,6 +1066,7 @@
<Value>=Fields!Salidas.Value</Value>
<Style>
<FontWeight>=IIF(Fields!Orden.Value = "20","Bold","Normal")</FontWeight>
<Format>#,0;(#,0);'-'</Format>
<Color>=IIF(Fields!Orden.Value = "20", "#769EC3","Black")</Color>
</Style>
</TextRun>
@@ -1136,6 +1152,9 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>ImporteS2</rd:DefaultName>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -1234,7 +1253,11 @@
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember />
<TablixMember>
<Visibility>
<Hidden>=IIF(Parameters!OcultarImportes.Value.ToString() = "False", False,True)</Hidden>
</Visibility>
</TablixMember>
<TablixMember />
<TablixMember />
<TablixMember />

16
Finanzas/RepRazonesFinancieras2.aspx
View File

@@ -61,7 +61,8 @@
<asp:DropDownList ID="DdlEjercicio2" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="130px" AutoPostBack="true" >
</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 +82,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>

29
Finanzas/RepRazonesFinancieras2.aspx.vb
View File

@@ -63,10 +63,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
End If
End Sub
Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaEjercicios()
End Sub
@@ -332,9 +328,6 @@ Partial Class Finanzas_RepRazonesFinancieras2
GVRatiosOcultarColumnas(GVRatios, 1)
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
Dim FechasConsultar As String = GetFechasConsultar()
@@ -505,6 +498,9 @@ Partial Class Finanzas_RepRazonesFinancieras2
DivPeriodo.Visible = False
DdlPeriodo.SelectedValueExist(12)
DVVisualizacion.Visible = False
LblVisualizacion.Visible = False
DdlEjercicio.SelectedValue = Nothing
DdlEjercicio2.SelectedValue = Nothing
@@ -521,6 +517,8 @@ Partial Class Finanzas_RepRazonesFinancieras2
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
@@ -614,7 +612,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 +620,24 @@ Partial Class Finanzas_RepRazonesFinancieras2
Else ' POR MESES
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
ListaFechas.Add(FechaTemp.ToString("yyyy-MM-dd"))
End While
End If
End If

154
Sistemas/Empresa.aspx
View File

@@ -1635,40 +1635,42 @@
</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="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</span>
<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">
<asp:Label ID="Lbl" runat="server" Text=""></asp:Label>
<br />
<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 />
<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>
<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 />
@@ -1704,13 +1706,99 @@
<ajax:HorizontalSeparator />
</Toolbar>
</ajax:HtmlEditorExtender>
<asp:Button ID="BtnGuardarPlantilla" runat="server" CssClass="btn btn-primary" align="center" Text="Guardar" />
</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>
@@ -1789,6 +1877,38 @@
<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">
<script type="text/javascript">

20
Sistemas/Empresa.aspx.vb
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

61
Sistemas/Empresa2.aspx
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>
@@ -787,9 +789,12 @@
<div class="row">
<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>

6
Sistemas/Empresa2.aspx.vb
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,

27
Ventas/Clientes.aspx.vb
View File

@@ -2245,6 +2245,30 @@ Partial Class Clientes
End If
ObjVenta.Dispose()
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)
@@ -2264,6 +2288,9 @@ Partial Class Clientes
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"