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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-07-11 03:57:08 -07:00
parent 2366349859 5ab69ec285
commit 06b4fe3156
46 changed files with 2524 additions and 3551 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
AF/AF.aspx
View File

@@ -54,7 +54,9 @@
<ajax:TabContainer ID="Tab" runat="server" Width="100%"> <ajax:TabContainer ID="Tab" runat="server" Width="100%">
<ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Información General"> <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Información General">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UPG" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet light xspadding bordered "> <div class="portlet light xspadding bordered ">
@@ -201,7 +203,7 @@
<div class="col-md-3"> <div class="col-md-3">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox CssClass="form-control input-sm" ID="TxtValorCompra" runat="server" MaxLength="13"></asp:TextBox> <asp:TextBox CssClass="form-control input-sm" ID="TxtValorCompra" runat="server" Style="text-align:right;" MaxLength="13"></asp:TextBox>
<label></label> <label></label>
<ajax:FilteredTextBoxExtender ID="FTEValorCompra" runat="server" TargetControlID="TxtValorCompra" FilterType="Custom, Numbers" ValidChars="." BehaviorID="_content_FTEValorCompra" /> <ajax:FilteredTextBoxExtender ID="FTEValorCompra" runat="server" TargetControlID="TxtValorCompra" FilterType="Custom, Numbers" ValidChars="." BehaviorID="_content_FTEValorCompra" />
<asp:RequiredFieldValidator ID="RFVValorCompra" runat="server" ControlToValidate="TxtValorCompra" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor de Compra''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVValorCompra" runat="server" ControlToValidate="TxtValorCompra" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Valor de Compra''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -211,7 +213,15 @@
<i></i> <i></i>
</div> </div>
</div> </div>
<div class="col-md-3" style="padding-top: 10px;" runat="server" id="DivCompra" visible="False"> <div class="col-md-3" runat="server" id="DivValorCompraMN" visible="False">
<div class="form-group form-md-line-input">
<div>
<div class="col-md-3"> MN</div>
<div class="col-md-9"><asp:TextBox ReadOnly="true" CssClass="form-control input-sm" Style="text-align:right;" ID="TxtValorCompraMN" runat="server" MaxLength="13"></asp:TextBox></div>
</div>
</div>
</div>
<div class="col-md-2" style="padding-top: 10px;" runat="server" id="DivCompra" visible="False">
<asp:HyperLink ID="HLCompra" Target="_blank" Text="Ver Compra" runat="server" /> <asp:HyperLink ID="HLCompra" Target="_blank" Text="Ver Compra" runat="server" />
</div> </div>
</div> </div>
@@ -311,17 +321,23 @@
</div> </div>
</div> </div>
<div id="divCuentas" runat="server" visible="false"> <div id="divCuentas" runat="server" visible="false">
<asp:Button ID="BtnVincularCuenta" runat="server" CssClass="btn btn-primary btn-sm" Text="+ Cuenta" Visible="false" />
<asp:GridView ID="GvCta" runat="server" DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style=" width: 100%;" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
<asp:TemplateField ItemStyle-Width="49px">
<ItemTemplate>
<asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaContaCuenta" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style=" width: 100%;" GridLines="None"> </div>
<Columns>
<asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
<asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
</Columns>
</asp:GridView>
</div>
<div class="row" runat="server" id="trCuentaContable" visible="False"> <div class="row" runat="server" id="trCuentaContable" visible="False">
<div class="col-md-4 "> <div class="col-md-4 ">
<label class=" control-label">Cuenta Contable:</label> <label class=" control-label">Cuenta Contable:</label>
@@ -628,6 +644,44 @@
</div> </div>
</div> </div>
<div id="ModalContaCuenta" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<!-- Modal content-->
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">Cuenta</h4>
</div>
<div class="modal-body">
<asp:UpdatePanel ID="UpdatePanel2" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<div>
<asp:HiddenField ID="HdnCveCuentaAsignacion" runat="server" />
<asp:DropDownList ID="DdlContaCuenta" CssClass="form-control input-sm input-small select2me" runat="server" AppendDataBoundItems="True" Width="80%" DataTextField="CtaCodigo" DataValueField="CveCuenta">
<asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
</asp:DropDownList>
<asp:Button ID="Button2" runat="server" CssClass="btn btn-primary btn-sm" Text="+" Visible="False" />
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Button ID="BtnCuentaAsociar" Text="Vincular Cuenta" runat="server" ClientIDMode="Static" OnClick="BtnCuentaAsociar_Click" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
@@ -1011,6 +1065,7 @@
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
@@ -1409,7 +1464,7 @@
</div> </div>
</div> </div>
</div> </div>
<asp:UpdatePanel ID="upGaleria" UpdateMode="Conditional" runat="server"> <asp:UpdatePanel ID="upGaleria" UpdateMode="Conditional" runat="server">
<ContentTemplate> <ContentTemplate>

55
AF/AF.aspx.vb
View File

@@ -932,8 +932,8 @@ Partial Class AF_AF
TxtCodigo.Text = ObjActivoFijo.Codigo TxtCodigo.Text = ObjActivoFijo.Codigo
TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero TxtValorCompra.Text = ObjActivoFijo.ValorCompra.ToString.FormatoNumero
TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString TxtFechaCompra.Text = ObjActivoFijo.FechaCompra.ToShortDateString
TxtValorCompraMN.Text = ObjActivoFijo.ValorCompraMN.ToString.FormatoNumero
If ObjActivoFijo.ValorCompra <> ObjActivoFijo.ValorCompraMN Then DivValorCompraMN.visible = True
TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy")) TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy"))
@@ -3152,13 +3152,15 @@ Partial Class AF_AF
Private Sub CargaCuentasConceptos() Private Sub CargaCuentasConceptos()
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasConceptos(10, UsuarioActual.CveEmpresa, CveAF:=CveActivoFijo) Then If ObjConta.GetCuentasConceptos(10, UsuarioActual.CveEmpresa, CveAF:=CveActivoFijo) Then
BtnVincularCuenta.Visible = ObjConta.DtResultados.Rows.Count = 0
GvCta.DataSource = ObjConta.DtResultados GvCta.DataSource = ObjConta.DtResultados
divCuentas.Visible = True divCuentas.Visible = True
End If End If
ObjConta.Dispose() ObjConta.Dispose()
GvCta.DataBind() GvCta.DataBind()
End Sub End Sub
Private Sub ActivarRegistroCuentaAF() Private Sub ActivarRegistroCuentaAF()
If DdlCtaContable.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(221).ToEntero > 0 Then If DdlCtaContable.SelectedValue.ToEntero <= 0 And UsuarioActual.Empresa.Funcionalidad(221).ToEntero > 0 Then
BtnCtaContable.Visible = True BtnCtaContable.Visible = True
@@ -4878,15 +4880,10 @@ Partial Class AF_AF
DT_PlgaEfermedad.AcceptChanges() DT_PlgaEfermedad.AcceptChanges()
End If End If
ErrorProceso = False ErrorProceso = False
End If End If
If Not ErrorProceso Then If Not ErrorProceso Then
RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');") RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');")
Alert("Plaga Enfermedad guardada Correctamente.") Alert("Plaga Enfermedad guardada Correctamente.")
@@ -4895,9 +4892,51 @@ Partial Class AF_AF
End Sub End Sub
Private Sub BtnVincularCuenta_Click(sender As Object, e As EventArgs) Handles BtnVincularCuenta.Click
RegistraScript("$('#ModalContaCuenta').modal('show');")
DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
DdlContaCuenta.DataBind()
End Sub
#End Region #End Region
Protected Sub BtnCuentaAsociar_Click(sender As Object, e As EventArgs)
Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL()
Dim ErrorString As String = ""
If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then
If Not ObjConta.AddCuentasAsignaciones(49, UsuarioActual.CveEmpresa, DdlContaCuenta.SelectedValue.ToEntero, CveActivoFijo:=CveActivoFijo) Then
ErrorString = "Error al agregar"
End If
ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 Then
If Not ObjConta.UpdateCuentasAsignaciones(HdnCveCuentaAsignacion.Value.ToEntero, 49, DdlContaCuenta.SelectedValue.ToEntero, CveActivoFijo:=CveActivoFijo) Then
ErrorString = "Error al actualizar"
End If
End If
If ErrorString.Length > 0 Then
ObjConta.RollBack()
Alert(ErrorString)
Else
ObjConta.Commit()
CargaCuentasConceptos()
UPG.Update()
RegistraScript("$('#ModalContaCuenta').modal('hide');")
Alert("Agregado correctamente")
End If
ObjConta.Dispose()
End Sub
Protected Sub ActualizaContaCuenta(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveConceptoContable As Integer = GvRow.DataKey("CveConceptoContable").ToString.ToEntero
HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString
DdlContaCuenta.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa, Afectable:=1)
DdlContaCuenta.DataBind()
DdlContaCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToString
RegistraScript("$('#ModalContaCuenta').modal('show');")
End Sub
End Class End Class

20
AF/CatAF.aspx
View File

@@ -207,26 +207,25 @@
<asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink> <asp:HyperLink ID="Hpl" runat="server" Text='<%# Eval("Codigo") %>' NavigateUrl='<%# Eval("CveActivoFijo", "/AF/AF.aspx?CveActivoFijo={0}")%>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Descripción"> <asp:TemplateField HeaderText="Descripción">
<ItemStyle Width="140px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal> <asp:Literal ID="LtlDescripcion" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Act. Fijo"> <asp:TemplateField HeaderText="Tipo Act. Fijo">
<ItemStyle Width="90px" /> <ItemStyle Width="125px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal> <asp:Literal ID="LtlTipoActivoFijo" runat="server" Text='<%# Eval("TipoActivoFijo")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Sub Tipo Act. Fijo"> <asp:TemplateField HeaderText="Sub Tipo Act. Fijo">
<ItemStyle Width="110px" /> <ItemStyle Width="125px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal> <asp:Literal ID="LtlSubTIpoActivoFijo" runat="server" Text='<%# Eval("SubTIpoActivoFijo")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Responsable"> <asp:TemplateField HeaderText="Responsable">
<ItemStyle Width="105px" /> <ItemStyle Width="125px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal> <asp:Literal ID="LtlResponsable" runat="server" Text='<%# Eval("Responsable")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -244,7 +243,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="SubProyecto"> <asp:TemplateField HeaderText="SubProyecto">
<ItemStyle Width="90px" /> <ItemStyle Width="110px" />
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal> <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -260,14 +259,7 @@
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal> <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Usuario">
<ItemStyle Width="80px" />
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario")%>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

6
App_Code/ClsAF.vb
View File

@@ -44,6 +44,7 @@ Public Class ClsAF
Public Property Descripcion As String Public Property Descripcion As String
Public Property CveCompra As Integer Public Property CveCompra As Integer
Public Property ValorCompra As Double Public Property ValorCompra As Double
Public Property ValorCompraMN As Double
Public Property FechaCompra As Date Public Property FechaCompra As Date
Public Property FechaBaja As Date Public Property FechaBaja As Date
Public Property CuentaInicial As Integer Public Property CuentaInicial As Integer
@@ -573,7 +574,7 @@ Public Class ClsAF
Return Retorno Return Retorno
End Function End Function
Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean Public Function UpdateActivosFijosCompra(CveActivoFijo As Integer, CveCompraDetalle As Integer, TipoAF As Integer, ValorCompra As Double, ValorCompraMN As Double, FechaCompra As Date, Optional Opcion As Integer = 1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_AF_ActivosFijosCompraUpdate") DataAdapter("PA_AF_ActivosFijosCompraUpdate")
@@ -582,7 +583,8 @@ Public Class ClsAF
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
.Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle .Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
.Add("@TipoAF", SqlDbType.Int).Value = TipoAF .Add("@TipoAF", SqlDbType.Int).Value = TipoAF
.Add("@ValorCompra", SqlDbType.Float).Value = ValorCompra .Add("@ValorCompra", SqlDbType.Money).Value = ValorCompra
.Add("@ValorCompraMN", SqlDbType.Money).Value = ValorCompraMN
.Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra .Add("@FechaCompra", SqlDbType.Date).Value = FechaCompra
.Add("@Opcion", SqlDbType.Int).Value = Opcion ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula los AF en base a la CveComrpaDetalle(en tabla AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle ) .Add("@Opcion", SqlDbType.Int).Value = Opcion ' Opcion 1 es la actualiacion normal , opcion 2 Desvicula los AF en base a la CveComrpaDetalle(en tabla AF_ActivosFijos pone el campo CveComrpaDetalle en null en base a CveComrpaDetalle )
End With End With

4
App_Code/ClsBancos.vb
View File

@@ -1944,7 +1944,7 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function End Function
Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, CveEmpresa As Integer) As Boolean Public Function GetIngresoEgresosDelDia(Fecha As Date, Tipo As String, Opcion As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_IngresoEgresosDiariosGet") DataAdapter("PA_Banc_IngresoEgresosDiariosGet")
@@ -1952,7 +1952,7 @@ Public Class ClsBancos
.Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso .Add("@Tipo", SqlDbType.VarChar).Value = Tipo 'Ing Ingresp Egs Egreso
'.Add("@Opcion", SqlDbType.VarChar).Value = Opcion ' 1 Bancos 2 caja chica .Add("@Opcion", SqlDbType.VarChar).Value = Opcion
End With End With
Try Try

24
App_Code/ClsFinanzas.vb
View File

@@ -363,6 +363,30 @@ Public Class ClsFinanzas
Return Retorno Return Retorno
End Function End Function
Public Function GetEstadoFlujoEfectivoRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Finan_RF_EstadoFlujoEfectivoRepGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Tipo", SqlDbType.Int).Value = Tipo
.Add("@Periodo", SqlDbType.Int).Value = Periodo
.Add("@Fechas", SqlDbType.VarChar).Value = Fechas
.Add("@Opcion", SqlDbType.Int).Value = Opcion
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al consultar el Reporte de Estado de Flujo de Efectivo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#Region "RazonesFinancierasCuentas" #Region "RazonesFinancierasCuentas"
Public Function AddRazonesFinancierasCuentas(CveRazonFinancieraConcepto As Integer, CveCuenta As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Public Function AddRazonesFinancierasCuentas(CveRazonFinancieraConcepto As Integer, CveCuenta As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False

30
App_Code/ClsPaginas.vb
View File

@@ -6702,11 +6702,17 @@ Public Class ClsPaginas
Dim ImgCBB As String Dim ImgCBB As String
Dim RutaFormato As String = String.Format("{0}Formatos\Nomina.rdlc", RutaEmpresa) Dim RutaFormato As String = String.Format("{0}Formatos\Nomina.rdlc", RutaEmpresa)
Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\Nomina.rdlc") Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\Nomina.rdlc")
Dim CFDIVersion As String = ""
Dim UsoCFDI As String = ""
'SI ESTA TIMBRADA - CON XML 'SI ESTA TIMBRADA - CON XML
If System.IO.File.Exists(PathXML) Then If System.IO.File.Exists(PathXML) Then
Dim XmlDoc As New System.Xml.XmlDocument Dim XmlDoc As New System.Xml.XmlDocument
'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml") 'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml")
XmlDoc.Load(PathXML) XmlDoc.Load(PathXML)
If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then
FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
@@ -6733,6 +6739,27 @@ Public Class ClsPaginas
Next Next
End If End If
Try
CFDIVersion = ValorNodoXML(XmlDoc.DocumentElement, "version")
Dim nsManager As New XmlNamespaceManager(XmlDoc.NameTable)
nsManager.AddNamespace("cfdi", If(CFDIVersion = "4.0", "http://www.sat.gob.mx/cfd/4", "http://www.sat.gob.mx/cfd/3"))
Dim receptorNode As XmlNode = XmlDoc.SelectSingleNode("/cfdi:comprobante/cfdi:emisor/cfdi:receptor", nsManager)
If receptorNode IsNot Nothing Then
UsoCFDI = ValorNodoXML(receptorNode, "usocfdi")
UsoCFDI = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
End If
Catch ex As Exception
End Try
'SIN TIMBRAR - SIN XML 'SIN TIMBRAR - SIN XML
Else Else
FolioFiscal = "Sin Timbrar" FolioFiscal = "Sin Timbrar"
@@ -6860,6 +6887,9 @@ Public Class ClsPaginas
RptParametro.Add(New ReportParameter("CadenaOriginal", CadenaOriginalCFD)) RptParametro.Add(New ReportParameter("CadenaOriginal", CadenaOriginalCFD))
RptParametro.Add(New ReportParameter("QR", ImgCBB.ToString)) RptParametro.Add(New ReportParameter("QR", ImgCBB.ToString))
RptParametro.Add(New ReportParameter("CFDIVersion", CFDIVersion))
RptParametro.Add(New ReportParameter("UsoCFDI", UsoCFDI))
Dim LSRds As New List(Of ReportDataSource) Dim LSRds As New List(Of ReportDataSource)
Dim rds2 = New ReportDataSource() Dim rds2 = New ReportDataSource()

3
App_Code/Modelos.vb
View File

@@ -3908,7 +3908,8 @@ Namespace Modelos
Dim CvePS = RowGarantia("CvePS").ToString().ToEntero() Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero() Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero() Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble() Dim PU As Decimal = 0 ' el valor de garántía debe de ser cero, tema contable
' Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
Dim Serie As String = RowGarantia("Comprobante").ToString Dim Serie As String = RowGarantia("Comprobante").ToString
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then

121
App_Code/Timbrado.vb
View File

@@ -10,6 +10,7 @@ Imports System.Xml
Imports System.Xml.Serialization Imports System.Xml.Serialization
Imports Extensiones Imports Extensiones
Imports Newtonsoft.Json.Linq Imports Newtonsoft.Json.Linq
Imports Profact.TimbraCFDI33.Complementos
Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20 Imports ProfactCartaPorte = Profact.TimbraCFDI33.Complementos.CartaPorte20
@@ -222,6 +223,11 @@ Public Class Timbrado
ValidaFactura = False ValidaFactura = False
End If End If
'TEMPORAL. PARCHE PARA CANCELAR DOCUMENTOS EMITIDOS CON EL PAC 5
If CvePACCancelacion = 5 Then
CvePACCancelacion = 4
End If
If Not (Empresa.Funcionalidad(529) = "1") Then If Not (Empresa.Funcionalidad(529) = "1") Then
If ValidaFactura Then If ValidaFactura Then
Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True) Dim Vigencia = VerificarVigenciaSAT(FolioFiscal, RFCEmisor, RFCReceptor, Total.ToString(), True)
@@ -551,8 +557,8 @@ Public Class Timbrado
resp = conector.ObtieneCFDI(RFCEmisor, FolioFiscal) resp = conector.ObtieneCFDI(RFCEmisor, FolioFiscal)
MsgCancelacion.AppendFormat("-3.3") MsgCancelacion.AppendFormat("-3.3")
'VERIFICA SI SE CANCELO O FUE CANCELADO PREVIAMENTE 'VERIFICA SI SE CANCELO O FUE CANCELADO PREVIAMENTE (CODIGO DE ERROR "330279")
If resultadoCancelacion.Exitoso OrElse resultadoCancelacion.NumeroError = "202" Then If resultadoCancelacion.Exitoso OrElse resultadoCancelacion.NumeroError.Contiene("202", "330279") Then
MsgCancelacion.AppendFormat("-3.4") MsgCancelacion.AppendFormat("-3.4")
CancelacionMensaje = resultadoCancelacion.Descripcion CancelacionMensaje = resultadoCancelacion.Descripcion
Dim xmlDoc As New System.Xml.XmlDocument() Dim xmlDoc As New System.Xml.XmlDocument()
@@ -1254,13 +1260,13 @@ Public Class Timbrado
Case 4 Case 4
Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial) Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
If Ret <> "" Then MensajeErrorCFDI = Ret If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False) Retorno = If(Ret = "", True, False)
Case 5 Case 5
Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial) Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial)
If Ret <> "" Then MensajeErrorCFDI = Ret If Ret <> "" Then MensajeErrorCFDI = Ret
Retorno = If(Ret = "", True, False) Retorno = If(Ret = "", True, False)
@@ -1323,7 +1329,7 @@ Public Class Timbrado
AmbienteProductivo = False AmbienteProductivo = False
Clave = "12345678a" Clave = "12345678a"
EmisorRFC = "EKU9003173C9" EmisorRFC = "EKU9003173C9"
UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" EmisorNombre = "ESCUELA KEMPER URGATE"
ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer" ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
UsuarioActual.Empresa.CodigoRegimenFiscal = "601" UsuarioActual.Empresa.CodigoRegimenFiscal = "601"
@@ -1400,11 +1406,9 @@ Public Class Timbrado
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then comprobante.CondicionesDePago = ObjCFDITimbre.Comprobante.CondicionesdePago If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then comprobante.CondicionesDePago = ObjCFDITimbre.Comprobante.CondicionesdePago
comprobante.SubTotal = ObjCFDITimbre.Comprobante.SubTotal.RoundSQL(NumDecimalesImporte) comprobante.SubTotal = ObjCFDITimbre.Comprobante.SubTotal.RoundSQL(NumDecimalesImporte)
If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") Then If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") AndAlso ObjCFDITimbre.Comprobante.Descuentos > 0 Then
If ObjCFDITimbre.Comprobante.Descuentos > 0 Then comprobante.DescuentoSpecified = True
comprobante.DescuentoSpecified = True comprobante.Descuento = ObjCFDITimbre.Comprobante.Descuentos.RoundSQL(NumDecimalesImporte)
comprobante.Descuento = ObjCFDITimbre.Comprobante.Descuentos.RoundSQL(NumDecimalesImporte)
End If
End If End If
comprobante.Moneda = ObjCFDITimbre.Comprobante.Moneda comprobante.Moneda = ObjCFDITimbre.Comprobante.Moneda
comprobante.TipoCambio = ObjCFDITimbre.Comprobante.TipoCambio.ToDecimal comprobante.TipoCambio = ObjCFDITimbre.Comprobante.TipoCambio.ToDecimal
@@ -1463,21 +1467,19 @@ Public Class Timbrado
Dim k As Integer = 0 Dim k As Integer = 0
For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
comprobante.Conceptos(i) = New Profact.TimbraCFDI40.ComprobanteConcepto() comprobante.Conceptos(i) = New Profact.TimbraCFDI40.ComprobanteConcepto()
comprobante.Conceptos(i).Cantidad = concep.Cantidad comprobante.Conceptos(i).Cantidad = concep.Cantidad.RoundSQL(6)
If concep.Unidad <> "" Then comprobante.Conceptos(i).Unidad = concep.Unidad If concep.Unidad <> "" Then comprobante.Conceptos(i).Unidad = concep.Unidad
comprobante.Conceptos(i).ClaveUnidad = concep.ClaveUnidad comprobante.Conceptos(i).ClaveUnidad = concep.ClaveUnidad
comprobante.Conceptos(i).Descripcion = concep.Descripcion comprobante.Conceptos(i).Descripcion = concep.Descripcion
comprobante.Conceptos(i).ValorUnitario = concep.ValorUnitario.RoundSQL(6) comprobante.Conceptos(i).ValorUnitario = Decimal.Parse(concep.ValorUnitario.ToString("0.00####")) ' formateo forzoso, ej,2543.1
comprobante.Conceptos(i).Importe = concep.Importe.RoundSQL(NumDecimalesImporte) comprobante.Conceptos(i).Importe = Decimal.Parse(concep.Importe.RoundSQL(NumDecimalesImporte).ToString("0.00")) ' formateo forzoso, ej,2543.1
comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ comprobante.Conceptos(i).ClaveProdServ = concep.ClaveProdServ
comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto comprobante.Conceptos(i).ObjetoImp = concep.ObjetoImpuesto
If ObjCFDITimbre.Comprobante.TipoComprobante <> "P" Then If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E", "N") AndAlso concep.Descuento > 0 Then
If concep.Descuento > 0 Then comprobante.Conceptos(i).Descuento = concep.Descuento
comprobante.Conceptos(i).Descuento = concep.Descuento comprobante.Conceptos(i).DescuentoSpecified = True
comprobante.Conceptos(i).DescuentoSpecified = True
End If
End If End If
If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion
@@ -1962,7 +1964,7 @@ Public Class Timbrado
Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComPag, GetType(Profact.TimbraCFDI40.Complementos.Pagos20.Pagos), nsComp) Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComPag, GetType(Profact.TimbraCFDI40.Complementos.Pagos20.Pagos), nsComp)
Dim docComp As New XmlDocument() Dim docComp As New XmlDocument()
docComp.LoadXml(xmlComp) docComp.LoadXml(xmlComp)
'comprobante.PagosSpecified = True comprobante.Pagos20Specified = True
LXmlComplementos.Add(docComp.DocumentElement) LXmlComplementos.Add(docComp.DocumentElement)
TieneComplemento = True TieneComplemento = True
End If End If
@@ -1981,7 +1983,8 @@ Public Class Timbrado
ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac) ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
ComCartaPorte.EntradaSalidaMercSpecified = False ComCartaPorte.EntradaSalidaMercSpecified = False
ComCartaPorte.ViaEntradaSalidaSpecified = False ComCartaPorte.ViaEntradaSalidaSpecified = False
ComCartaPorte.TotalDistRecSpecified = False ComCartaPorte.TotalDistRecSpecified = True
ComCartaPorte.TotalDistRec = Carta.TotalDistanciaRecorrida
'UBICACIONES 'UBICACIONES
If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
@@ -2003,10 +2006,11 @@ Public Class Timbrado
'ComCartaPorte.Ubicaciones(i).NavegacionTrafico = ubica.NavegacionTrafico 'ComCartaPorte.Ubicaciones(i).NavegacionTrafico = ubica.NavegacionTrafico
ComCartaPorte.Ubicaciones(i).FechaHoraSalidaLlegada = ubica.FechaHoraSalidaLlegada.ToDate ComCartaPorte.Ubicaciones(i).FechaHoraSalidaLlegada = ubica.FechaHoraSalidaLlegada.ToDate
ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida ComCartaPorte.Ubicaciones(i).DistanciaRecorrida = ubica.DistanciaRecorrida
ComCartaPorte.Ubicaciones(i).DistanciaRecorridaSpecified = ubica.DistanciaRecorrida > 0
ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Domicilio.Calle, ComCartaPorte.Ubicaciones(i).Domicilio = New ProfactCartaPorte.CartaPorteUbicacionDomicilio With {.Calle = ubica.Domicilio.Calle,
.Colonia = ubica.Domicilio.Colonia, .Colonia = ubica.Domicilio.Colonia,
.Localidad = ubica.Domicilio.Localidad, .Localidad = If(ubica.Domicilio.Localidad <> "", ubica.Domicilio.Localidad, Nothing),
.Municipio = ubica.Domicilio.Municipio, .Municipio = ubica.Domicilio.Municipio,
.Estado = ubica.Domicilio.Estado, .Estado = ubica.Domicilio.Estado,
.CodigoPostal = ubica.Domicilio.CP, .CodigoPostal = ubica.Domicilio.CP,
@@ -2027,7 +2031,7 @@ Public Class Timbrado
ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal ComCartaPorte.Mercancias.PesoNetoTotal = Carta.Mercancias.PesoNetoTotal.ToDecimal
ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias ComCartaPorte.Mercancias.NumTotalMercancias = Carta.Mercancias.NumTotalMercancias
ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal ComCartaPorte.Mercancias.CargoPorTasacion = Carta.Mercancias.CargoporTasacion.ToDecimal
' ComCartaPorte.Mercancias.UnidadPeso = Carta.Mercancias.UnidadPeso ComCartaPorte.Mercancias.UnidadPeso = ProfactCartaPorte.c_ClaveUnidadPeso.KGM
If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
Dim i As Integer = 0 Dim i As Integer = 0
@@ -2042,9 +2046,12 @@ Public Class Timbrado
ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción ComCartaPorte.Mercancias.Mercancia(i).Descripcion = concep.Descripción
ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad ComCartaPorte.Mercancias.Mercancia(i).Cantidad = concep.Cantidad
ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad ComCartaPorte.Mercancias.Mercancia(i).Unidad = concep.Unidad
ComCartaPorte.Mercancias.Mercancia(i).ClaveUnidad = concep.ClaveUnidad
If concep.Dimensiones <> "" Then ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones If concep.Dimensiones <> "" Then ComCartaPorte.Mercancias.Mercancia(i).Dimensiones = concep.Dimensiones
If concep.ClaveMaterialPeligroso <> "" Then If concep.ClaveMaterialPeligroso <> "" Then
ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligroso = ProfactCartaPorte.CartaPorteMercanciasMercanciaMaterialPeligroso.Sí
ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True
ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligroso = concep.ClaveMaterialPeligroso
ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
'si lleva material pelgroso, debe llevar embalaje 'si lleva material pelgroso, debe llevar embalaje
ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
@@ -2130,18 +2137,23 @@ Public Class Timbrado
ComCartaPorte.FiguraTransporte(i).RFCFigura = concep.RFCFigura ComCartaPorte.FiguraTransporte(i).RFCFigura = concep.RFCFigura
ComCartaPorte.FiguraTransporte(i).NumLicencia = concep.NumLicencia ComCartaPorte.FiguraTransporte(i).NumLicencia = concep.NumLicencia
ComCartaPorte.FiguraTransporte(i).NombreFigura = concep.NombreFigura ComCartaPorte.FiguraTransporte(i).NombreFigura = concep.NombreFigura
ComCartaPorte.FiguraTransporte(i).TipoFigura = concep.TipoFigura
If concep.NumRegidTribFigura <> "" Then ComCartaPorte.FiguraTransporte(i).NumRegIdTribFigura = concep.NumRegidTribFigura If concep.NumRegidTribFigura <> "" Then ComCartaPorte.FiguraTransporte(i).NumRegIdTribFigura = concep.NumRegidTribFigura
'OComCartaPorte.FiguraTransporte.Operadores(i)(0) = concep.ResidenciaFiscalOperador 'falta 'OComCartaPorte.FiguraTransporte.Operadores(i)(0) = concep.ResidenciaFiscalOperador 'falta
ComCartaPorte.FiguraTransporte(i).Domicilio = New ProfactCartaPorte.CartaPorteTiposFiguraDomicilio() If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
ComCartaPorte.FiguraTransporte(i).Domicilio.Calle = concep.Domicilio.Calle ComCartaPorte.FiguraTransporte(i).Domicilio = New ProfactCartaPorte.CartaPorteTiposFiguraDomicilio()
ComCartaPorte.FiguraTransporte(i).Domicilio.CodigoPostal = concep.Domicilio.CP ComCartaPorte.FiguraTransporte(i).Domicilio.Calle = concep.Domicilio.Calle
ComCartaPorte.FiguraTransporte(i).Domicilio.Colonia = concep.Domicilio.Colonia If concep.Domicilio.NumeroInterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroInterior = concep.Domicilio.NumeroInterior
ComCartaPorte.FiguraTransporte(i).Domicilio.Estado = concep.Domicilio.Estado ComCartaPorte.FiguraTransporte(i).Domicilio.CodigoPostal = concep.Domicilio.CP
If concep.Domicilio.Localidad <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Localidad = concep.Domicilio.Localidad If concep.Domicilio.Colonia <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Colonia = concep.Domicilio.Colonia
ComCartaPorte.FiguraTransporte(i).Domicilio.Municipio = concep.Domicilio.Municipio ComCartaPorte.FiguraTransporte(i).Domicilio.Estado = concep.Domicilio.Estado
If concep.Domicilio.NumeroExterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroExterior = concep.Domicilio.NumeroExterior If concep.Domicilio.Localidad <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.Localidad = concep.Domicilio.Localidad
ComCartaPorte.FiguraTransporte(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX ComCartaPorte.FiguraTransporte(i).Domicilio.Municipio = concep.Domicilio.Municipio
If concep.Domicilio.NumeroExterior <> "" Then ComCartaPorte.FiguraTransporte(i).Domicilio.NumeroExterior = concep.Domicilio.NumeroExterior
ComCartaPorte.FiguraTransporte(i).Domicilio.Pais = ProfactCartaPorte.c_Pais.MEX
End If
i += 1 i += 1
Next Next
@@ -2150,11 +2162,11 @@ Public Class Timbrado
End If End If
Dim nsComp As New System.Xml.Serialization.XmlSerializerNamespaces() Dim nsComp As New System.Xml.Serialization.XmlSerializerNamespaces()
nsComp.Add("CartaPorte", "http://www.sat.gob.mx/CartaPorte") nsComp.Add("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComCartaPorte, GetType(ProfactCartaPorte.CartaPorte), nsComp) Dim xmlComp As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(ComCartaPorte, GetType(ProfactCartaPorte.CartaPorte), nsComp)
Dim docComp As New XmlDocument() Dim docComp As New XmlDocument()
docComp.LoadXml(xmlComp) docComp.LoadXml(xmlComp)
'comprobante.CartaPorteSpecified = True comprobante.CartaPorte20Specified = True
LXmlComplementos.Add(docComp.DocumentElement) LXmlComplementos.Add(docComp.DocumentElement)
TieneComplemento = True TieneComplemento = True
@@ -2318,6 +2330,7 @@ Public Class Timbrado
Dim xmlNom As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(Nom, GetType(Profact.TimbraCFDI33.Complementos.Nomina12.Nomina), nsNom) Dim xmlNom As String = Profact.TimbraCFDI.XMLUtilerias.SerializaObjeto(Nom, GetType(Profact.TimbraCFDI33.Complementos.Nomina12.Nomina), nsNom)
Dim docNom As New XmlDocument() Dim docNom As New XmlDocument()
docNom.LoadXml(xmlNom) docNom.LoadXml(xmlNom)
comprobante.Nomina12Specified = True
LXmlComplementos.Add(docNom.DocumentElement) LXmlComplementos.Add(docNom.DocumentElement)
TieneComplemento = True TieneComplemento = True
@@ -2327,8 +2340,6 @@ Public Class Timbrado
#End Region #End Region
If TieneComplemento Then If TieneComplemento Then
comprobante.Complemento = New Profact.TimbraCFDI40.ComprobanteComplemento comprobante.Complemento = New Profact.TimbraCFDI40.ComprobanteComplemento
comprobante.Complemento.Any = LXmlComplementos.ToArray() comprobante.Complemento.Any = LXmlComplementos.ToArray()
@@ -2340,12 +2351,7 @@ Public Class Timbrado
sw.Start() sw.Start()
#Region "Genera XML" #Region "Genera XML"
' Try
' cfdi.GenerarXMLBase64(llaveBase64, Clave)
' cfdi.EscribirXML(cfdi.Xml, RutaArchivo, NombreArchivoXML)
' Catch ex As Exception
' End Try
'//Timbramos el CFDI por medio del conector y guardamos resultado '//Timbramos el CFDI por medio del conector y guardamos resultado
Dim resultadoTimbre As Profact.TimbraCFDI.ResultadoTimbre = Nothing Dim resultadoTimbre As Profact.TimbraCFDI.ResultadoTimbre = Nothing
@@ -2356,6 +2362,15 @@ Public Class Timbrado
swmili = sw.ElapsedMilliseconds swmili = sw.ElapsedMilliseconds
sw.Start() sw.Start()
Dim xmlPrevio As String
Using sww As New System.IO.StringWriter()
Dim xs As XmlSerializer
xs = New System.Xml.Serialization.XmlSerializer(GetType(Profact.TimbraCFDI40.Comprobante))
xs.Serialize(sww, comprobante)
xmlPrevio = sww.ToString()
End Using
#Region "Timbra" #Region "Timbra"
resultadoTimbre = cfdi.TimbraCFDI(comprobante) resultadoTimbre = cfdi.TimbraCFDI(comprobante)
#End Region #End Region
@@ -2418,13 +2433,22 @@ Public Class Timbrado
End If End If
If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then If ObjCFDITimbre.Comprobante.TipoComprobante = "T" Then
Dim ObjInv As New ClsInventarios() Dim objGrales As New ClsGenerales
If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC, "4.0") Then
Retorno = "" Retorno = ""
Else Else
Retorno = "Error" Retorno = "Error"
End If End If
ObjInv.Dispose() objGrales.Dispose()
Using ObjInv As New ClsInventarios()
If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
Retorno = ""
Else
Retorno = "Error"
End If
End Using
End If End If
'Pendiente. Ruta guardar archivos 'Pendiente. Ruta guardar archivos
@@ -2437,8 +2461,6 @@ Public Class Timbrado
Else Else
Retorno = "No se pudo timbrar ante el SAT. UUID no generado." Retorno = "No se pudo timbrar ante el SAT. UUID no generado."
End If End If
Else Else
If Not String.IsNullOrEmpty(resultadoTimbre.Detalle) Then If Not String.IsNullOrEmpty(resultadoTimbre.Detalle) Then
@@ -2447,13 +2469,18 @@ Public Class Timbrado
If Resultados.Count > 0 Then If Resultados.Count > 0 Then
If resultadoTimbre.Descripcion.Contains("RFC del receptor no existe") Then If resultadoTimbre.Descripcion.Contains("RFC del receptor no existe") Then
Retorno = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente" Retorno = $"El RFC { Resultados(0)("Value") } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
MensajeErrorCFDI = $"El RFC { Resultados(0)("Value").ToString() } no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente" MensajeErrorCFDI = $"El RFC { Resultados(0)("Value")} no existe en las bases de datos publicadas por el SAT, corrobore este dato con su cliente"
Else Else
Dim sbMsg As New StringBuilder Dim sbMsg As New StringBuilder
Dim sbMsgLog As New StringBuilder
sbMsgLog.Append(xmlPrevio)
sbMsgLog.Append("------------")
For Each msg In Resultados For Each msg In Resultados
sbMsg.AppendFormat("{0}.<br/>", msg("Value")) sbMsg.AppendFormat("{0}.<br/>", msg("Value"))
sbMsgLog.AppendFormat("{0}-{1}<br/>", msg("Key"), msg("Value"))
Next Next
sbMsgLog.ToString.GuardaLog()
Retorno = sbMsg.ToString() Retorno = sbMsg.ToString()
MensajeErrorCFDI = Retorno MensajeErrorCFDI = Retorno
End If End If

44
Bancos/Creditos.aspx.vb
View File

@@ -1,6 +1,7 @@
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports System.Activities.Expressions
Imports System.Data Imports System.Data
Imports System.Windows.Forms.VisualStyles.VisualStyleElement Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports Extensiones Imports Extensiones
@@ -361,7 +362,7 @@ Partial Class Bancos_Creditos
End Sub End Sub
Private Sub CargaCreditoComplejo() Private Sub CargaCreditoComplejo()
Dim ObjCreditos As New ClsBancos Dim ObjCreditos As New ClsBancos
Dim ObjPrepoliza As New ClsContabilidad 'Dim ObjPrepoliza As New ClsContabilidad
If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then If ObjCreditos.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjCreditos.DtResultados.Rows.Count > 0 Then If ObjCreditos.DtResultados.Rows.Count > 0 Then
@@ -424,9 +425,9 @@ Partial Class Bancos_Creditos
HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}" HLSaldoPrePoliza.NavigateUrl = $"/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={ObjCreditos.CvePrePoliza}"
LbSaldo.Text = $"Saldo <b>Acreedor</b> " LbSaldo.Text = $"Saldo <b>Acreedor</b> "
If ObjPrepoliza.GetPrePolizasDetalle(ObjCreditos.CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjPrepoliza.DtResultados.Rows.Count > 0 Then If ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) AndAlso ObjCreditos.DtResultados.Rows.Count > 0 Then
LbSaldoAcreedor.Text = ObjPrepoliza.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 42").FormatoNumero LbSaldoAcreedor.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 42").FormatoNumero
LbSaldoDocxPagar.Text = ObjPrepoliza.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 50").FormatoNumero LbSaldoDocxPagar.Text = ObjCreditos.DtResultados.FiltroPrimeroValor("Importe", "CveConceptoContable = 50").FormatoNumero
End If End If
Else Else
@@ -471,12 +472,12 @@ Partial Class Bancos_Creditos
End If End If
'CARGA ANTICIPOS 'CARGA ANTICIPOS
If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjPrepoliza.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=dr("CveIE").ToString.ToEntero) Then If dr("CveIE").ToString.ToEntero > 0 AndAlso ObjCreditos.GetBancosIEMovimientos(dr("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
If ObjPrepoliza.DtResultados.Rows.Count > 0 Then If ObjCreditos.DtResultados.Rows.Count > 0 Then
TxtVehiculoAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero TxtVehiculoAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 53").Rows(0)("Importe").ToString.FormatoNumero
TxtComisionAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero TxtComisionAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 54").Rows(0)("Importe").ToString.FormatoNumero
TxtSeguroAnticipo.Text = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 55").Rows(0)("Importe").ToString.FormatoNumero TxtSeguroAnticipo.Text = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 55").Rows(0)("Importe").ToString.FormatoNumero
Dim dtt As DataTable = ObjPrepoliza.DtResultados.FiltraParametros("CveConceptoContable = 58") Dim dtt As DataTable = ObjCreditos.DtResultados.FiltraParametros("CveConceptoContable = 58")
If dtt.Rows.Count > 0 Then If dtt.Rows.Count > 0 Then
TxtFondoGarantia.Text = dtt.Rows(0)("Importe").ToString.FormatoNumero TxtFondoGarantia.Text = dtt.Rows(0)("Importe").ToString.FormatoNumero
End If End If
@@ -516,7 +517,6 @@ Partial Class Bancos_Creditos
End If End If
ObjCreditos.Dispose() ObjCreditos.Dispose()
ObjPrepoliza.Dispose()
End Sub End Sub
#End Region #End Region
@@ -1577,21 +1577,21 @@ Partial Class Bancos_Creditos
Dim importeMovimiento = 0.0D Dim importeMovimiento = 0.0D
Dim ConceptoContable = 0 Dim ConceptoContable = 0
Dim TipoMovimiento = False Dim TipoMovimiento = False
Dim IdCtaContable = 0 Dim IdCtaContable = 0
Dim Concepto = "" Dim Concepto = ""
Dim Referencia = $"Crédito: {TxtReferencia.Text}" Dim Referencia = $"Crédito: {TxtReferencia.Text}"
Dim FechaMovimiento = Now.ToDate Dim FechaMovimiento = Now.ToDate
Dim MsgError As String = "" Dim MsgError As String = ""
CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) CvePrePoliza = ObjContabilidad.AddPrePolizas("Creditos/RegistrodeRegistro", 69, TxtCSTotalCredito.Text.ToDouble, TxtCSTotalCredito.Text.ToDouble, DdlCSTipoMoneda.SelectedValue.ToEntero, FechaMovimiento, $"Crédito: {TxtReferencia.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal Dim ImporteDocXPagar = TxtTotalCredito.Text.ToDecimal
Dim CveProveedor = -1 Dim CveProveedor = -1
Dim CveCreditoPrePoliza = -1 Dim CveCreditoPrePoliza = -1
If CvePrePoliza > 0 Then If CvePrePoliza > 0 Then
importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.todecimal 'importe financiado importeMovimiento = TxtVehiculoValor.Text.ToDecimal - TxtVehiculoAnticipo.Text.ToDecimal 'importe financiado
Concepto = $"Crédito: {TxtReferencia.Text}" Concepto = $"Crédito: {TxtReferencia.Text}"
Dim Pago As New CompraPago Dim Pago As New CompraPago
Pago.Fecha = Now Pago.Fecha = Now

10
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -810,7 +810,7 @@ Partial Class Bancos_FluctuacionCambiaria
IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero() IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
'movimiento de complementaria 'movimiento de complementaria
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 307, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
ErrorRegistrar = True ErrorRegistrar = True
Exit For Exit For
End If End If
@@ -831,7 +831,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraAcreedores.Visible = False BtnGeneraAcreedores.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -888,7 +888,7 @@ Partial Class Bancos_FluctuacionCambiaria
IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero() IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
'movimiento de complementaria 'movimiento de complementaria
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), 347, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
ErrorRegistrar = True ErrorRegistrar = True
Exit For Exit For
End If End If
@@ -909,7 +909,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()
BtnGeneraAcreedoresAnt.Visible = False BtnGeneraAcreedoresAnt.Visible = False
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
Conta.RollBack() Conta.RollBack()
Alert("Error al generar la fluctuación", TipoMensaje.MsgError) Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
@@ -1136,7 +1136,7 @@ Partial Class Bancos_FluctuacionCambiaria
End If End If
'movimiento de complementaria 'movimiento de complementaria
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoFluctuacion, 202, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total), CveCuenta:=CveCuentaComplementaria) Then If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoFluctuacion, 345, ConceptoFluctuacion & gvr.DataKey("RazonSocial"), Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total), CveCuenta:=CveCuentaComplementaria) Then
ErrorRegistrar = True ErrorRegistrar = True
Exit For Exit For
End If End If

8
Bancos/FlujoDiario.aspx
View File

@@ -41,6 +41,14 @@
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="col-md-1 truncate" style="max-width: 100px">Opción:</div>
<div class="col-md-1" style="min-width: 120px">
<asp:DropDownlist ID="DdlOpcion" runat="server" CssClass="form-control input-sm" >
<asp:ListItem Text="Todos" Value="0"></asp:ListItem>
<asp:ListItem Text="Conciliados" Value="1" Selected="True"></asp:ListItem>
</asp:DropDownlist>
</div>
</div> </div>
</div> </div>
</div> </div>

16
Bancos/FlujoDiario.aspx.vb
View File

@@ -64,28 +64,26 @@ Partial Class Bancos_FlujoDiario
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If
Dim OpcionSaldo As Integer = DdlOpcion.SelectedValue.ToEntero
'SE LLENA TmpDTSaldosIniciales 'SE LLENA TmpDTSaldosIniciales
Dim Ban As New ClsBancos Dim Ban As New ClsBancos
If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text.ToDate.AddDays(-1).ToShortDateString, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TmpDTSaldosIniciales = Ban.DtResultados TmpDTSaldosIniciales = Ban.DtResultados
End If End If
'Se Llena TmpDTIngresosDelDia 'Se Llena TmpDTIngresosDelDia
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", UsuarioActual.CveEmpresa) Then If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Ing", OpcionSaldo, UsuarioActual.CveEmpresa) Then
TmpDTIngresosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 8") TmpDTIngresosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 8")
End If End If
'Se Llena TmpDTGastosDelDia 'Se Llena TmpDTGastosDelDia
If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", UsuarioActual.CveEmpresa) Then If Ban.GetIngresoEgresosDelDia(TxtFecha.Text.ToDate, "Egs", OpcionSaldo, UsuarioActual.CveEmpresa) Then
TmpDTGastosDelDia = Ban.DtResultados'.FiltraParametros("CveTipoTransaccion <> 2") TmpDTGastosDelDia = Ban.DtResultados '.FiltraParametros("CveTipoTransaccion <> 2")
End If End If
'Se Llena TmpDTSaldosActuales 'Se Llena TmpDTSaldosActuales
If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, 0, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If Ban.GetBancosSaldos(-1, -1, -1, MinFecha.ToString, TxtFecha.Text, OpcionSaldo, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TmpDTSaldosActuales = Ban.DtResultados TmpDTSaldosActuales = Ban.DtResultados
End If End If

2
Bancos/PopIECompras.aspx.vb
View File

@@ -1472,7 +1472,7 @@ Partial Class Bancos_PopIECompras
tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL
End If End If
If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago.RoundSQL, tImporteMN, 30, Referencia, ConceptoMovimiento, IdCuenta, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If

18
Bancos/RepEgresosSinComprobante.aspx
View File

@@ -145,6 +145,22 @@
<ContentTemplate> <ContentTemplate>
<div class="row" id="DVSaldar" runat="server" visible="false"> <div class="row" id="DVSaldar" runat="server" visible="false">
<div class="col-md-1 truncate">
Fecha:
</div>
<div class="col-md-1" style="min-width: 115px">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:TextBox Width="80px" ID="TxtFechaSaldar" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="ImgCalendarioSaldar" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaSaldar" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaSaldar" PopupButtonID="ImgCalendarioSaldar" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFechaSaldar" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFechaSaldar" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
</div>
<div class="col-lg-1"> <div class="col-lg-1">
Concepto: Concepto:
</div> </div>
@@ -185,7 +201,7 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, TipoCambio, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio, CveTipoProveedor" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None"> <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, TipoCambio, FechaDocumento, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio, CveTipoProveedor" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns> <Columns>
<asp:TemplateField ItemStyle-Width="5%"> <asp:TemplateField ItemStyle-Width="5%">
<ItemTemplate> <ItemTemplate>

50
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -94,21 +94,9 @@ Partial Class Bancos_RepEgresosSinComprobante
e.Row.FCHyperLink("Hpl").NavigateUrl = "" e.Row.FCHyperLink("Hpl").NavigateUrl = ""
e.Row.FCHyperLink("Hpl").Font.Bold = True e.Row.FCHyperLink("Hpl").Font.Bold = True
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
End If End If
'CUANDO ES SUBTITULO
If e.Row.RowIndex = 1 Then
e.Row.Cells(1).Width = Unit.Pixel(520)
e.Row.Cells(2).Width = Unit.Pixel(50)
e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(150)
e.Row.Cells(6).Width = Unit.Pixel(100)
End If
'Sustituido 3-5 lineas mas abajo
'If e.Row.DBCampo("FechaDocumento") = "" Then e.Row.BackColor = Drawing.Color.LightGray
'CUANDO ES SUBTITULO
If e.Row.DBCampo("CveIE") = "" Then If e.Row.DBCampo("CveIE") = "" Then
If e.Row.DBCampo("CveMoneda") = "" Then If e.Row.DBCampo("CveMoneda") = "" Then
@@ -118,7 +106,6 @@ Partial Class Bancos_RepEgresosSinComprobante
e.Row.FCLiteral("LtMoneda").Visible = True e.Row.FCLiteral("LtMoneda").Visible = True
e.Row.FCHyperLink("Hpl").Visible = False e.Row.FCHyperLink("Hpl").Visible = False
End If End If
End If End If
'LINK A IE 'LINK A IE
@@ -126,9 +113,8 @@ Partial Class Bancos_RepEgresosSinComprobante
e.Row.FCHyperLink("HLFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) e.Row.FCHyperLink("HLFolio").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
End If End If
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red
' e.Row.FCHyperLink("ImgAbonar").NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&FechaI={1}&FechaF={2}&CveUsuarioProgramo={3}&CveMoneda={4}&Serie={5}", e.Row.DBCampo("CveProveedor"), If(txtFechaI.Text <> "", txtFechaI.Text, "-1"), If(txtFechaF.Text <> "", txtFechaF.Text, "-1"), DdlUsuarioProgramo.SelectedValue, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("Serie"))
End If End If
End Sub End Sub
@@ -181,7 +167,8 @@ Partial Class Bancos_RepEgresosSinComprobante
End If End If
Next Next
TxtConcepto.Text = "Saldo de Egresos por comprobar" TxtConcepto.Text = "Saldado de Egresos por comprobar"
TxtFechaSaldar.Text = Now.ToShortDateString
DVSaldar.Visible = True DVSaldar.Visible = True
UpSaldar.Update() UpSaldar.Update()
@@ -200,7 +187,6 @@ Partial Class Bancos_RepEgresosSinComprobante
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs) Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
Dim Contador As Integer = 0 Dim Contador As Integer = 0
For Each gr As GridViewRow In GvESC.Rows For Each gr As GridViewRow In GvESC.Rows
If gr.FCCheckBox("Chk").Checked Then If gr.FCCheckBox("Chk").Checked Then
@@ -213,7 +199,6 @@ Partial Class Bancos_RepEgresosSinComprobante
Exit Sub Exit Sub
End If End If
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL()) Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
@@ -223,9 +208,9 @@ Partial Class Bancos_RepEgresosSinComprobante
Dim MsgError As String = "" Dim MsgError As String = ""
Try Try
If Contador > 0 Then If Contador > 0 Then
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now, Dim tFecha As Date = TxtFechaSaldar.Text.ToDate
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, tFecha,
TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim ImporteSaldoGral As Decimal = 0 Dim ImporteSaldoGral As Decimal = 0
Dim TipoMovtoConcepto As Boolean = True Dim TipoMovtoConcepto As Boolean = True
@@ -243,9 +228,22 @@ Partial Class Bancos_RepEgresosSinComprobante
End If End If
If gr.DataKey("CveMoneda").ToEntero > 1 Then If gr.DataKey("CveMoneda").ToEntero > 1 Then
Dim ImporteMN As Decimal = (ImporteSaldo * gr.DataKey("TipoCambio").ToDecimal - ImporteSaldo).RoundSQL Dim TCValuacion As Decimal = gr.DataKey("TipoCambio").ToDecimal
If UsuarioActual.Empresa.Funcionalidad(703) = "1" Then
Dim tFechaUltimaFluctuacion As Date
Dim UltimaFluctuacion As MTipoCambioFluctuacion = GlobalTipoCambioUltimaFluctuacion(tFecha)
If UltimaFluctuacion IsNot Nothing Then
If UltimaFluctuacion.FechaFluctuacion < tFecha Then
tFechaUltimaFluctuacion = UltimaFluctuacion.FechaFluctuacion
TCValuacion = UltimaFluctuacion.TCFluctuacion
End If
If gr.DataKey("FechaDocumento").ToDate < tFechaUltimaFluctuacion Then TCValuacion = TCValuacion
End If
End If
Dim ImporteMN As Decimal = (ImporteSaldo * TCValuacion - ImporteSaldo).RoundSQL
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, gr.DataKey("Folio"), TxtConcepto.Text, -1, If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, gr.DataKey("Folio"), TxtConcepto.Text, -1,
CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, CveIE:=gr.DataKey("CveIE").ToEntero, TipoCambio:=TCValuacion, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
ImporteME:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then ImporteME:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento" MsgError = "Ocurrio un error al saldar el movimiento"
Exit For Exit For

BIN
Bin/Profact.TimbraCFDI.dll
View File

Binary file not shown.

2
Compras/CatTipoGasto.aspx
View File

@@ -23,7 +23,7 @@
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoGasto,TipoGasto,Estatus,FechaIng" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; width: 100%" GridLines="None"> <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveTipoGasto,TipoGasto,Estatus,FechaIng" EmptyDataText="No se encontraron Tipo Gasto" ToolTip="Listado de Tipo Gasto " CssClass="table table-striped table-advance table-hover input-sm" Style="margin-top: -10px; width: 100%" GridLines="None">
<Columns> <Columns>
<asp:BoundField HeaderText="Tipo Gasto" DataField="TipoGasto" /> <asp:BoundField HeaderText="Tipo Gasto" DataField="TipoGasto" />
<asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-Width="15%" /> <asp:BoundField HeaderText="Estatus" DataField="Estatus" ItemStyle-Width="15%" />

14
Compras/Compras.aspx.vb
View File

@@ -5280,7 +5280,9 @@ Partial Class Compras_Compras
'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF 'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
If Row("TipoAF").ToString.ToEntero = 2 Then If Row("TipoAF").ToString.ToEntero = 2 Then
If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then Dim Valor As Decimal = Row("Total").ToString.ToDecimal
Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Valor, ValorMN, TxtFecha.Text.Trim.ToDate) Then
ErrorDetalles = True ErrorDetalles = True
Exit For Exit For
End If End If
@@ -6987,7 +6989,7 @@ Partial Class Compras_Compras
Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto) Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto)
'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False) 'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConPreP.CveConcepto, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
IdCtaContable = CtaProveedorComplementaria IdCtaContable = CtaProveedorComplementaria
'CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True) 'CveCon = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, True)
@@ -8717,7 +8719,9 @@ Partial Class Compras_Compras
For Each drowAF As DataRow In TmpDT.Rows For Each drowAF As DataRow In TmpDT.Rows
If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then If drowAF("DesvicularAF").ToString <> "" AndAlso Boolean.Parse(drowAF("DesvicularAF").ToString) Then
If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, 0, Now, Opcion:=2) Then Dim Valor As Decimal = drowAF("Total").ToString.ToDecimal
Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
If Not ObjAF.UpdateActivosFijosCompra(-1, drowAF("CveCompraDetalle").ToString.ToEntero, -1, Valor, ValorMN, TxtFecha.Text.ToDate, Opcion:=2) Then
Retorno = False Retorno = False
End If End If
End If End If
@@ -9087,7 +9091,9 @@ Partial Class Compras_Compras
If Retorno Then If Retorno Then
'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF 'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
If Row("TipoAF").ToString.ToEntero = 2 Then If Row("TipoAF").ToString.ToEntero = 2 Then
If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, Row("CveCompraDetalle").ToString.ToEntero, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then Dim Valor As Decimal = Row("Total").ToString.ToDecimal
Dim ValorMN As Decimal = (Valor * TxtTC.Text.ToDecimal).RoundSQL
If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, Row("CveCompraDetalle").ToString.ToEntero, Row("TipoAF").ToString.ToEntero, Valor, ValorMN, TxtFecha.Text.Trim.ToDate) Then
Retorno = False Retorno = False
Exit For Exit For
End If End If

26
Compras/PopUpVerFactura.aspx.vb
View File

@@ -5782,17 +5782,16 @@ Partial Class PopUpVerFactura
Dim EstadoCancelacion = drv("EstadoCancelacion").ToString() Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
Dim MotivoCancelacion As String = "" ' drv("MotivoCancelacion").ToString() Dim MotivoCancelacion As String = ""
Dim FolioSustitucion As String = "" ' drv("FolioFiscalPadre").ToString() Dim FolioSustitucion As String = ""
Dim DirectorioArchivo As String = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.mrt", ModExtensiones.DirectorioBaseEmpresas) Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"
Dim RFCEmisor = UsuarioActual.Empresa.RFC Dim RFCEmisor = UsuarioActual.Empresa.RFC
Dim Titulo As String = "Acuse de cancelación de CFDI" Dim Titulo As String = "Acuse de cancelación de CFDI"
Dim EstadoCFDI As String = "Cancelado" Dim EstadoCFDI As String = "Cancelado"
'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO 'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO
If String.IsNullOrEmpty(SelloCancelacion) Then If String.IsNullOrEmpty(SelloCancelacion) Then
Dim ObjCancelacion As New Timbrado Dim ObjCancelacion As New Timbrado
@@ -5807,7 +5806,7 @@ Partial Class PopUpVerFactura
If CveEstatusFactura = 20 Then If CveEstatusFactura = 20 Then
DirectorioArchivo = String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacionSolicitud.mrt", ModExtensiones.DirectorioBaseEmpresas) DirectorioArchivo = "Empresas/Grales/Formatos/AcuseCancelacionSolicitud.mrt"
Titulo = "Acuse de solicitud de cancelación de CFDI" Titulo = "Acuse de solicitud de cancelación de CFDI"
EstadoCFDI = "Vigente" EstadoCFDI = "Vigente"
@@ -5851,8 +5850,6 @@ Partial Class PopUpVerFactura
End If End If
End If End If
Dim Archivo As New System.IO.FileInfo(DirectorioArchivo)
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("Titulo", Titulo)) params.Add(New ReportParameter("Titulo", Titulo))
params.Add(New ReportParameter("FolioFiscal", FolioFiscal)) params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
@@ -5864,16 +5861,13 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("MsgError", "")) params.Add(New ReportParameter("MsgError", ""))
params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss"))) params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
'ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta) Dim DtAcuse = New DataTable("DtAcuse")
DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
Dim DtAcuse As DataTable = Nothing DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
If CveEstatusFactura = 20 Then If CveEstatusFactura = 20 Then
DtAcuse = New DataTable("DtAcuse")
DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
Dim RowCFDI = DtAcuse.NewRow() Dim RowCFDI = DtAcuse.NewRow()
@@ -5886,7 +5880,7 @@ Partial Class PopUpVerFactura
End If End If
ImprimirPDFStimulsoft(Archivo.FullName, DtAcuse, params, "AcuseCancelacion" & CveVenta) ImprimirPDFStimulsoft(DirectorioArchivo, DtAcuse, params, "AcuseCancelacion" & CveVenta)
End If End If

164
Compras/Proveedores.aspx.vb
View File

@@ -8,6 +8,7 @@ Imports System.Xml
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.IO Imports System.IO
Imports System.Globalization Imports System.Globalization
Imports System.Data.SqlClient
'Imports VBIDE 'Imports VBIDE
Partial Class Compras_Proveedores Partial Class Compras_Proveedores
@@ -1571,11 +1572,15 @@ Partial Class Compras_Proveedores
Dim ErrorContactos As Boolean = False Dim ErrorContactos As Boolean = False
Dim ErrorSucursales As Boolean = False Dim ErrorSucursales As Boolean = False
Dim ErrorCuentasContables As Boolean = False Dim ErrorCuentasContables As Boolean = False
Dim ErrorCuentasContablesSIG As Boolean = False
Dim codigo As String = "-1" Dim codigo As String = "-1"
Dim MsgCuentaContable As String = "" Dim MsgCuentaContable As String = ""
Dim IdCuentaContable As Integer = -1 Dim IdCuentaContable As Integer = -1
Dim IdCuentaAltaCompaq As Integer = -1
Dim CodigoCuentaAltaCompaq As String = ""
Dim NombreCuentaCuentaAltaCompaq As String = ""
Dim IdProveedor As Integer = -1 Dim IdProveedor As Integer = -1
@@ -1634,6 +1639,7 @@ Partial Class Compras_Proveedores
'End If 'End If
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
If CveProveedor = -1 Then If CveProveedor = -1 Then
@@ -1644,7 +1650,7 @@ Partial Class Compras_Proveedores
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL() ObjContaAC.IniciaTransacSQL()
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
If DdlCveTipoProveedor.SelectedValue = "2" Then 'cuando es acreedor If DdlCveTipoProveedor.SelectedValue = "2" Then 'cuando es acreedor
ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
End If End If
@@ -1654,6 +1660,7 @@ Partial Class Compras_Proveedores
IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero IdCuentaContable = UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero
Else Else
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2) IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(ClaveFuncionalidad, TxtRazonSocial.Text.Trim, "D", 2)
IdCuentaAltaCompaq = IdCuentaContable
End If End If
@@ -1667,46 +1674,12 @@ Partial Class Compras_Proveedores
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
Dim row As DataRow = dt.Rows(0) Dim row As DataRow = dt.Rows(0)
CtaCodigo = CStr(row("CtaCodigo")) CtaCodigo = CStr(row("CtaCodigo"))
CodigoCuentaAltaCompaq = CStr(row("Codigo"))
NombreCuentaCuentaAltaCompaq = TxtRazonSocial.Text.Trim
DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString) DdlCtaContProveedores.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : DdlCtaContProveedores.SelectedValueExist(IdCuentaContable.ToString)
End If End If
'If UsuarioActual.Empresa.Funcionalidad(522).ToString = "1" Then
' If UsuarioActual.Empresa.UsaContabilidad Then
' Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
' If Not errorContPaq Then
' If ObjContPaqi.GetProveedor(TxtRFC.Text.Trim) Then
' If ObjContPaqi.DtResultados.Rows.Count > 0 Then
' IdProveedor = ObjContPaqi.DtResultados.Rows(0)("Id").ToString.ToEntero
' errorContPaq = False
' Else
' IdProveedor = ObjContPaqi.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtNombreComercial.Text.Trim, "", CodigoPersona)
' If IdProveedor > 0 Then
' errorContPaq = False
' Else
' errorContPaq = True
' End If
' End If
' Else
' errorContPaq = True
' End If
' End If
' If Not errorContPaq Then
' ObjContPaqi.Commit()
' ObjContPaqi.Dispose()
' Else
' ObjContPaqi.RollBack()
' ObjContPaqi.Dispose()
' Exit Sub
' End If
' End If
'Else
' IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "")
'End If
IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "") IdProveedor = ObjContaAC.AddProveedor(IdCuentaContable, TxtRFC.Text.Trim, TxtRazonSocial.Text.Trim, "")
@@ -1802,7 +1775,23 @@ Partial Class Compras_Proveedores
Next Next
End If End If
If ErrorBancos Or ErrorContactos Or ErrorSucursales Or ErrorCuentasContables Then ''se deben validar las 3 juntas???????? If IdCuentaAltaCompaq > 0 Then
Dim CveConceptoContable As Integer
If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
CveConceptoContable = 5
Else
CveConceptoContable = 305
End If
If Not AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, IdCuentaAltaCompaq, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=ClaveFuncionalidad, CveProveedorCuenta:=NuevoCveProveedor) Then
ErrorCuentasContablesSIG = True
End If
End If
If ErrorBancos Or ErrorContactos Or ErrorSucursales Or ErrorCuentasContables Or ErrorCuentasContablesSIG Then ''se deben validar las 3 juntas????????
ObjProveedores.RollBack() ObjProveedores.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
If ErrorBancos Then If ErrorBancos Then
@@ -1816,7 +1805,10 @@ Partial Class Compras_Proveedores
End If End If
If ErrorCuentasContables Then If ErrorCuentasContables Then
Alert("Ocurrió un error al asignar las cuentas contables", TipoMensaje.MsgError) Alert("Ocurrió un error al asignar las cuentas contables", TipoMensaje.MsgError)
ElseIf ErrorCuentasContablesSIG Then
Alert("Ocurrió un error al asignar las cuentas contables SIG", TipoMensaje.MsgError)
End If End If
End If End If
Else Else
ObjProveedores.Commit() ObjProveedores.Commit()
@@ -2073,6 +2065,78 @@ Partial Class Compras_Proveedores
CargaEventoBitacora() CargaEventoBitacora()
End Sub End Sub
Private Function AltaCuentaContabilidadSIG(CodigoCuentaAltaCompaq As String, NombreCuentaCuentaAltaCompaq As String, IdCuentaAltaCompaq As Integer, CveConceptoContable As Integer, Optional Transaccion As SqlTransaction = Nothing, Optional IdCompaqPadre As Integer = -1, Optional CveProveedorCuenta As Integer = -1) As Boolean
If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then
Return True
End If
If Not IdCompaqPadre > 0 Then
Alert("Erroa al agregar la cuenta SIG, IdCompaq sin definir.", TipoMensaje.MsgError)
Return False
End If
Dim Respuesta As Boolean = False
Dim DisposeClases As Boolean = False
Dim Tipo As String = "B"
If CveConceptoContable.Contiene(5, 305) Then
Tipo = "D"
ElseIf CveConceptoContable.Contiene(10) Then
Tipo = "A"
End If
Dim ObjContabilidad As ClsContabilidad
If Transaccion Is Nothing Then
ObjContabilidad = New ClsContabilidad
DisposeClases = True
Else
ObjContabilidad = New ClsContabilidad(Transaccion)
DisposeClases = False
End If
If UsuarioActual.CveEmpresa.Contiene(7, 11, 145, 122) Then
If ObjContabilidad.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
Dim CvePadre As Integer = ObjContabilidad.DtResultados.FiltroPrimeroValor("CveCuenta", $"IdCompaq={IdCompaqPadre}").ToEntero
If CvePadre > 0 Then
Dim CvecuentaNueva As Integer = ObjContabilidad.AddCuenta(CvePadre, CodigoCuentaAltaCompaq, NombreCuentaCuentaAltaCompaq, Tipo, 2, 1, CveProveedor:=CveProveedor, IdCompaq:=IdCuentaAltaCompaq)
If CvecuentaNueva > 0 Then
If ObjContabilidad.AddCuentasAsignaciones(CveConceptoContable, UsuarioActual.CveEmpresa, CvecuentaNueva, CveProveedor:=CveProveedorCuenta, PorcentajeIVA:=0) Then
Respuesta = True
End If
End If
End If
End If
Else
Respuesta = True
End If
If DisposeClases Then
ObjContabilidad.Dispose()
If Not Respuesta Then
Alert("Se presento un error al agregar y asignar la cuenta (Conta SIG).", TipoMensaje.MsgAdvertencia)
End If
End If
Return Respuesta
End Function
#End Region #End Region
#Region "U S U A R I O S" #Region "U S U A R I O S"
@@ -4113,7 +4177,7 @@ Partial Class Compras_Proveedores
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
'' 17/03/2017 FUNCIONALIDADES 249,250,251 '' 17/03/2017 FUNCIONALIDADES 249,250,251
'' Proveedores ''
Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero Dim ClaveFuncionalidad As Integer = UsuarioActual.Empresa.Funcionalidad(201).ToEntero
If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero If DdlCveTipoProveedor.SelectedValue = "2" Then ClaveFuncionalidad = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then If DdlCtaContProveedores.SelectedValue.ToEntero <= 0 And ClaveFuncionalidad > 0 Then
@@ -4282,15 +4346,19 @@ Partial Class Compras_Proveedores
End Sub End Sub
Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList) Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList)
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then
Dim IdCuentaContable As Integer = -1 Dim IdCuentaContable As Integer = -1
Dim CtaCodigo As String = "" Dim CtaCodigo As String = ""
Dim TieneError = False Dim TieneError = False
Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1 Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1" Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
Dim CveConceptoContable As Integer = -1
Dim Codigo As String = ""
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjProveedores As New ClsCompProveedores() Dim ObjProveedores As New ClsCompProveedores()
ObjContaAC.IniciaTransacSQL() ObjContaAC.IniciaTransacSQL()
ObjProveedores.IniciaTransacSQL() ObjProveedores.IniciaTransacSQL()
@@ -4302,15 +4370,26 @@ Partial Class Compras_Proveedores
Select Case btn.CommandArgument.ToString Select Case btn.CommandArgument.ToString
Case "Proveedores" Case "Proveedores"
CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero) CuentaPadre = If(DdlCveTipoProveedor.SelectedValue = "2", UsuarioActual.Empresa.Funcionalidad(202).ToEntero, UsuarioActual.Empresa.Funcionalidad(201).ToEntero)
If DdlCveTipoProveedor.SelectedValue.ToEntero.Contiene(1, 3) Then
CveConceptoContable = 5
Else
CveConceptoContable = 305
End If
Case "Acreedores" Case "Acreedores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero CuentaPadre = UsuarioActual.Empresa.Funcionalidad(202).ToEntero
CveConceptoContable = 305
Case "DocsXPagar" Case "DocsXPagar"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero CuentaPadre = UsuarioActual.Empresa.Funcionalidad(203).ToEntero
CveConceptoContable = 50
Case "Anticipos" Case "Anticipos"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero CuentaPadre = UsuarioActual.Empresa.Funcionalidad(204).ToEntero
TipoCuenta = "A" TipoCuenta = "A"
CveConceptoContable = 10
Case "Deudores" Case "Deudores"
CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero CuentaPadre = UsuarioActual.Empresa.Funcionalidad(205).ToEntero
CveConceptoContable = 10
End Select End Select
@@ -4327,6 +4406,7 @@ Partial Class Compras_Proveedores
Dim row As DataRow = dt.Rows(0) Dim row As DataRow = dt.Rows(0)
CtaCodigo = CStr(row("CtaCodigo")) CtaCodigo = CStr(row("CtaCodigo"))
Codigo = CStr(row("Codigo"))
Select Case btn.CommandArgument.ToString Select Case btn.CommandArgument.ToString
Case "Proveedores" Case "Proveedores"
@@ -4359,6 +4439,12 @@ Partial Class Compras_Proveedores
TieneError = True TieneError = True
End If End If
If Not AltaCuentaContabilidadSIG(Codigo, NombreCuenta, IdCuentaContable, CveConceptoContable, ObjProveedores.IniciaTransacSQL, IdCompaqPadre:=CuentaPadre, CveProveedorCuenta:=CveProveedor) Then
TieneError = True
End If
If Not TieneError Then If Not TieneError Then
Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion)) Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString) ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)

46
Compras/eFacturas.aspx
View File

@@ -203,7 +203,45 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total"
<div class="row" runat="server" id="DVRegistroFacturas">
<div class="col-md-12">
<asp:UpdatePanel ID="UPPClasificacion" runat="server" UpdateMode="Conditional" RenderMode="Inline">
<ContentTemplate>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:HiddenField runat="server" ID="HdnTipoPS" Value="-1" />
<asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
</asp:DropDownList>
<label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClass="form-control input-sm DdlPS" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
<label for="<%= DdlPS.ClientID.ToString()%>">
Productos / Servicio:<label>
</div>
</div>
</div>
<br />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total"
EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None"> EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
<Columns> <Columns>
@@ -316,6 +354,12 @@
</Columns> </Columns>
<HeaderStyle CssClass="Titulos" /> <HeaderStyle CssClass="Titulos" />
</asp:GridView> </asp:GridView>
</div>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>

2
Contabilidad/CatCuentas.aspx.vb
View File

@@ -28,7 +28,7 @@ Partial Class Contabilidad_CatCuentas
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then If Not UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso EsProduccion Then
Response.Redirect("/Contabilidad2/CatCuentas.aspx") Response.Redirect("/Contabilidad2/CatCuentas.aspx")
Exit Sub Exit Sub
End If End If

3
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -570,9 +570,8 @@ Partial Class ContabilidadC_RegPrePolizaS
If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta")) If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 343, 344, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra")) If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 341, 342, 343, 344, 304, 272, 259) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
If CveConceptoContable.Contiene(30, 204, 66, 92, 202) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
If e.Row.DBCampo("Modificado") Then If e.Row.DBCampo("Modificado") Then
e.Row.FCCheckBox("chkModificado").Checked = True e.Row.FCCheckBox("chkModificado").Checked = True
End If End If

57
Contabilidad2/CatCuentas.aspx.vb
View File

@@ -261,7 +261,7 @@ Partial Class Contabilidad2_CatCuentas
Tnombre.Text = dr("Nombre").ToString() Tnombre.Text = dr("Nombre").ToString()
DTcuenta.SelectedValue = dr("Tipo").ToString() DTcuenta.SelectedValue = dr("Tipo").ToString()
DcuentaMayor.SelectedValue = dr("CtaMayor").ToString DcuentaMayor.SelectedValue = dr("CtaMayor").ToString
DdlMoneda.SelectedValue = dr("CveMoneda").ToString DdlMoneda.SelectedValue = If(dr("CveMoneda").ToString = "", "1", dr("CveMoneda").ToString)
Using objconta As New ClsContabilidad Using objconta As New ClsContabilidad
objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa) objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa)
If objconta.DtResultados.Rows.Count > 0 Then If objconta.DtResultados.Rows.Count > 0 Then
@@ -362,36 +362,36 @@ Partial Class Contabilidad2_CatCuentas
CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen, Codigo:=TxtCuenta.Text.Replace("-", ""), CvePadre:=DdlCuentaContable.SelectedValue.ToEntero) Then CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen, Codigo:=TxtCuenta.Text.Replace("-", ""), CvePadre:=DdlCuentaContable.SelectedValue.ToEntero) Then
If UsuarioActual.Empresa.TipoContabilidad = 2 Then 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa) ' Dim ObjContaEmpresa As New ClsContPAQi(UsuarioActual.Empresa)
If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, ' If Not ObjContaEmpresa.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then ' DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
ObjContaEmpresa.Dispose() ' ObjContaEmpresa.Dispose()
ObjConta.Dispose() ' ObjConta.Dispose()
Exit Sub ' Exit Sub
End If ' End If
End If 'End If
Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
If UsuarioActual.Empresa.TipoContabilidad = 2 Then 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa) ' Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
If ObjConta2.GetCuentas(-1, "-1", -1) Then ' If ObjConta2.GetCuentas(-1, "-1", -1) Then
Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero ' Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
Dim IdAgrupador As Integer ' Dim IdAgrupador As Integer
If ObjConta2.GetAgrupadoresSAT() Then ' If ObjConta2.GetAgrupadoresSAT() Then
IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero ' IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
End If ' End If
If Id > 0 Then ' If Id > 0 Then
If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then ' If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
End If ' End If
End If ' End If
End If ' End If
End Using ' End Using
End If 'End If
Dim customerRow As Data.DataRow Dim customerRow As Data.DataRow
customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0) customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
@@ -408,7 +408,7 @@ Partial Class Contabilidad2_CatCuentas
LimpiarCampos() LimpiarCampos()
'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();") 'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();")
updatos.Update() updatos.Update()
GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
Alert("La cuenta se guardo correctamente") Alert("La cuenta se guardo correctamente")
End If End If
@@ -596,7 +596,7 @@ Partial Class Contabilidad2_CatCuentas
If Not TieneError Then If Not TieneError Then
ObjConta.Commit() ObjConta.Commit()
GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
CargaDatos() CargaDatos()
LimpiarCampos() LimpiarCampos()
updatos.Update() updatos.Update()
@@ -669,6 +669,7 @@ Partial Class Contabilidad2_CatCuentas
ObjConta2.Dispose() ObjConta2.Dispose()
End If End If
GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa) = Nothing
Else Else
Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError) Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError)

7
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

@@ -182,10 +182,9 @@ Partial Class AC2_RepAnexoCatalogo
Dim strGlobal As String = "" Dim strGlobal As String = ""
If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
'DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1") ' DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
End If End If
ObjTipoCuenta.Dispose() ObjTipoCuenta.Dispose()

11
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
View File

@@ -93,12 +93,7 @@
<asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator> <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpConsulta"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<label class="col-md-1" style="display: none;">Tipo de Cuentas:</label>
<div class="col-md-2" style="display: none;">
<asp:DropDownList ID="DdlTipoCuentas" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveCuenta" TabIndex="4" AutoPostBack="true" ClientIDMode="Static">
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -137,8 +132,8 @@
<div class="col-md-2"> <div class="col-md-2">
<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="95%" AutoPostBack="True">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div>
</div> </div>
</div> </div>
</ContentTemplate> </ContentTemplate>

74
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -44,22 +44,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
ViewState("FechaFin") = value ViewState("FechaFin") = value
End Set End Set
End Property End Property
'Private Property CveSubProyecto As String
' Get
' CveSubProyecto = ViewState("CveSubProyecto").ToString
' End Get
' Set(value As String)
' ViewState("CveSubProyecto") = value
' End Set
'End Property
Private Property IdCuenta As Integer
Get
IdCuenta = ViewState("IdCuenta").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("IdCuenta") = value
End Set
End Property
Private Property TotalPadre As Boolean Private Property TotalPadre As Boolean
Get Get
TotalPadre = CBool(ViewState("TotalPadre")) TotalPadre = CBool(ViewState("TotalPadre"))
@@ -113,17 +98,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
IdCuenta = Request("CveCuenta").ToEntero
'HdnCveCuenta.Value = IdCuenta.ToString
FechaFin = Request("FF").ToDate FechaFin = Request("FF").ToDate
txtFechaF.Text = FechaFin.ToShortDateString txtFechaF.Text = FechaFin.ToShortDateString
DdlCuentas.SelectedValueExist(IdCuenta) DdlCuentas.SelectedValueExist(Request("CveCuenta").ToEntero)
If DdlCuentas.SelectedValue.ToEntero <> -1 Then
'RegistraScript("Enable();")
DdlTipoCuentas.SelectedValueExist(-2)
End If
If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
FechaInicio = Request("FI").ToDate FechaInicio = Request("FI").ToDate
@@ -176,12 +155,11 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then If DdlCuentas.SelectedValue.ToEntero = -1 Then
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError) Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
Else Else
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate) FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate) FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
CargaDatos() CargaDatos()
End If End If
@@ -203,25 +181,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
Return Str.ToString Return Str.ToString
End Function End Function
Private Sub CargaTipoCuentas() Private Sub CargaTipoCuentas()
' Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa)
Dim strGlobal As String = ""
If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then Dim ObjTipoCuenta As New ClsContabilidad
Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
DTCuentas = ObjTipoCuenta.DtResultados
DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
End If
DdlTipoCuentas.DataBind()
'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1"))
DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
DdlTipoCuentas.SelectedIndex = 1
DdlCuentas.Enabled = True DdlCuentas.Enabled = True
If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
DdlCuentas.DataSource = ObjTipoCuenta.DtResultados DTCuentas = ObjTipoCuenta.DtResultados
DdlCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
End If End If
ObjTipoCuenta.Dispose() ObjTipoCuenta.Dispose()
DdlCuentas.DataBind() DdlCuentas.DataBind()
@@ -234,7 +201,6 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos") CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
@@ -243,14 +209,13 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia) Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
IdCuenta = DdlCuentas.SelectedValue.ToEntero
Cuenta = DdlCuentas.SelectedItem.ToString Cuenta = DdlCuentas.SelectedItem.ToString
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then If ObjConta.GetMovimientosAuxiliaresCatalogo(DdlCuentas.SelectedValue.ToEntero, FechaInicio, FechaFin, -1, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, DdlOpcionCuentas.SelectedValue.ToEntero) Then
DtDatos = ObjConta.DtResultados DtDatos = ObjConta.DtResultados
DtTotales = DtDatos.Clone DtTotales = DtDatos.Clone
'InsertaTotales()
CargaGrid() CargaGrid()
Else Else
DtDatos = Nothing DtDatos = Nothing
@@ -414,17 +379,12 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
#End Region #End Region
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then If DdlCuentas.SelectedValue.ToEntero = -1 Then
Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError) Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
Else Else
FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate) FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate) FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
'If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin) Then
'DtDatos = ObjConta.DtResultados
DtDatos = DtDatos DtDatos = DtDatos
ImprimirReporte() ImprimirReporte()
End If End If
@@ -488,21 +448,9 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato) ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato)
End Sub End Sub
Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged
If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then
DdlCuentas.Enabled = True
Else
DdlCuentas.Enabled = False
DdlCuentas.SelectedValueExist(-1)
End If
End Sub
Public Overrides Sub VerifyRenderingInServerForm(control As Control) Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub End Sub
End Class End Class

33
Empresas/119/Formatos/Nomina.rdlc
View File

@@ -2858,7 +2858,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Versión del comprobante: 4.0</Value> <Value>Versión del comprobante: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -2929,7 +2937,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Usos del CFDI "CN01" Nómina</Value> <Value>Usos del CFDI: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!UsoCFDI.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -4704,7 +4720,6 @@ Lugar de expedición: 83220 Hermosillo</Value>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>2</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
@@ -5629,6 +5644,18 @@ Lugar de expedición: 83220 Hermosillo</Value>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="UsoCFDI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="logo"> <EmbeddedImage Name="logo">

32
Empresas/153/Formatos/Nomina.rdlc
View File

@@ -2852,7 +2852,15 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Versión del comprobante: 3.3</Value> <Value>Versión del comprobante: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -2923,7 +2931,15 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Usos del CFDI "P01"(Por definir)</Value> <Value>Usos del CFDI: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!UsoCFDI.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -5874,6 +5890,18 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="UsoCFDI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="logo"> <EmbeddedImage Name="logo">

33
Empresas/154/Formatos/Nomina.rdlc
View File

@@ -2795,6 +2795,7 @@
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>2</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
@@ -2852,7 +2853,15 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Versión del comprobante: 3.3</Value> <Value>Versión del comprobante: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -2923,7 +2932,15 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Usos del CFDI "P01"(Por definir)</Value> <Value>Usos del CFDI: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!UsoCFDI.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -5874,6 +5891,18 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="UsoCFDI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="logo"> <EmbeddedImage Name="logo">

295
Empresas/158/Formatos/Nomina.rdlc
View File

@@ -656,7 +656,7 @@
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>7.70215cm</Top> <Top>7.96673cm</Top>
<Left>0.15979cm</Left> <Left>0.15979cm</Left>
<Height>2.05138cm</Height> <Height>2.05138cm</Height>
<Width>10.0953cm</Width> <Width>10.0953cm</Width>
@@ -1234,7 +1234,7 @@
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>7.70435cm</Top> <Top>7.96893cm</Top>
<Left>10.2551cm</Left> <Left>10.2551cm</Left>
<Height>2.05606cm</Height> <Height>2.05606cm</Height>
<Width>9.79494cm</Width> <Width>9.79494cm</Width>
@@ -1333,7 +1333,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.12976cm</Top> <Top>0.12976cm</Top>
<Left>4.80311cm</Left> <Left>4.80311cm</Left>
<Height>2.24428cm</Height> <Height>2.1513cm</Height>
<Width>8.10317cm</Width> <Width>8.10317cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
@@ -1964,9 +1964,9 @@ Lugar de expedición: 83220 Hermosillo</Value>
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>9.86624cm</Top> <Top>10.13082cm</Top>
<Left>0.15979cm</Left> <Left>0.15979cm</Left>
<Height>1.71208cm</Height> <Height>1.71209cm</Height>
<Width>19.89025cm</Width> <Width>19.89025cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Style> <Style>
@@ -1979,7 +1979,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
<Source>Embedded</Source> <Source>Embedded</Source>
<Value>Logo</Value> <Value>Logo</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>0.12976cm</Top> <Top>0.03816cm</Top>
<Left>0.29576cm</Left> <Left>0.29576cm</Left>
<Height>2.1513cm</Height> <Height>2.1513cm</Height>
<Width>3.93798cm</Width> <Width>3.93798cm</Width>
@@ -2525,7 +2525,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>17.07534cm</Top> <Top>17.23409cm</Top>
<Left>0.15979cm</Left> <Left>0.15979cm</Left>
<Height>1.12062cm</Height> <Height>1.12062cm</Height>
<Width>19.89024cm</Width> <Width>19.89024cm</Width>
@@ -2541,7 +2541,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
<Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value> <Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value>
<MIMEType>image/png</MIMEType> <MIMEType>image/png</MIMEType>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>4.64173in</Top> <Top>4.70423in</Top>
<Left>0.068in</Left> <Left>0.068in</Left>
<Height>1.30194in</Height> <Height>1.30194in</Height>
<Width>1.48366in</Width> <Width>1.48366in</Width>
@@ -2858,7 +2858,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Versión del comprobante: 3.3</Value> <Value>Versión del comprobante: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!CFDIVersion.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -2929,7 +2937,15 @@ Lugar de expedición: 83220 Hermosillo</Value>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Usos del CFDI "P01"(Por definir)</Value> <Value>Usos del CFDI: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!UsoCFDI.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
@@ -2979,7 +2995,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>dsImagenes</DataSetName> <DataSetName>dsImagenes</DataSetName>
<Top>11.78999cm</Top> <Top>11.94874cm</Top>
<Left>4.13053cm</Left> <Left>4.13053cm</Left>
<Height>5.21479cm</Height> <Height>5.21479cm</Height>
<Width>15.94535cm</Width> <Width>15.94535cm</Width>
@@ -3743,6 +3759,236 @@ Lugar de expedición: 83220 Hermosillo</Value>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow>
<Height>0.41479cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox5">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Centro de costos</Value>
<Style>
<FontFamily>arial</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!SubProyecto.Value</Value>
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox7</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<ColSpan>2</ColSpan>
</CellContents>
</TablixCell>
<TablixCell />
<TablixCell>
<CellContents>
<Textbox Name="Textbox16">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>arial</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox16</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox19">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox19</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox21">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox21</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox22">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>arial</FontFamily>
<FontSize>7pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox22</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox23">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox23</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
<TablixRow> <TablixRow>
<Height>0.49417cm</Height> <Height>0.49417cm</Height>
<TablixCells> <TablixCells>
@@ -5279,13 +5525,14 @@ Lugar de expedición: 83220 Hermosillo</Value>
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember />
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>2.51578cm</Top> <Top>2.33057cm</Top>
<Left>0.15979cm</Left> <Left>0.15979cm</Left>
<Height>5.0304cm</Height> <Height>5.44519cm</Height>
<Width>19.84967cm</Width> <Width>19.84968cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -5294,7 +5541,7 @@ Lugar de expedición: 83220 Hermosillo</Value>
</Style> </Style>
</Tablix> </Tablix>
</ReportItems> </ReportItems>
<Height>18.41425cm</Height> <Height>18.46717cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>20.51495cm</Width> <Width>20.51495cm</Width>
@@ -5628,6 +5875,24 @@ Lugar de expedición: 83220 Hermosillo</Value>
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="SubProyecto">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="UsoCFDI">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="logo"> <EmbeddedImage Name="logo">

22
Empresas/Grales/Formatos/ReciboDePagoGOPDF.rdlc
View File

@@ -3308,7 +3308,13 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=First(Fields!Nombre.Value, "Emisor")</Value> <Value>Visor CFDI </Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=First(Fields!Nombre.Value, "Receptor")</Value>
<Style> <Style>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
@@ -3478,9 +3484,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Serie/Folio</Value> <Value>Serie/Folio:</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
<Color>Brown</Color> <Color>Brown</Color>
</Style> </Style>
@@ -3492,7 +3498,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<rd:DefaultName>Textbox31</rd:DefaultName> <rd:DefaultName>Textbox31</rd:DefaultName>
<Left>0.00031cm</Left> <Left>0.00031cm</Left>
<Height>0.47652cm</Height> <Height>0.47652cm</Height>
<Width>1.72389cm</Width> <Width>1.90028cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3513,7 +3519,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<TextRun> <TextRun>
<Value>=First(Fields!Serie.Value, "Comprobante") + " - " + First(Fields!Folio.Value, "Comprobante")</Value> <Value>=First(Fields!Serie.Value, "Comprobante") + " - " + First(Fields!Folio.Value, "Comprobante")</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>9pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -3521,9 +3527,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName> <rd:DefaultName>Textbox32</rd:DefaultName>
<Left>1.75948cm</Left> <Left>1.90059cm</Left>
<Height>0.47652cm</Height> <Height>0.47652cm</Height>
<Width>3.00812cm</Width> <Width>2.86701cm</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3908,7 +3914,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>4.21537cm</Top> <Top>4.21537cm</Top>
<Left>0.00007cm</Left> <Left>0.00007cm</Left>
<Height>2.41961cm</Height> <Height>2.41962cm</Height>
<Width>19.59023cm</Width> <Width>19.59023cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Style> <Style>

2952
Empresas/Grales/Formatos/SobreRecibo.rdlc
View File

File diff suppressed because it is too large Load Diff

624
Finanzas/RepEstadoFlujoEfectivo.aspx
View File

@@ -41,8 +41,8 @@
<div class="col-md-12"> <div class="col-md-12">
<label class="col-md-1" runat="server" id="LblVista">Vista: </label> <label class="col-md-1" runat="server" id="LblVista" visible="false">Vista: </label>
<div class="col-md-1 " runat="server" > <div class="col-md-1 " runat="server" visible="false" >
<asp:DropDownList ID="DdlVista" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlVista_SelectedIndexChanged"> <asp:DropDownList ID="DdlVista" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100%" AutoPostBack="true" OnSelectedIndexChanged="DdlVista_SelectedIndexChanged">
<asp:ListItem Value="1" Selected="True">Ejercicio</asp:ListItem> <asp:ListItem Value="1" Selected="True">Ejercicio</asp:ListItem>
<asp:ListItem Value="2">Mensual</asp:ListItem> <asp:ListItem Value="2">Mensual</asp:ListItem>
@@ -100,477 +100,155 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Always"> <div class="row">
<ContentTemplate> <div class="col-md-12">
<asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
<ajax:TabContainer ID="Tab" runat="server" ActiveTabIndex="0" Width="100%" > <ContentTemplate>
<ajax:TabPanel ID="TabBalanceGeneral" runat="server" HeaderText="Balance General" > <asp:GridView ID="GVDatos" runat="server" AutoGenerateColumns="false" DataKeyNames="Nombre,Tipo,EsPorcentaje,Formula" OnRowDataBound="GVDatos_RowDataBound" Width="60%"
<ContentTemplate> EmptyDataText="No se encontraron registros"
<asp:UpdatePanel runat="server" ID="UpBalanceGeneral" UpdateMode="Conditional"> CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true"
<ContentTemplate> Style="text-align: center;" GridLines="None">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
<HeaderTemplate></HeaderTemplate>
<asp:GridView ID="GvBalanceGeneral" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GvBalanceGeneral_RowDataBound" Width="60%" <ItemTemplate>
EmptyDataText="No se encontraron registros" <asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" </ItemTemplate>
Style="text-align: center;" GridLines="None"> </asp:TemplateField>
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="40px"> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<HeaderTemplate>Codigo</HeaderTemplate> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<ItemTemplate> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
</ItemTemplate> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
</asp:TemplateField> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px"> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<HeaderTemplate>Cuenta</HeaderTemplate> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<ItemTemplate> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
</ItemTemplate> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
</asp:TemplateField> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
</Columns>
<RowStyle CssClass="Texto" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <AlternatingRowStyle CssClass="TextoAlterno" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> <HeaderStyle CssClass="Titulos" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> </asp:GridView>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> </ContentTemplate>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> </asp:UpdatePanel>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> </div>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" /> </div>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabEstadoResultados" runat="server" HeaderText="Estado Resultados">
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpEstadoResultados" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVEstadoRsultados" runat="server" AutoGenerateColumns="false" DataKeyNames="Codigo,Tipo" OnRowDataBound="GVEstadoRsultados_RowDataBound" Width="60%"
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" ControlStyle-Width="40px">
<HeaderTemplate>Codigo</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
<HeaderTemplate>Cuenta</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
<ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Ratios" >
<ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GVRatios" runat="server" AutoGenerateColumns="false" DataKeyNames="Ratio,Tipo,EsPorcentaje,Formula" OnRowDataBound="GVRatios_RowDataBound" Width="60%"
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>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblCodigo" runat="server" Text='<%# Eval("Codigo") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ControlStyle-Width="300px">
<HeaderTemplate>Ratio</HeaderTemplate>
<ItemTemplate>
<asp:Label CssClass="truncate" ID="LblRatio" runat="server" Text='<%# Eval("Ratio") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
<asp:BoundField ItemStyle-HorizontalAlign="Right" ItemStyle-CssClass="ceros" ItemStyle-Width="75px" />
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</ContentTemplate>
</ajax:TabPanel>
</ajax:TabContainer>
</ContentTemplate>
</asp:UpdatePanel>

328
Finanzas/RepEstadoFlujoEfectivo.aspx.vb
View File

@@ -2,12 +2,9 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms Imports System.Windows.Forms
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms
Partial Class Finanzas_RepEstadoFlujoEfectivo Partial Class Finanzas_RepEstadoFlujoEfectivo
Inherits ClsPaginas Inherits ClsPaginas
@@ -16,17 +13,17 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
Property DTRatios As DataTable Property DTDatos As DataTable
Get Get
If ViewState("DTRatios") Is Nothing Then If ViewState("DTDatos") Is Nothing Then
ViewState("DTRatios") = New DataTable ViewState("DTDatos") = New DataTable
End If End If
Return DirectCast(ViewState("DTRatios"), DataTable) Return DirectCast(ViewState("DTDatos"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
ViewState("DTRatios") = value ViewState("DTDatos") = value
End Set End Set
End Property End Property
@@ -50,23 +47,15 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
TAB.ActiveTabIndex = 0
CargaDTEjercicios() CargaDTEjercicios()
DdlVista_SelectedIndexChanged(Nothing, Nothing) DdlVista_SelectedIndexChanged(Nothing, Nothing)
CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto) CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual) DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual)
ValidaEjercicios() ValidaEjercicios()
End If End If
End Sub End Sub
Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs)
ValidaEjercicios() ValidaEjercicios()
End Sub End Sub
@@ -103,233 +92,27 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
LnkExportar.Visible = False
If TAB.ActiveTabIndex = 0 Then
CargaDatosBalanceGeneral()
End If
If TAB.ActiveTabIndex = 1 Then CargaDatos()
CargaDatosEstadoResultados()
End If
If TAB.ActiveTabIndex = 2 Then
CargaDatosRatios()
End If
End Sub End Sub
#Region "ESTADO BALANCE GENERAL"
Private Sub CargaDatosBalanceGeneral()
LnkExportar.Visible = False
GvBalanceGeneralOcultarColumnas(GvBalanceGeneral, 1)
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
Dim objFinanzas As New ClsFinanzas
Dim dtTemp As New DataTable
Dim FechasConsultar As String = GetFechasConsultar()
' Alert(FechasConsultar)
If objFinanzas.GetRazonesFinancierasBalanceGeneralRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
dtTemp = objFinanzas.DtResultados
GvBalanceGeneralMostrarColumnas(dtTemp, GvBalanceGeneral)
GvBalanceGeneral.DataSource = dtTemp
If dtTemp.Rows.Count > 0 Then
' LnkExportar.Visible = True
End If
Else
GvBalanceGeneral.DataSource = Nothing
End If
objFinanzas.Dispose()
GvBalanceGeneral.DataBind()
UpBalanceGeneral.Update()
End Sub
Private Sub GvBalanceGeneralOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
For index = 2 To Gv.Columns.Count - 1
CType(Gv.Columns(index), BoundField).DataField = Nothing
Gv.Columns(index).Visible = False
Next
UpBalanceGeneral.Update()
End Sub
Private Sub GvBalanceGeneralMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
Dim index = 1
For index = 1 To dt.Columns.Count - 5
CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
Gv.Columns(index + 4).Visible = True
CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
Next
End Sub
Protected Sub GvBalanceGeneral_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("Tipo").ToEntero = 1 Then
e.Row.Font.Bold = True
e.Row.Cells(0).Text = ""
End If
If e.Row.DataKey("Tipo").ToEntero = 3 Then
e.Row.FCLabel("LblNombre").Text = $"&emsp;{e.Row.FCLabel("LblNombre").Text}"
e.Row.Attributes.Add("style", "border-top: 1px solid #000;")
e.Row.Cells(0).Text = ""
End If
If e.Row.DataKey("Tipo").ToEntero = 4 Then
e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
e.Row.Cells(0).Text = ""
End If
End If
End Sub
#End Region
#Region "ESTADO RESULTADOS"
Private Sub CargaDatosEstadoResultados()
LnkExportar.Visible = False
GVEstadoRsultadosOcultarColumnas(GVEstadoRsultados, 1)
Dim CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
Dim objFinanzas As New ClsFinanzas
Dim dtTemp As New DataTable
Dim FechasConsultar As String = GetFechasConsultar()
If objFinanzas.GetRazonesFinancierasEstadoResultadosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
dtTemp = objFinanzas.DtResultados
GVEstadoRsultadosMostrarColumnas(dtTemp, GVEstadoRsultados)
GVEstadoRsultados.DataSource = dtTemp
If dtTemp.Rows.Count > 0 Then
' LnkExportar.Visible = True
End If
Else
GVEstadoRsultados.DataSource = Nothing
End If
objFinanzas.Dispose()
GVEstadoRsultados.DataBind()
UpEstadoResultados.Update()
End Sub
Private Sub GVEstadoRsultadosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
For index = 2 To Gv.Columns.Count - 1
CType(Gv.Columns(index), BoundField).DataField = Nothing
Gv.Columns(index).Visible = False
Next
UpEstadoResultados.Update()
End Sub
Private Sub GVEstadoRsultadosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
Dim index = 1
For index = 1 To dt.Columns.Count - 5
CType(Gv.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
Gv.Columns(index + 4).Visible = True
Dim tmpDate As Date
CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
'If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
' CType(Gv.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
'Else
' CType(Gv.Columns(index + 4), BoundField).HeaderText = dt.Columns(index + 4).ColumnName
'End If
Next
End Sub
Protected Sub GVEstadoRsultados_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DataKey("Tipo").ToEntero = 1 Then
e.Row.Font.Bold = True
e.Row.Cells(0).Text = ""
End If
If e.Row.DataKey("Tipo").ToEntero = 3 Then
e.Row.FCLabel("LblNombre").Text = $"&emsp;{e.Row.FCLabel("LblNombre").Text}"
e.Row.Cells(0).Text = ""
End If
If e.Row.DataKey("Tipo").ToEntero = 4 Then
e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
e.Row.Cells(0).Text = ""
End If
End If
End Sub
#End Region
#Region "RATIOS" #Region "RATIOS"
Private Sub CargaDatosRatios() Private Sub CargaDatos()
' LnkExportar.Visible = False
DTDatos = New DataTable
DTRatios = New DataTable
LnkExportar.Visible = False GVDatosOcultarColumnas(GVDatos, 1)
GVRatiosOcultarColumnas(GVRatios, 1)
@@ -342,34 +125,33 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
Dim objFinanzas As New ClsFinanzas Dim objFinanzas As New ClsFinanzas
If objFinanzas.GetRazonesFinancierasRatiosRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then If objFinanzas.GetEstadoFlujoEfectivoRep(-1, CveSubProyecto, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, 1, DdlPeriodo.SelectedValue.ToEntero, FechasConsultar, DdlVista.SelectedValue.ToEntero) Then
DTRatios = objFinanzas.DtResultados DTDatos = objFinanzas.DtResultados
GVRatiosMostrarColumnas(DTRatios, GVRatios) GVRatiosMostrarColumnas(DTDatos, GVDatos)
GVRatios.DataSource = DTRatios GVDatos.DataSource = DTDatos
If DTRatios.Rows.Count > 0 Then If DTDatos.Rows.Count > 0 Then
' LnkExportar.Visible = True ' LnkExportar.Visible = True
End If End If
Else Else
GVRatios.DataSource = Nothing GVDatos.DataSource = Nothing
End If End If
objFinanzas.Dispose() objFinanzas.Dispose()
GVRatios.DataBind() GVDatos.DataBind()
UpBalanceGeneral.Update()
End Sub End Sub
Private Sub GVRatiosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2) Private Sub GVDatosOcultarColumnas(ByRef Gv As GridView, Optional index As Integer = 2)
For index = 1 To Gv.Columns.Count - 1 For index = 1 To Gv.Columns.Count - 1
CType(Gv.Columns(index), BoundField).DataField = Nothing CType(Gv.Columns(index), BoundField).DataField = Nothing
Gv.Columns(index).Visible = False Gv.Columns(index).Visible = False
Next Next
UpEstadoResultados.Update() UpDatos.Update()
End Sub End Sub
Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView) Private Sub GVRatiosMostrarColumnas(dt As DataTable, ByRef Gv As GridView)
@@ -386,15 +168,11 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
End Sub End Sub
Protected Sub GVRatios_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
For x = 1 To DTRatios.Columns.Count For x = 1 To DTDatos.Columns.Count
If e.Row.DataKey("Ratio") = "INCREMENTO DE VENTAS" Then
Dim asddas = ""
End If
If e.Row.Cells(x).Text.ToDecimal < 0 Then If e.Row.Cells(x).Text.ToDecimal < 0 Then
e.Row.Cells(x).ForeColor = Drawing.Color.Red e.Row.Cells(x).ForeColor = Drawing.Color.Red
@@ -414,19 +192,30 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid") e.Row.Attributes.Add("style", "border-top: solid;border-bottom: solid")
End If End If
If e.Row.DataKey("Tipo").ToEntero <> 1 AndAlso DTRatios.Columns.Count > 0 Then 'If e.Row.DataKey("Tipo").ToEntero <> 1 AndAlso DTDatos.Columns.Count > 0 Then
If DTDatos.Columns.Count > 0 Then
Dim EsPorcentaje = If(e.Row.DataKey("EsPorcentaje").ToEntero = 1, True, False) Dim EsPorcentaje = If(e.Row.DataKey("EsPorcentaje").ToEntero = 1, True, False)
Dim LenNombre As Integer = e.Row.DataKey("Nombre").ToString.Trim.Length
If LenNombre > 0 Then
For x = 1 To DTDatos.Columns.Count - 1
If e.Row.Cells(x).Text.ToDecimal <> 0 Then
If EsPorcentaje Then
e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###,####,###.00")}%"
Else
e.Row.Cells(x).Text = $"{e.Row.Cells(x).Text.ToDecimal.ToString("###,###,###.00")}"
End If
End If
Next
End If
For x = 1 To DTRatios.Columns.Count - 2
If EsPorcentaje Then
e.Row.Cells(x).Text = $"{(e.Row.Cells(x).Text.ToDecimal * 100.0).ToString("###,####,###.00")}%"
Else
e.Row.Cells(x).Text = $"{e.Row.Cells(x).Text.ToDecimal.ToString("###,###,###.00")}"
End If
Next
End If End If
If e.Row.DataKey("Formula").Trim().Length > 0 Then If e.Row.DataKey("Formula").Trim().Length > 0 Then
'data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares" 'data-html="true" data-toggle="tooltip" data-placement="left" title="Agregar<br/>Familiares"
@@ -438,11 +227,6 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
End If End If
End Sub End Sub
@@ -466,29 +250,10 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
SbFiltros.Append($"Año Inicio: {DdlEjercicio.SelectedItem.Text} Año Fin: {DdlEjercicio2.SelectedItem.Text} ") SbFiltros.Append($"Año Inicio: {DdlEjercicio.SelectedItem.Text} Año Fin: {DdlEjercicio2.SelectedItem.Text} ")
SbFiltros.Append($"SubProyecto: {SubProyecto}") SbFiltros.Append($"SubProyecto: {SubProyecto}")
Dim Titulo As String = "" Dim Titulo As String = "ESTADO FLUJO DE EFECTIVO"
Dim NombreReporte As String = "" Dim NombreReporte As String = "ESTADO FLUJO DE EFECTIVO"
If TAB.ActiveTabIndex = 0 Then GVDatos.ExportToExcelGembox(NombreReporte, UsuarioActual, $"Reporte {Titulo}", "", DatosFiltros:=SbFiltros.ToString())
Titulo = "Balance General"
NombreReporte = "BalanceGenral"
End If
If TAB.ActiveTabIndex = 1 Then
Titulo = "Estado de Resultados"
NombreReporte = "Estado de Resultados"
End If
If TAB.ActiveTabIndex = 2 Then
Titulo = "Ratios"
NombreReporte = "Ratios"
End If
GVRatios.ExportToExcelGembox(NombreReporte, UsuarioActual, $"Reporte {Titulo}", "", DatosFiltros:=SbFiltros.ToString())
End Sub End Sub
@@ -634,6 +399,11 @@ Partial Class Finanzas_RepEstadoFlujoEfectivo
End Function End Function
'Public Overrides Sub VerifyRenderingInServerForm(control As Control)
'End Sub
End Class End Class

2
Finanzas/RepRazonesFinancieras2.aspx
View File

@@ -412,7 +412,7 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Ratios" > <ajax:TabPanel ID="TabRatios" runat="server" HeaderText="Razones F." >
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UpRatios" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>

6
Inventarios/EntregaAlmacen.aspx
View File

@@ -638,12 +638,12 @@
<td width="80px">Serie:</td> <td width="80px">Serie:</td>
<td> <td>
<asp:TextBox runat="server" ID="TxtSerie" ClientIDMode="Static" Width="200px" /> <asp:TextBox runat="server" ID="TxtSerie" ClientIDMode="Static" Width="200px" />
<asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator> <%-- <asp:RequiredFieldValidator ID="RFVSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregaSerie"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCESerie" runat="server" HighlightCssClass="vco" TargetControlID="RFVSerie" Width="300px"></ajax:ValidatorCalloutExtender>
<asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ClientValidationFunction="TamanioSerie" <asp:CustomValidator id="ReVTxtSerie" runat="server" ControlToValidate="TxtSerie" Display="None" ClientValidationFunction="TamanioSerie"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" /> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> debe tener un minimo de 6 caracteres." ValidationGroup="GrpAgregaSerie" />
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="ReVTxtSerie" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</td> </td>
<td width="80px" runat="server" id="TdCaducidad1">Fecha Caducidad:</td> <td width="80px" runat="server" id="TdCaducidad1">Fecha Caducidad:</td>
<td runat="server" id="TdCaducidad2"> <td runat="server" id="TdCaducidad2">

77
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -1142,11 +1142,11 @@ Partial Class Inventarios_EntregaAlmacen
If CveMetodoInventario = 6 Then If CveMetodoInventario = 6 Then
RegistraScript("$('#DivLote').modal('show')") RegistraScript("$('#DivLote').modal({backdrop: 'static', keyboard: false});")
CargaLote() CargaLote()
UpLoteBatch.Update() UpLoteBatch.Update()
Else Else
RegistraScript("$('#DivSerie').modal('show')") RegistraScript("$('#DivSerie').modal({backdrop: 'static', keyboard: false});")
CargaSerie() CargaSerie()
UpSerie.Update() UpSerie.Update()
End If End If
@@ -1173,7 +1173,7 @@ Partial Class Inventarios_EntregaAlmacen
End Sub End Sub
Private Sub CargaSerie(Optional CerrarCompletado As Boolean = False, Optional CargaMasivo As Boolean = False) Private Sub CargaSerie(Optional CerrarCompletado As Boolean = False, Optional CargaMasivo As Boolean = False)
If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal('show')", "show") If Not CargaMasivo Then RegistraScript("$('#DivSerie').modal({backdrop: 'static', keyboard: false})", "show")
Dim AplicaCaducidad = False Dim AplicaCaducidad = False
Dim dttt As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie) Dim dttt As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSSerie)
@@ -1270,8 +1270,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim Series As String = Nothing Dim Series As String = Nothing
Series = TxtSerie.Text.Trim Series = TxtSerie.Text.Trim
Series = Series.Remove(0, 1) Series = Series.Replace("*", "")
Series = Series.Remove(Series.Length - 1, 1)
ArraySeries = Series.Trim.Split(","c) ArraySeries = Series.Trim.Split(","c)
For i As Integer = 0 To ArraySeries.Length - 1 For i As Integer = 0 To ArraySeries.Length - 1
@@ -1285,7 +1284,12 @@ Partial Class Inventarios_EntregaAlmacen
Private Sub AgregaSerie(Serie As String, Tipo As Integer, Optional CargaMasivo As Boolean = False) Private Sub AgregaSerie(Serie As String, Tipo As Integer, Optional CargaMasivo As Boolean = False)
If Serie.Trim = "" Then If Serie.Trim = "" Then
Alert("El campo Serie es obligatorio. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("El campo 'Serie' es obligatorio. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
If Serie.Trim.Length < 6 Then
Alert("El campo 'Serie' debe tener minimo 6 caracteres. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -1303,26 +1307,26 @@ Partial Class Inventarios_EntregaAlmacen
'Valida Existencia 'Valida Existencia
'If TipoMovimiento = 1 Then If TipoMovimiento = 1 Then
' Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
' Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1)) Dim Existencia = ObjInventarios.GetExistenciasPS(CvePSSerie, CveUMSerie, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie, CveVendedor:=CveVendedor, CveSubProyecto:=CveSubProyecto, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeApartados:=If(TipoEntrega = 2, 1, -1))
' If Existencia < 1 Then If Existencia < 1 Then
' Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", "")) Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
' RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error2") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error2")
' ObjInventarios.Dispose() ObjInventarios.Dispose()
' Exit Sub Exit Sub
' End If End If
' ObjInventarios.Dispose() ObjInventarios.Dispose()
'Else Else
' If DtExistencias IsNot Nothing Then If DtExistencias IsNot Nothing Then
' Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'") Dim Existencia = DtExistencias.SUM("Cantidad", $"CvePS = {CvePSSerie} AND CveUM = {CveUMSerie} AND Serie = '{Serie}'")
' If Existencia < 1 Then If Existencia < 1 Then
' Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", "")) Alert($"No hay existencia suficiente del producto <b>""{PSSerie}""</b> con la Serie definida <b>""{Serie}""</b>. Por favor rectifique y vuelva a intentar", TipoMensaje.MsgAdvertencia, If(Tipo = 2, "window.setTimeout(Focus,200);", ""))
' RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error3") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error3")
' Exit Sub Exit Sub
' End If End If
' End If End If
'End If End If
Dim Row = DtDatosDetalle.NewRow Dim Row = DtDatosDetalle.NewRow
@@ -1433,7 +1437,7 @@ Partial Class Inventarios_EntregaAlmacen
End Sub End Sub
Private Sub CargaLote(Optional CerrarCompletado As Boolean = False) Private Sub CargaLote(Optional CerrarCompletado As Boolean = False)
RegistraScript("$('#DivLote').modal('show')") RegistraScript("$('#DivLote').modal({backdrop: 'static', keyboard: false})")
GvLote.Columns(2).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) GvLote.Columns(2).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
GvLote.DataSource = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie), "Consec DESC") GvLote.DataSource = DtDatosDetalleLote.FiltraParametros(String.Format("ConsecId = {0}", CveConsecSerie), "Consec DESC")
GvLote.DataBind() GvLote.DataBind()
@@ -2413,7 +2417,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim CvePS = RowGarantia("CvePS").ToString().ToEntero() Dim CvePS = RowGarantia("CvePS").ToString().ToEntero()
Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero() Dim CveTamaño As Integer = RowGarantia("CveTamaño").ToString().ToEntero()
Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero() Dim CveUM As Integer = RowGarantia("CveUnidadMedida").ToString().ToEntero()
Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble() Dim PU As Decimal = 0 'valor cero, por tema contable 'RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
Dim Serie As String = RowGarantia("Comprobante").ToString Dim Serie As String = RowGarantia("Comprobante").ToString
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=IIf(RowGarantia("MismoCvePS").ToString = "1", RowGarantia("CveVentaDetalle"), -1).ToString.ToEntero) Then
@@ -2432,12 +2436,12 @@ Partial Class Inventarios_EntregaAlmacen
Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Gar", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrada Garantía", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim CvePrePolizaTraspaso As Integer = ObjConta.AddPrePolizas("EA/Gar", 53, 0, 0, 1, TxtFecha.Text.ToDate, "Entrada Garantía", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePrePolizaTraspaso > 0 Then If CvePrePolizaTraspaso > 0 Then
Dim TotalGarantiaValor As Decimal = 0 ' el valor en almacen es cero, por tema contable
If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantia, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantiaValor, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantia, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantiaValor, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
Else Else
@@ -3353,6 +3357,11 @@ Partial Class Inventarios_EntregaAlmacen
Dim CveSeccionAlmacen As Integer = -1 Dim CveSeccionAlmacen As Integer = -1
For Each Dr As DataRow In DtDatos.Rows For Each Dr As DataRow In DtDatos.Rows
If ErrorMovInv Then
Exit For
End If
FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha) FechaCaducidad = If(CBool(Dr("AplicaCaducidad")) AndAlso Dr("FechaCaducidad").ToString() <> "", Dr("FechaCaducidad").ToString().ToDate, MinFecha)
Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1") Lote = If(CBool(Dr("AplicaLote")), Dr("Lote").ToString(), "-1")
CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1) CveSeccionAlmacen = If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString().ToEntero(), -1)
@@ -3363,7 +3372,7 @@ Partial Class Inventarios_EntregaAlmacen
For Each Dr1 As DataRow In DtDetalle.Rows For Each Dr1 As DataRow In DtDetalle.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, 1, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), 0, Serie:=Dr1("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FechaCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=-1, CveContratoDetalle:=Dr("CveContratoDetalle").ToString().ToEntero()) Then
ErrorMovInv = True ErrorMovInv = True
TextoError = "Ocurrió un error al procesar los conceptos con serie. Por favor vuelva a intentar." TextoError = $"Ocurrió un error al procesar los conceptos con serie '{Dr1("Serie").ToString()}'. Por favor vuelva a intentar."
Exit For Exit For
End If End If
Next Next
@@ -3990,7 +3999,7 @@ Partial Class Inventarios_EntregaAlmacen
UpVerSugerencias.Update() UpVerSugerencias.Update()
RegistraScript("$('#ModalVerSugerencias').modal()") RegistraScript("$('#ModalVerSugerencias').modal({backdrop: 'static', keyboard: false});")
End Sub End Sub
Protected Sub BtnAplicarSugerencias_Click(sender As Object, e As EventArgs) Protected Sub BtnAplicarSugerencias_Click(sender As Object, e As EventArgs)
@@ -4171,7 +4180,7 @@ Partial Class Inventarios_EntregaAlmacen
HdnCveVenta.Value = CveVentaSurtir.ToString HdnCveVenta.Value = CveVentaSurtir.ToString
CargaModalCombosDirecciones(CveCliente, CveDireccionEnvio) CargaModalCombosDirecciones(CveCliente, CveDireccionEnvio)
RegistraScript("$('#DivEditarEntrega').modal('show');") RegistraScript("$('#DivEditarEntrega').modal({backdrop: 'static', keyboard: false});")
End Sub End Sub

73
OC/OC.aspx
View File

@@ -291,7 +291,7 @@
<div class="row"> <div class="row">
<label class="col-md-2">Proveedor:</label> <label class="col-md-2">Proveedor:</label>
<div class="col-md-9"> <div class="col-md-9">
<ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" /> <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" Onselectedindexchange="DdlProveedores_selectedindexchange" />
</div> </div>
<div class="col-md-1" style="padding-left: 0px;"> <div class="col-md-1" style="padding-left: 0px;">
<asp:LinkButton runat="server" Visible="false" ID="ImgCambiaProv" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar proveedor?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Proveedor" /> <asp:LinkButton runat="server" Visible="false" ID="ImgCambiaProv" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar proveedor?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Proveedor" />
@@ -768,6 +768,10 @@
<th scope="col">P.U.</th> <th scope="col">P.U.</th>
<th scope="col" id="THDescuento" visible="false" runat="server">Desc.</th> <th scope="col" id="THDescuento" visible="false" runat="server">Desc.</th>
<th scope="col">IVA</th> <th scope="col">IVA</th>
<th scope="col" runat="server" id="ThRetIVA" visible="false" style="width:70px" >Ret. IVA</th>
<th scope="col" runat="server" id="ThRetISR" visible="false" style="width:70px">Ret. ISR</th>
<th scope="col">Total</th> <th scope="col">Total</th>
<th scope="col">Comandos</th> <th scope="col">Comandos</th>
<th scope="col"> <th scope="col">
@@ -872,6 +876,14 @@
<td style="text-align: right; padding-right: 7px;"> <td style="text-align: right; padding-right: 7px;">
<%-- IVA--%> <%-- IVA--%>
</td> </td>
<td style="text-align: right; padding-right: 7px; width:70px" runat="server" id="TdRetIVA" visible="false" >
</td>
<td style="text-align: right; padding-right: 7px; width:70px" runat="server" id="TdRetISR" visible="false">
</td>
<td style="text-align: right; padding-right: 7px;"> <td style="text-align: right; padding-right: 7px;">
<asp:TextBox runat="server" ID="Total" ClientIDMode="Static" CssClass="alineanum" Width="55px" Height="24px" Enabled="false"></asp:TextBox> <asp:TextBox runat="server" ID="Total" ClientIDMode="Static" CssClass="alineanum" Width="55px" Height="24px" Enabled="false"></asp:TextBox>
</td> </td>
@@ -927,7 +939,9 @@
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="*** Actualizar listado de Productos o Servicios ***" Value="-2"></asp:ListItem> <asp:ListItem Text="*** Actualizar listado de Productos o Servicios ***" Value="-2"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPSEdit" runat="server" ControlToValidate="DdlPS" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto o Servicio''</b> es necesario, por favor seleccione uno." ValidationGroup="grpEditar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVPSEdit" runat="server" ControlToValidate="DdlPS" InitialValue="-1" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto o Servicio''</b> es necesario, por favor seleccione uno."
ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOPSEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVPSEdit" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOPSEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVPSEdit" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate> </EditItemTemplate>
</asp:TemplateField> </asp:TemplateField>
@@ -936,7 +950,8 @@
<EditItemTemplate> <EditItemTemplate>
<%--DataTextField--%> <%--DataTextField--%>
<asp:DropDownList ID="CboUnidadMedidaEdit" runat="server" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Style="width: 100%; max-width: 150px;"></asp:DropDownList> <asp:DropDownList ID="CboUnidadMedidaEdit" runat="server" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Style="width: 100%; max-width: 150px;"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVUnidadMedidaEdit" runat="server" InitialValue="-1" ControlToValidate="CboUnidadMedidaEdit" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de Medida''</b> es necesario, por favor ingréselo." ValidationGroup="grpEditar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVUnidadMedidaEdit" runat="server" InitialValue="-1" ControlToValidate="CboUnidadMedidaEdit" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de Medida''</b> es necesario, por favor ingréselo." ValidationGroup="grpEditar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEUnidadMedidaEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVUnidadMedidaEdit" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEUnidadMedidaEdit" runat="server" HighlightCssClass="vco" TargetControlID="RFVUnidadMedidaEdit" Width="300px"></ajax:ValidatorCalloutExtender>
</EditItemTemplate> </EditItemTemplate>
<ItemTemplate> <ItemTemplate>
@@ -973,7 +988,8 @@
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ValidationGroup="grpEditar" ID="RFVSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoEdit" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ValidationGroup="grpEditar" ID="RFVSubProyecto" runat="server" InitialValue="-1" ControlToValidate="DdlSubProyectoEdit" Display="None"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCORFVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCORFVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -1028,21 +1044,37 @@
<%-- 8 --%> <%-- 8 --%>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
<%--<asp:Literal ID="LtlIva" runat="server" Text='<%# If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", Eval("IVAPorcentaje", "{0:0.### %}")), ""), "") %>'></asp:Literal>--%>
<asp:Literal ID="LtlIva" runat="server" Text='<%# If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", If(Not IsDBNull(Eval("IVAPorcentaje")) AndAlso Decimal.Parse(Eval("IVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("IVAPorcentaje", "{0:0.### %}"))), ""), "") %>'></asp:Literal> <asp:Literal ID="LtlIva" runat="server" Text='<%# If(Not IsDBNull(Eval("IVA")), If(Eval("IVA").ToString <> "0", String.Concat(Eval("IVA", "{0:#,##0.00####}"), "<br>", If(Not IsDBNull(Eval("IVAPorcentaje")) AndAlso Decimal.Parse(Eval("IVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("IVAPorcentaje", "{0:0.### %}"))), ""), "") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<%-- 9 --%> <%-- 9 --%>
<asp:TemplateField> <asp:TemplateField HeaderStyle-Width="70px">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlTotal" runat="server" Text='<%# If(Not IsDBNull(Eval("Importe")) AndAlso CDbl(Eval("Importe").ToString) <> -1, Eval("Total", "{0:#,##0.00####}"), "") %>'></asp:Literal> <asp:Literal ID="LtlRetIVA" runat="server" Text='<%# If(Not IsDBNull(Eval("RetIVA")), If(Eval("RetIVA").ToString <> "0", String.Concat(Eval("RetIVA", "{0:#,##0.00}"), "<br>", If(Not IsDBNull(Eval("RetIVAPorcentaje")) AndAlso Decimal.Parse(Eval("RetIVAPorcentaje").ToString) > 0.10001, "16.00 %", Eval("RetIVAPorcentaje", "{0:0.## %}"))), ""), "") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<%-- 10 --%> <%-- 10 --%>
<asp:TemplateField HeaderStyle-Width="70px">
<ItemTemplate>
<asp:Literal ID="LtlRetISR" runat="server" Text='<%# If(Not IsDBNull(Eval("RetISR")), If(Eval("RetISR").ToString <> "0", String.Concat(Eval("RetISR", "{0:#,##0.00}"), "<br>", If(Not IsDBNull(Eval("RetISRPorcentaje")) AndAlso Decimal.Parse(Eval("RetISRPorcentaje").ToString) > 0.10001, "16.00 %", Eval("RetISRPorcentaje", "{0:0.## %}"))), ""), "") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%-- 11 --%>
<asp:TemplateField>
<ItemTemplate>
<asp:Literal ID="LtlTotal" runat="server" Text='<%# If(Not IsDBNull(Eval("Importe")) AndAlso CDbl(Eval("Importe").ToString) <> -1, Eval("Total", "{0:#,##0.00}"), "") %>'></asp:Literal>
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<%-- 12 --%>
<asp:TemplateField> <asp:TemplateField>
@@ -1064,27 +1096,27 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 11 --%> <%-- 13 --%>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlLiga" runat="server"></asp:Literal> <asp:Literal ID="LtlLiga" runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 12 --%> <%-- 14 --%>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCompra" runat="server" Visible='<%# Eval("CveCompra").ToString <> "" %>'></asp:Literal> <asp:Literal ID="LtlCompra" runat="server" Visible='<%# Eval("CveCompra").ToString <> "" %>'></asp:Literal>
<asp:LinkButton OnClick="LnkCompra_Click" ID="LnkCompra" Visible="false" runat="server"> Ver</asp:LinkButton> <asp:LinkButton OnClick="LnkCompra_Click" ID="LnkCompra" Visible="false" runat="server"> Ver</asp:LinkButton>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 13 --%> <%-- 15 --%>
<asp:TemplateField HeaderText="Clasificación" Visible="False" ShowHeader="true"> <asp:TemplateField HeaderText="Clasificación" Visible="False" ShowHeader="true">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList runat="server" ID="DdlAC5" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="CodigoClasificacion" DataValueField="CveClasificacion" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlAC5" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="CodigoClasificacion" DataValueField="CveClasificacion" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 14 --%> <%-- 16 --%>
<asp:TemplateField HeaderText="Programa Operativo" Visible="False" ShowHeader="true"> <asp:TemplateField HeaderText="Programa Operativo" Visible="False" ShowHeader="true">
<ItemTemplate> <ItemTemplate>
<asp:HiddenField runat="server" ID="HdnCvePresupuestoEgreso" Value="-1" /> <asp:HiddenField runat="server" ID="HdnCvePresupuestoEgreso" Value="-1" />
@@ -1096,19 +1128,19 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 15 --%> <%-- 17 --%>
<asp:TemplateField HeaderText="Unidad Administrativa" Visible="False" ShowHeader="true"> <asp:TemplateField HeaderText="Unidad Administrativa" Visible="False" ShowHeader="true">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList runat="server" ID="DdlAC2" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="UnidadAdministrativa" DataValueField="CveUnidadAdministrativa" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlAC2" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="UnidadAdministrativa" DataValueField="CveUnidadAdministrativa" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 16 --%> <%-- 18 --%>
<asp:TemplateField HeaderText="Fuente Financiamiento" Visible="False" ShowHeader="true"> <asp:TemplateField HeaderText="Fuente Financiamiento" Visible="False" ShowHeader="true">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList runat="server" ID="DdlAC3" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="FuenteFinanciamiento" DataValueField="CveFuenteFinanciamiento" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlAC3" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="FuenteFinanciamiento" DataValueField="CveFuenteFinanciamiento" Width="150px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%-- 17 --%> <%-- 19 --%>
<asp:TemplateField HeaderText="Tipo Gasto" Visible="False" ShowHeader="true"> <asp:TemplateField HeaderText="Tipo Gasto" Visible="False" ShowHeader="true">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList runat="server" ID="DdlAC4" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="100px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlAC4" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="100px" OnSelectedIndexChanged="CompruebaSaldoAC"></asp:DropDownList>
@@ -1211,7 +1243,9 @@
<tr runat="server" id="TrRetIVA" class="text-right" visible="false"> <tr runat="server" id="TrRetIVA" class="text-right" visible="false">
<td><b>Ret IVA:</b></td> <td><b>Ret IVA:</b></td>
<td> <td>
<asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" onkeyup="FormatoMoneda(this);SumaTotal();" Width="100px" onblur="AplicaRetIVAGeneral();" Font-Size="10.5" BackColor="#f7f7f7" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
<asp:TextBox ID="TxtRetIVA" ClientIDMode="Static" Width="100px" Enabled="false"
Font-Size="10.5" BackColor="#eeeeee" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
<asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnLimpiarRetIVA" OnClick="BtnLimpiarRetIVA_Click" runat="server" /> <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnLimpiarRetIVA" OnClick="BtnLimpiarRetIVA_Click" runat="server" />
<asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetIVA" OnClick="BtnAplicarRetIVA_Click" runat="server" /> <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetIVA" OnClick="BtnAplicarRetIVA_Click" runat="server" />
<asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetIVA" /> <asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetIVA" />
@@ -1220,7 +1254,8 @@
<tr runat="server" id="TrRetISR" class="text-right" visible="false"> <tr runat="server" id="TrRetISR" class="text-right" visible="false">
<td><b>Ret ISR:</b></td> <td><b>Ret ISR:</b></td>
<td> <td>
<asp:TextBox ID="TxtRetISR" ClientIDMode="Static" onkeyup="FormatoMoneda(this);SumaTotal();" Width="100px" onblur="AplicaRetISRGeneral();" Font-Size="10.5" BackColor="#f7f7f7" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" /> <asp:TextBox ID="TxtRetISR" ClientIDMode="Static" Width="100px" Enabled="false"
Font-Size="10.5" BackColor="#eeeeee" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" />
<asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetISR" OnClick="BtnAplicarRetISR_Click" runat="server" /> <asp:Button Text="" Style="display: none" ClientIDMode="Static" ID="BtnAplicarRetISR" OnClick="BtnAplicarRetISR_Click" runat="server" />
<asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetISR" /> <asp:HiddenField ClientIDMode="Static" Value="0" runat="server" ID="HdnRetISR" />
</td> </td>

109
OC/OC.aspx.vb
View File

@@ -635,7 +635,7 @@ Partial Class OC_OC
End If End If
CargaDatos(CveOrdenCompra) CargaDatos(CveOrdenCompra)
ConfiguraRetencionesProveedor()
Else Else
LIContratos.Visible = True LIContratos.Visible = True
EsNuevo = True EsNuevo = True
@@ -880,7 +880,7 @@ Partial Class OC_OC
If (UsuarioActual.TienePermisoProceso(203)) AndAlso Dr("TipoTermino").ToString.ToEntero = 3 AndAlso Dr("Tipo").ToString = "OC" Then If (UsuarioActual.TienePermisoProceso(203)) AndAlso Dr("TipoTermino").ToString.ToEntero = 3 AndAlso Dr("Tipo").ToString = "OC" Then
CargaClasificaciones() CargaClasificaciones()
If Not UsuarioActual.TienePermisoProceso(131) Then DesHabilitar() If Not UsuarioActual.TienePermisoProceso(131) Then DesHabilitar()
GvD.Columns(10).Visible = True GvD.Columns(12).Visible = True
LbAgregar.Enabled = True LbAgregar.Enabled = True
txtPrecioUnitario.Enabled = True txtPrecioUnitario.Enabled = True
DdlProyecto.Enabled = True DdlProyecto.Enabled = True
@@ -1642,7 +1642,7 @@ Partial Class OC_OC
SubProyectosNoAutorizados.Add(Row("SubProyecto").ToString) SubProyectosNoAutorizados.Add(Row("SubProyecto").ToString)
CboE.BackColor = Drawing.Color.Silver CboE.BackColor = Drawing.Color.Silver
CboE.Enabled = False CboE.Enabled = False
GvD.Columns(10).Visible = False 'No permitir la edicion GvD.Columns(12).Visible = False 'No permitir la edicion
'GvD.Columns(9).Visible = True 'GvD.Columns(9).Visible = True
ChkCotizacion.Enabled = False ChkCotizacion.Enabled = False
TxtDescrip.Enabled = False TxtDescrip.Enabled = False
@@ -1678,7 +1678,7 @@ Partial Class OC_OC
'EDICION 'EDICION
'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS 'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS
If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then
GvD.Columns(10).Visible = True 'No permitir la edicion GvD.Columns(12).Visible = True 'No permitir la edicion
If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
ChkCotizacion.Enabled = False ChkCotizacion.Enabled = False
Else Else
@@ -1767,7 +1767,7 @@ Partial Class OC_OC
If EditarOC Then If EditarOC Then
CboE.Enabled = True CboE.Enabled = True
GvD.Columns(10).Visible = True 'Permitir la edicion GvD.Columns(12).Visible = True 'Permitir la edicion
ChkCotizacion.Enabled = True ChkCotizacion.Enabled = True
TxtDescrip.Enabled = True TxtDescrip.Enabled = True
TxtJustificacion.Enabled = True TxtJustificacion.Enabled = True
@@ -2321,9 +2321,9 @@ Partial Class OC_OC
If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2) dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
dr("RetIVAPorcentaje") = RetIVA dr("RetIVAPorcentaje") = RetIVA
dr("RetIVA") = Math.Round(RetIVA * Total, 2) dr("RetIVA") = (RetIVA * Total).RoundSQL(6)
dr("RetISRPorcentaje") = RetISR dr("RetISRPorcentaje") = RetISR
dr("RetISR") = Math.Round(RetISR * Total, 2) dr("RetISR") = (RetISR * Total).RoundSQL(6)
dr("CveClasificacion") = CveClasificacion dr("CveClasificacion") = CveClasificacion
dr("UM") = UM dr("UM") = UM
dr("Clasificacion") = Clasificacion dr("Clasificacion") = Clasificacion
@@ -3785,11 +3785,11 @@ Partial Class OC_OC
'If DtEstatusUsuarios.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto"))).Rows.Count = 0 Then e.Row.FCImageButton("ImgEdit").Visible = False : e.Row.FCImageButton("ImgDelete").Visible = False 'If DtEstatusUsuarios.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto"))).Rows.Count = 0 Then e.Row.FCImageButton("ImgEdit").Visible = False : e.Row.FCImageButton("ImgDelete").Visible = False
If TipoOC = "OC" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraPadre")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraPadre")) Then If TipoOC = "OC" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraPadre")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraPadre")) Then
GvD.Columns(11).Visible = True GvD.Columns(13).Visible = True
lblTipoPadreHijo.Visible = True lblTipoPadreHijo.Visible = True
e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraPadre"), e.Row.DBCampo("FolioOrdenCompraPadre")) e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraPadre"), e.Row.DBCampo("FolioOrdenCompraPadre"))
ElseIf TipoOC = "REQ" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraHija")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraHija")) Then ElseIf TipoOC = "REQ" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraHija")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraHija")) Then
GvD.Columns(11).Visible = True GvD.Columns(13).Visible = True
lblTipoPadreHijo.Visible = True lblTipoPadreHijo.Visible = True
e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraHija"), e.Row.DBCampo("FolioOrdenCompraHija")) e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraHija"), e.Row.DBCampo("FolioOrdenCompraHija"))
End If End If
@@ -3803,7 +3803,7 @@ Partial Class OC_OC
If ObjOC.DtResultados.Rows.Count = 1 Then If ObjOC.DtResultados.Rows.Count = 1 Then
e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", ObjOC.DtResultados.FiltroPrimeroValor("CveCompra"), e.Row.DBCampo("FolioCompra")) e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", ObjOC.DtResultados.FiltroPrimeroValor("CveCompra"), e.Row.DBCampo("FolioCompra"))
LblCompra.Visible = True LblCompra.Visible = True
GvD.Columns(12).Visible = True GvD.Columns(14).Visible = True
ElseIf ObjOC.DtResultados.Rows.Count > 1 Then ElseIf ObjOC.DtResultados.Rows.Count > 1 Then
LblCompra.Visible = True LblCompra.Visible = True
e.Row.FCLiteral("LtlCompra").Visible = False e.Row.FCLiteral("LtlCompra").Visible = False
@@ -3812,7 +3812,7 @@ Partial Class OC_OC
'e.Row.FCLinkButton("LnkCompra").CausesValidation = False 'e.Row.FCLinkButton("LnkCompra").CausesValidation = False
'e.Row.FCLinkButton("LnkCompra").OnClientClick = "return true;" 'return true; 'e.Row.FCLinkButton("LnkCompra").OnClientClick = "return true;" 'return true;
e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle") e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle")
GvD.Columns(12).Visible = True GvD.Columns(14).Visible = True
Else Else
e.Row.FCLiteral("LtlCompra").Text = "" e.Row.FCLiteral("LtlCompra").Text = ""
LblCompra.Visible = True LblCompra.Visible = True
@@ -4183,9 +4183,9 @@ Partial Class OC_OC
If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
dr(0)("IVA") = Math.Round(dr(0)("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2) dr(0)("IVA") = Math.Round(dr(0)("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
dr(0)("RetIVA") = RetIVA * Total dr(0)("RetIVA") = (RetIVA * Total).RoundSQL(6)
dr(0)("RetIVAPorcentaje") = RetIVA dr(0)("RetIVAPorcentaje") = RetIVA
dr(0)("RetISR") = RetISR * Total dr(0)("RetISR") = (RetISR * Total).RoundSQL(6)
dr(0)("RetISRPorcentaje") = RetISR dr(0)("RetISRPorcentaje") = RetISR
@@ -4242,8 +4242,8 @@ Partial Class OC_OC
DdlProveedorSucursal.Enabled = False DdlProveedorSucursal.Enabled = False
DdlProveedorContacto.Enabled = False DdlProveedorContacto.Enabled = False
GvD.Columns(10).Visible = False GvD.Columns(12).Visible = False
GvD.Columns(11).Visible = True GvD.Columns(13).Visible = True
If Not (BtnCancelarPrevio.Enabled And (CveEstatus <> CveEstatusFinalError OrElse CveEstatus <> CveEstatusFinalOK OrElse UsuarioActual.TienePermisoProceso(148).ToEntero > 0)) Then If Not (BtnCancelarPrevio.Enabled And (CveEstatus <> CveEstatusFinalError OrElse CveEstatus <> CveEstatusFinalOK OrElse UsuarioActual.TienePermisoProceso(148).ToEntero > 0)) Then
BtnCancelarPrevio.Enabled = False BtnCancelarPrevio.Enabled = False
@@ -4407,11 +4407,11 @@ Partial Class OC_OC
'Seccion Grid 'Seccion Grid
If VerificaPresupuesto Then If VerificaPresupuesto Then
GvD.Width = 1750 GvD.Width = 1750
GvD.Columns(13).Visible = True
GvD.Columns(14).Visible = True
GvD.Columns(15).Visible = True GvD.Columns(15).Visible = True
GvD.Columns(16).Visible = True GvD.Columns(16).Visible = True
GvD.Columns(17).Visible = True GvD.Columns(17).Visible = True
GvD.Columns(18).Visible = True
GvD.Columns(19).Visible = True
'Panel General 'Panel General
UpPresupuestosAC.Visible = True UpPresupuestosAC.Visible = True
@@ -4438,11 +4438,11 @@ Partial Class OC_OC
Else Else
'GvD.Width = Width.ToEntero 'GvD.Width = Width.ToEntero
GvD.Columns(13).Visible = False
GvD.Columns(14).Visible = False
GvD.Columns(15).Visible = False GvD.Columns(15).Visible = False
GvD.Columns(16).Visible = False GvD.Columns(16).Visible = False
GvD.Columns(17).Visible = False GvD.Columns(17).Visible = False
GvD.Columns(18).Visible = False
GvD.Columns(19).Visible = False
UpPresupuestosAC.Visible = False UpPresupuestosAC.Visible = False
End If End If
@@ -6793,11 +6793,11 @@ Partial Class OC_OC
CboE_SelectedIndexChanged(CboE, EventArgs.Empty) CboE_SelectedIndexChanged(CboE, EventArgs.Empty)
GvD.Columns(10).Visible = True 'Permitir la edicion GvD.Columns(12).Visible = True 'Permitir la edicion
lblTipoPadreHijo.Visible = False lblTipoPadreHijo.Visible = False
GvD.Columns(11).Visible = False GvD.Columns(13).Visible = False
LblCompra.Visible = False LblCompra.Visible = False
GvD.Columns(12).Visible = False GvD.Columns(14).Visible = False
ChkCotizacion.Visible = True ChkCotizacion.Visible = True
ChkCotizacion.Enabled = True ChkCotizacion.Enabled = True
@@ -6926,7 +6926,7 @@ Partial Class OC_OC
ScriptManager.RegisterStartupScript(Me, GetType(Page), "anioactual", script, True) ScriptManager.RegisterStartupScript(Me, GetType(Page), "anioactual", script, True)
VerificaPresupuesto = False VerificaPresupuesto = False
RVSubProyecto.Enabled = If(RequiereSubProyecto = True, True, False) RVSubProyecto.Enabled = If(RequiereSubProyecto = True, True, False)
GvD.Columns(11).Visible = False GvD.Columns(13).Visible = False
CargaComboCFDI() CargaComboCFDI()
CargaMonedas() CargaMonedas()
'CargaClasificaciones() 'CargaClasificaciones()
@@ -8859,4 +8859,67 @@ Partial Class OC_OC
End If End If
End Sub End Sub
Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
ConfiguraRetencionesProveedor()
End Sub
Private Sub ConfiguraRetencionesProveedor()
'9 y 10
ThRetIVA.Visible = False
ThRetISR.Visible = False
TdRetIVA.Visible = False
TdRetISR.Visible = False
GvD.Columns(9).Visible = False
GvD.Columns(10).Visible = False
Dim MostrarColRetIVA As Boolean = False
Dim MostrarColRetISR As Boolean = False
Dim CveProvedorSelecionado As Integer = DdlProveedores.SelectedValue.ToEntero
If CveProvedorSelecionado > 0 Then
Dim ObjProveedor As New ClsCompProveedores()
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProvedorSelecionado, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjProveedor.CveRegimenFiscal = 23 Then
If ObjProveedor.RetIVA > 0 Then
MostrarColRetIVA = True
End If
If ObjProveedor.RetISR > 0 Then
MostrarColRetISR = True
End If
End If
End If
ObjProveedor.Dispose()
End If
ThRetIVA.Visible = MostrarColRetIVA
ThRetISR.Visible = MostrarColRetISR
TdRetIVA.Visible = MostrarColRetIVA
TdRetISR.Visible = MostrarColRetISR
GvD.Columns(9).Visible = MostrarColRetIVA
GvD.Columns(10).Visible = MostrarColRetISR
UPPDetalle.Update()
End Sub
End Class End Class

216
OI/GraficaGantt.aspx
View File

@@ -1,216 +0,0 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="GraficaGantt.aspx.vb" Inherits="OI_GraficaGantt" %>
<asp:Content ID="ContentCP" ContentPlaceHolderID="CP" Runat="Server">
<link href="../Metronic/GraficaGantt/dhtmlxgantt.css" rel="stylesheet" />
<style>
.scalasgants input:checked + label{
border-bottom: 2px solid #45B6AF;
}
.scalasgants input{
display:none;
}
.scalasgants label{
padding:5px;
padding-bottom:10px;
}
.scalasgants label:hover {
background-color: rgba(0,0,0,0.03);
border-bottom: 2px solid #89FFF3;
}
</style>
</asp:Content>
<asp:Content ID="ContentCss" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="ContentE" ContentPlaceHolderID="E" Runat="Server">
</asp:Content>
<asp:Content ID="ContentHB" ContentPlaceHolderID="HB" Runat="Server">
</asp:Content>
<asp:Content ID="ContentH" ContentPlaceHolderID="H" Runat="Server">
</asp:Content>
<asp:Content ID="ContentC" ContentPlaceHolderID="C" Runat="Server">
<%--<asp:UpdatePanel ID="UPfiltros" runat="server"><ContentTemplate>--%>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" Text="Consultar" runat="server" CssClass="btn btn-default" />
</div>
<div class="titlefiltros caption ">
<div class="row">
<label class="col-md-1" style="width: 70px;">De:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlUsuario" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList>
</div>
<%--<label class="col-md-1" style="width: 70px;">Para:</label>
<div class="col-md-2">
<asp:DropDownList ID="DDlPara" CssClass="form-control input-sm" runat="server" DataTextField="Nombre" DataValueField="CveUsuario">
</asp:DropDownList>
</div>--%>
<div class="col-md-2" >
<div class="row">
<label class="col-md-3 truncate">Revisión:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlRevision" CssClass="form-control input-sm" runat="server" DataTextField="Revision" DataValueField="CveRevision">
</asp:DropDownList>
</div>
</div>
</div>
<div class="col-md-2" >
<div class="row">
<label class="col-md-5 truncate">Primer Nivel:</label>
<div class="col-md-7">
<asp:DropDownList ID="DdlPrimerNivel" AutoPostBack="true" CssClass="form-control input-sm" runat="server" DataTextField="Asunto" DataValueField="CveEvento">
</asp:DropDownList>
</div>
</div>
</div>
<div class="col-md-2" >
<div class="row">
<label class="col-md-3 truncate">Segundo Nivel:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlSegundoNivel" CssClass="form-control input-sm" runat="server" DataTextField="Asunto" DataValueField="CveEvento">
</asp:DropDownList>
</div>
</div>
</div>
<div class="col-md-2" runat="server" id="TdSubTotales" visible="false">
<div class="row">
<label class="col-md-3 truncate">SubTotales:</label>
<div class="col-md-9">
<asp:DropDownList ID="DdlSubtotales" CssClass="form-control input-sm" runat="server">
<asp:ListItem Text="Sin Subtotales" Value="1"></asp:ListItem>
<asp:ListItem Text="Trimestral" Value="2"></asp:ListItem>
<asp:ListItem Text="Cuatrimestral" Value="3"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<%--</ContentTemplate></asp:UpdatePanel>--%>
<br />
<asp:HiddenField ID="Asunto" runat="server" />
<asp:HiddenField ID="FechaInicio" runat="server" />
<asp:HiddenField ID="Duracion" runat="server" />
<asp:HiddenField ID="EventoPadre" runat="server" />
<asp:Button ID="NewUser" runat="server" CssClass="hidden" Text="Button" />
<div class="portlet light calendar ">
<div class="portlet-title ">
<div class="caption">
<i class="icon-calendar font-green-sharp"></i>
<span class="caption-subject font-green-sharp bold uppercase">TaReaS</span>
</div>
<div class="actions scalasgants">
<input type="radio" id="scaleD" name="scale" value="1" /><label for="scaleD">Día</label>
<input type="radio" id="scaleS" name="scale" value="2" /><label for="scaleS">Semana</label>
<input type="radio" id="scaleM" name="scale" value="3" checked="checked" /><label for="scaleM">Mes</label>
<input type="radio" id="scaleA" name="scale" value="4" /><label for="scaleA">Año</label>
</div>
</div>
<div class="portlet-body">
<div id="gantt_here" style='width: 100%; height: 600px;'></div>
</div>
</div>
</asp:Content>
<asp:Content ID="ContentJS" ContentPlaceHolderID="JS" Runat="Server">
<script src="../Metronic/GraficaGantt/dhtmlxgantt.js"></script>
<script type="text/javascript">
function setScaleConfig(value){
switch (value) {
case "1":
gantt.config.scale_unit = "day";
gantt.config.step = 1;
gantt.config.date_scale = "%d %M";
gantt.config.subscales = [];
gantt.config.scale_height = 27;
gantt.templates.date_scale = null;
break;
case "2":
var weekScaleTemplate = function(date){
var dateToStr = gantt.date.date_to_str("%d %M");
var endDate = gantt.date.add(gantt.date.add(date, 1, "week"), -1, "day");
return dateToStr(date) + " - " + dateToStr(endDate);
};
gantt.config.scale_unit = "week";
gantt.config.step = 1;
gantt.templates.date_scale = weekScaleTemplate;
gantt.config.subscales = [
{unit:"day", step:1, date:"%D" }
];
gantt.config.scale_height = 50;
break;
case "3":
gantt.config.scale_unit = "month";
gantt.config.date_scale = "%F, %Y";
gantt.config.subscales = [
{unit:"day", step:1, date:"%j, %D" }
];
gantt.config.scale_height = 50;
gantt.templates.date_scale = null;
break;
case "4":
gantt.config.scale_unit = "year";
gantt.config.step = 1;
gantt.config.date_scale = "%Y";
gantt.config.min_column_width = 50;
gantt.config.scale_height = 90;
gantt.templates.date_scale = null;
gantt.config.subscales = [
{unit:"month", step:1, date:"%M" }
];
break;
}
}
var datagant =<%= DTTogant()%>;
function convertDate(inputFormat) {
function pad(s) { return (s < 10) ? '0' + s : s; }
var d = new Date(inputFormat);
return [pad(d.getDate()), pad(d.getMonth() + 1), d.getFullYear()].join('/');
}
Sys.Application.add_load(function (s, e) {
setScaleConfig('3');
// gantt.config.sort = true;
gantt.init("gantt_here");
gantt.parse(datagant);
gantt.attachEvent("onLightbox", function (task_id){
AbrirVentana('/OI/EventoDetalle.aspx?Masterimpoup=true&CveTipoEvento=3&CveEventoPadre='+task_id,900,630,'Proyecto');
gantt.hideLightbox();
});
var func = function (e) {
e = e || window.event;
var el = e.target || e.srcElement;
var value = el.value;
setScaleConfig(value);
gantt.render();
};
var els = document.getElementsByName("scale");
for (var i = 0; i < els.length; i++) {
els[i].onclick = func;
}
gantt.attachEvent("onAfterTaskAdd", function (id, item) {
// console.log(item.text + " itemstart:" + convertDate(item.start_date) + " " + item.start_date + " duration:" + item.duration + " pogresss:" + item.progress + " Parent:" + item.parent);
$('#<%= Asunto.ClientID%>').val(item.text);
$('#<%= FechaInicio.ClientID%>').val(convertDate(item.start_date));
$('#<%= EventoPadre.ClientID%>').val(item.parent);
$('#<%= Duracion.ClientID%>').val(item.duration);
$('#<%= NewUser.ClientID%>').click();
});
});
</script>
</asp:Content>

131
OI/GraficaGantt.aspx.vb
View File

@@ -1,131 +0,0 @@
Imports Extensiones
Imports System.Data
Partial Class OI_GraficaGantt
Inherits ClsPaginas
Private Property DTDatos As DataTable
Get
Return CType(ViewState("DTDatos"), DataTable)
End Get
Set(value As DataTable)
ViewState("DTDatos") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
DdlSegundoNivel.DataBind()
DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
DdlPrimerNivel.DataBind()
DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1"))
CargaCombos()
CargaEventos()
CargaComboP1()
End If
End Sub
Private Sub CargaCombos()
'usuarios
DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuario.SelectedValue = -1
'Revision
Dim ObjOI As New ClsOIEventos
If ObjOI.GetRevisionesEventos(UsuarioActual.CveEmpresa) Then
DdlRevision.DataSource = ObjOI.DtResultados
DdlRevision.DataBind()
End If
ObjOI.Dispose()
DdlRevision.Items.Insert(0, New ListItem("Todos", "-1"))
DdlRevision.SelectedValue = -1
End Sub
Protected Sub CargaEventos()
Dim de As Integer = DdlUsuario.SelectedValue
Dim cverevision As Integer = DdlRevision.SelectedValue
Dim objoi As New ClsOIEventos
If objoi.GetEventosProyecto(UsuarioActual.CveEmpresa, de, cverevision, DdlPrimerNivel.SelectedValue, DdlSegundoNivel.SelectedValue) Then
DTDatos = objoi.DtResultados
End If
objoi.Dispose()
End Sub
Private Sub CargaComboP1()
DdlPrimerNivel.Items.Clear()
DdlPrimerNivel.DataSource = DTDatos.FiltraParametros("CveEventoPadre = 0")
DdlPrimerNivel.DataBind()
DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSegundoNivel.Items.Clear()
DdlSegundoNivel.DataBind()
DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaComboP2()
DdlSegundoNivel.Items.Clear()
DdlSegundoNivel.DataSource = DTDatos.FiltraParametros(String.Format("CveEventoPadre = {0} OR {0}=-1", DdlPrimerNivel.SelectedValue))
DdlSegundoNivel.DataBind()
DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Protected Sub DdlPrimerNivel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPrimerNivel.SelectedIndexChanged
CargaComboP2()
End Sub
Public Function DTTogant() As String
Dim StrDatos As New StringBuilder
StrDatos.Append("{""data"": [ ")
Dim dttemp As DataTable = GetDatos()
If Not (dttemp Is Nothing) Then
For Each item As DataRow In dttemp.Rows '28-03-2013
Dim duracion = DateDiff(DateInterval.Day, item("FechaInicio").ToString().ToDate(), item("FechaFin").ToString().ToDate())
If item("ISFhater").ToString = "1" Then
StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"",""type"":""Project"", ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString)
Else
StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"", ""duration"": ""{3}"", ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString)
End If
Next
End If
Return StrDatos.ToString.Substring(0, StrDatos.ToString.Length - 1) & "]}"
End Function
Public Function GetDatos() As DataTable
Dim dt As DataTable = DTDatos.Copy
'If Not (DdlPrimerNivel.SelectedValue = -1 And DdlSegundoNivel.SelectedValue = -1) Then
' dt.Clear()
'End If
Return dt
End Function
Protected Sub NewUser_Click(sender As Object, e As EventArgs) Handles NewUser.Click
Dim FechaI As Date = FechaInicio.Value.ToDate()
Dim Fechaf As Date = FechaI.AddDays(Duracion.Value.ToEntero)
Dim objOI As New ClsOIEventos
If objOI.AddEventoProyecto(Asunto.Value, Asunto.Value, 1, UsuarioActual.CveUsuario, -1, FechaI, Fechaf,
EventoPadre.Value.ToEntero, -1, "", -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario,-1,
UsuarioActual.CveEmpresa) Then
Dim newrow As DataRow = DTDatos.NewRow()
newrow("CveEvento") = objOI.CveEvento
newrow("Asunto") = Asunto.Value
newrow("FechaInicio") = FechaInicio.Value
newrow("FechaFin") = Fechaf.ToString("dd/MM/yyyy")
newrow("CveEventoPadre") = EventoPadre.Value
DTDatos.Rows.Add(newrow)
Else
Alert("No se logro agregar la tarea", TipoMensaje.MsgInformacion)
End If
objOI.Dispose()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
CargaEventos()
' RegistraScript(String.Format("debugger;gantt.parse('{0}');datagant='{0}';", DTTogant()))
End Sub
End Class

132
Ventas/RepABT.aspx
View File

@@ -1,132 +0,0 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepABT.aspx.vb" Inherits="Ventas_RepABT" %>
<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="H" runat="Server">
<img src="/Imagenes/separador02.gif" alt="" />&nbsp;
<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp;
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="CSS" runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="E" runat="Server">
<asp:Label ID="LbTitulo" Text="Reporte ABT" runat="server"></asp:Label>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
<%--<asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
<ContentTemplate>--%>
<div class="portlet solid grey-cascade portlet-filter">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultar" CssClass="btn btn-default" Text="Consultar" runat="server" />
<a href="javascript;" class="expand" data-original-title="" title=""></a>
</div>
<div class="titlefiltros caption ">
<div class="row">
<label class="col-md-1">Ejercicio:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlEjercicio" CssClass="form-control input-sm input-small select2me" runat="server" >
<asp:ListItem Text="2014" Value="2014"></asp:ListItem>
<asp:ListItem Text="2015" Value="2015"></asp:ListItem>
</asp:DropDownList></div>
<label class="col-md-1">Periodo:</label>
<div class="col-md-2">
<asp:DropDownList ID="DdlPeriodo" CssClass="form-control input-small input-sm select2me" runat="server" >
<asp:ListItem Text="Enero" Value="1"></asp:ListItem>
<asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
<asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
<asp:ListItem Text="Abril" Value="4"></asp:ListItem>
<asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
<asp:ListItem Text="Junio" Value="6"></asp:ListItem>
<asp:ListItem Text="Julio" Value="7"></asp:ListItem>
<asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
<asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
<asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
<asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
<asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
</asp:DropDownList></div>
</div>
</div>
</div>
</div>
<%-- </ContentTemplate>
</asp:UpdatePanel>--%>
<br />
<br />
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
<ContentTemplate>
<asp:GridView ID="GvRepABT" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros">
<Columns>
<asp:TemplateField HeaderText="Reporte ABT">
<HeaderTemplate>
<table CssClass="table table-smallpadding Widthall">
<tr>
<td style="width: 5%">Tipo</td>
<td style="width: 5%">Folio</td>
<td style="width: 25%">Cliente</td>
<td style="width: 25%">Sucursal</td>
<td style="width: 10%">Fecha Venta</td>
<td style="width: 5%">Mesa</td>
<td style="width: 5%"># Per</td>
<td style="width: 10%">Fecha Corte</td>
<td style="width: 10%" align="right">Total</td>
</tr>
</table>
</HeaderTemplate>
<ItemTemplate>
<table width="995px">
<tr>
<td style="width: 5%"><b><%# Eval("TipoDocto") %></b></td>
<td style="width: 5%"><b><%# Eval("SerieFolio") %></b></td>
<td style="width: 25%"><b><%# Eval("Cliente")%></b></td>
<td style="width: 25%"><b><%# Eval("Sucursal")%></b></td>
<td style="width: 10%"><b><%# Eval("FechaVenta", "{0:d}")%></td>
<td style="width: 5%"><b><%# Eval("Mesa")%></b></td>
<td style="width: 5%"><b><%# Eval("NumeroPersonas")%></b></td>
<td style="width: 10%"><b><%# Eval("FechaCorte", "{0:d}")%></b></td>
<td style="width: 10%" align="right"><b><%# Eval("TotalRemision", "{0:F2}")%></b></td>
</tr>
<tr>
<td colspan="4"></td>
<td colspan="5" align="right">
<asp:GridView ID="GvD" CssClass="table table-hover table-advance table-smallpadding Widthall" BorderWidth="0" GridLines="None" runat="server" AutoGenerateColumns="false" ShowHeader="false" >
<Columns>
<asp:BoundField DataField="Cantidad" HeaderText="Folio" ItemStyle-Width="5%"/>
<asp:BoundField DataField="Concepto" HeaderText="Concepto" ItemStyle-Width="80%"/>
<asp:BoundField DataField="TotalConcepto" HeaderText="TotalConcepto" DataFormatString="{0:F2}" ItemStyle-HorizontalAlign="right" ItemStyle-Width="15%"/>
</Columns>
</asp:GridView>
</td>
</tr>
</table>
<%--<asp:Label ID="Label1" runat="server" Text='<%# Bind("TipoDocto") %>'></asp:Label>--%>
</ItemTemplate>
</asp:TemplateField>
<%-- <asp:BoundField DataField="SerieFolio" HeaderText="Folio"/>
<asp:BoundField DataField="Cliente" HeaderText="Cliente"/>
<asp:BoundField DataField="Sucursal" HeaderText="Sucursal"/>
<asp:BoundField DataField="FechaVenta" HeaderText="Fecha Venta" DataFormatString="{0:dd/MM/yyyy}"/>
<asp:BoundField DataField="Mesa" HeaderText="Mesa"/>
<asp:BoundField DataField="NumeroPersonas" HeaderText="Número de Personas"/>
<asp:BoundField DataField="Cantidad" HeaderText="Cant."/>
<asp:BoundField DataField="Concepto" HeaderText="Concepto"/>
<asp:BoundField DataField="PU" HeaderText="P. U."/>
<asp:BoundField DataField="Descuento" HeaderText="Desct."/>
<asp:BoundField DataField="TotalConcepto" HeaderText="Total Concepto"/>
<asp:BoundField DataField="TotalRemision" HeaderText="Total Remisión"/>
<asp:BoundField DataField="FechaCorte" HeaderText="Fecha Corte" DataFormatString="{0:dd/MM/yyyy}"/>--%>
</Columns>
<HeaderStyle CssClass="Titulos" />
<AlternatingRowStyle CssClass="TextoAlterno" />
<RowStyle CssClass="Texto" />
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

73
Ventas/RepABT.aspx.vb
View File

@@ -1,73 +0,0 @@
Option Explicit On
Option Strict On
Imports Extensiones
Imports System.Data
Partial Class Ventas_RepABT
Inherits ClsPaginas
'Private ReadOnly Property Ejercicio As Integer
' Get
' Return ViewState("Ejercicio")
' End Get
'End Property
'Private ReadOnly Property Periodo As Integer
' Get
' Return ViewState("Periodo")
' End Get
'End Property
Private Property DtDatos As datatable
Get
Return CType(ViewState("DtDatos"), DataTable)
End Get
Set(value As datatable)
ViewState("DtDatos") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
'If Request("Ejercicio") IsNot Nothing AndAlso IsNumeric(Request("Ejercicio")) Then
' ViewState("Ejercicio") = Request("Ejercicio")
'End If
'If Request("Periodo") IsNot Nothing AndAlso IsNumeric(Request("Periodo")) Then
' ViewState("Periodo") = Request("Periodo")
'End If
DdlEjercicio.SelectedValue = Now.Year.ToString
DdlPeriodo.SelectedValue = Now.Month.ToString
CargaDatos()
End If
End Sub
Private Sub CargaDatos()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepABT(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero) Then
GvRepABT.DataSource = ObjVentas.DtResultados.FiltraParametros("", DistinctColumns:={"CveVenta", "TipoDocto", "SerieFolio", "Cliente", "SubProyecto", "FechaVenta", "Mesa", "NumeroPersonas", "TotalRemision", "FechaCorte"})
Else
GvRepABT.DataSource = Nothing
End If
DtDatos = ObjVentas.DtResultados
ObjVentas.Dispose()
GvRepABT.DataBind()
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvRepABT.ExportToExcel("Reporte ABT")
End Sub
Protected Sub GvRepABT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepABT.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCGridView("GvD").DataSource = DtDatos.FiltraParametros(String.Format("CveVenta = {0}", e.Row.DBCampo("CveVenta")))
e.Row.FCGridView("GvD").DataBind()
End If
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
CargaDatos()
UpDatos.Update()
End Sub
End Class

37
Ventas/Ventas.aspx.vb
View File

@@ -2820,24 +2820,16 @@ Partial Class Ventas
CargaRelacionadasPendientes() CargaRelacionadasPendientes()
End If End If
'DdlSucursal.Enabled = False
DdlSubProyectoDatos.Enabled = False DdlSubProyectoDatos.Enabled = False
BtnEmitirImprimir.Visible = False BtnEmitirImprimir.Visible = False
BtnCrearApartirDe.Visible = True BtnCrearApartirDe.Visible = True
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then BtnCrearApartirDe.Visible = False
BtnCrearApartirDe.Visible = False
End If
If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Ing" Then BtnEditar.Visible = True
If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue = "Egs" AndAlso LblSeTimbro.Text = "No" Then If UsuarioActual.TienePermisoProceso(302) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Egs") AndAlso LblSeTimbro.Text = "No" Then BtnEditar.Visible = True
BtnEditar.Visible = True
End If
'DdlEstatus.Enabled = True
DivFechaAnticipoCliente.Visible = True DivFechaAnticipoCliente.Visible = True
TxtFechaAnticipoCliente.Text = Now.ToShortDateString TxtFechaAnticipoCliente.Text = Now.ToShortDateString
ImgAddObs.Visible = True ImgAddObs.Visible = True
CargaEventoBitacora() CargaEventoBitacora()
@@ -11406,6 +11398,7 @@ Partial Class Ventas
dr("CveUM") = drpss("CveUnidadMedida") dr("CveUM") = drpss("CveUnidadMedida")
dr("SATClaveProdServ") = "84111506" dr("SATClaveProdServ") = "84111506"
dr("SATClaveUM") = "ACT" dr("SATClaveUM") = "ACT"
dr("CodigoObjetoImpuesto") = drpss("CodigoObjetoImpuesto")
dr("Consec") = ii dr("Consec") = ii
dr("PorcentajeIVA") = Drr("PorcentajeIVA").ToString().ToDecimal dr("PorcentajeIVA") = Drr("PorcentajeIVA").ToString().ToDecimal
@@ -12665,8 +12658,7 @@ Partial Class Ventas
End If End If
Dim totSubTotal As Decimal = Obj.SubTotal
Dim totSubTotal As Decimal = If(UsuarioActual.Empresa.CvePAC = 3, Obj.DtDetalle.SUMD("Total"), Obj.SubTotal) 'Obj.SubTotal
Dim totIVA As Decimal = Obj.IVA Dim totIVA As Decimal = Obj.IVA
Dim totRetIVA As Decimal = Obj.RetIVA Dim totRetIVA As Decimal = Obj.RetIVA
Dim totRetISR As Decimal = Obj.RetISR Dim totRetISR As Decimal = Obj.RetISR
@@ -12700,7 +12692,7 @@ Partial Class Ventas
Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal, Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString().ToDecimal,
.Descripcion = tPS, .Descripcion = tPS,
.ValorUnitario = drr("PU").ToString().ToDecimal, .ValorUnitario = drr("PU").ToString().ToDecimal,
.Importe = If(UsuarioActual.Empresa.CvePAC = 3, drr("Total").ToString().ToDecimal.RoundSQL(2), drr("TotalImporte").ToString().ToDecimal), .Importe = drr("TotalImporte").ToString().ToDecimal,
.Descuento = drr("Descuento").ToString().ToDecimal.RoundSQL(2), .Descuento = drr("Descuento").ToString().ToDecimal.RoundSQL(2),
.Unidad = drr("UM").ToString(), .Unidad = drr("UM").ToString(),
.ClaveUnidad = drr("SATClaveUM").ToString(), .ClaveUnidad = drr("SATClaveUM").ToString(),
@@ -12712,6 +12704,7 @@ Partial Class Ventas
'verifica suma subtotales 'verifica suma subtotales
If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales
concepto.Importe = totSubTotal concepto.Importe = totSubTotal
'concepto.ValorUnitario = totSubTotal / concepto.Cantidad
End If End If
totSubTotal = totSubTotal - concepto.Importe totSubTotal = totSubTotal - concepto.Importe
@@ -12849,25 +12842,12 @@ Partial Class Ventas
Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString() Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString() Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString()
'Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = "FARMIND CORPORATION"
'Timbre.Complementos.ComercioExterior11.Destinatario.Calle = "Kandaizumicho Bldg"
'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = "7F"
'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = ""
'Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = ""
'Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = "Chiyoda-ku"
'Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = ""
'Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = "Kandaizumicho"
'Timbre.Complementos.ComercioExterior11.Destinatario.CP = "101-0024"
'Timbre.Complementos.ComercioExterior11.Destinatario.Estado = "Tokyo"
'Timbre.Complementos.ComercioExterior11.Destinatario.Pais = "JPN"
'Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = "2010401130418"
End If End If
Else Else
Timbre.Complementos.ComercioExterior11.Destinatario = Nothing Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
End If End If
'MERCANCIAS 'MERCANCIAS
For Each Gvr As GridViewRow In GvComercioExterior.Rows For Each Gvr As GridViewRow In GvComercioExterior.Rows
Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
@@ -12884,15 +12864,10 @@ Partial Class Ventas
i += 1 i += 1
Next Next
Else Else
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
End If End If
Return Timbre Return Timbre
End Function End Function