This commit is contained in:
2020-01-10 11:10:56 -07:00
19 changed files with 1016 additions and 1221 deletions

View File

@@ -1581,6 +1581,22 @@ Public Class ClsClientes
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then
Alert("El Nuevo Cliente no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("Número: 2601;") Then
If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then
Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia)
End If
If Ex1.Message.Contains("IND_Clientes_Codigo") Then
Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia)
End If
Else
Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al agregar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al agregar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try

View File

@@ -133,6 +133,24 @@ Public Class ClsGenerales
End With End With
End Sub End Sub
Public Function RepConciliacionSatDetalleGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String, RegistroEn As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_RepConciliacionSatDetalleGET", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
.Add("@TipoDocto", SqlDbType.VarChar).Value = tipoDocto
.Add("@RegistroEn", SqlDbType.Int).Value = RegistroEn
.Add("@FechaI", SqlDbType.VarChar).Value = fechaI
.Add("@FechaF", SqlDbType.VarChar).Value = fechaF
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener los registros de Conciliaciones SAT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function RepConciliacionSatGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String) As Boolean Public Function RepConciliacionSatGET(cveEmpresa As Int32, tipoDocto As String, fechaI As String, fechaF As String) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False

View File

@@ -3986,6 +3986,8 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad/CatCuentasSIG.aspx".ToUpper(), 405) PaginaDict.Add("/Contabilidad/CatCuentasSIG.aspx".ToUpper(), 405)
PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714) PaginaDict.Add("/Contabilidad/RepIEPS.aspx".ToUpper(), 714)
PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677) PaginaDict.Add("/Contabilidad/CatPeriodosBloqueo.aspx".ToUpper(), 677)
PaginaDict.Add("/Contabilidad/CatClasificacionPorcentaje.aspx".ToUpper(), 752)
#End Region #End Region
'CONTABILIDAD2 'CONTABILIDAD2
#Region "Contabilidad2" #Region "Contabilidad2"

View File

@@ -613,6 +613,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero)) params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero))
Dim SaldoFinalContabilidad As Double = 0 Dim SaldoFinalContabilidad As Double = 0
Dim SaldoFinalContabilidadComplementaria As Double = 0
If DdlCuenta.SelectedValue.ToEntero > 0 Then If DdlCuenta.SelectedValue.ToEntero > 0 Then
Dim CveCuenta As Integer = 0 Dim CveCuenta As Integer = 0
Dim CveCuentaComplementaria As Integer = 0 Dim CveCuentaComplementaria As Integer = 0
@@ -636,7 +637,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
If CveCuentaComplementaria > 0 Then If CveCuentaComplementaria > 0 Then
If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
If ObjConta.DtResultados.Rows.Count > 1 Then If ObjConta.DtResultados.Rows.Count > 1 Then
SaldoFinalContabilidad += ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
End If End If
End If End If
End If End If
@@ -644,6 +645,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
End If End If
params.Add(New ReportParameter("SaldoFinalContabilidad", (SaldoFinalContabilidad.FormatoNumero))) params.Add(New ReportParameter("SaldoFinalContabilidad", (SaldoFinalContabilidad.FormatoNumero)))
params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero)))
params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero)) params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero))
If Imagen.Exists Then If Imagen.Exists Then

View File

@@ -2323,6 +2323,8 @@ Partial Class Bancos_IE
CveConceptoCompra = 21 'Pago a Proveedor/CAncelacion Anticipos CveConceptoCompra = 21 'Pago a Proveedor/CAncelacion Anticipos
CveConceptoContable = 30 'Bancos CveConceptoContable = 30 'Bancos
CvePlantillaPoliza = 7 CvePlantillaPoliza = 7
ElseIf CveCliente > 0 Then
CvePlantillaPoliza = 11
End If End If
End If End If

View File

@@ -0,0 +1,137 @@
<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatClasificacionPorcentaje.aspx.vb" Inherits="Contabilidad_CatClasificacionPorcentaje" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Catálogo de Clasificacion Porcentaje
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton runat="server" ID="BtnAgregarClas" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Clas. Porcentaje"></asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveClasificacionPorcentaje,Clasificacion,CveEmpresa,CveClasificacion,PorcentajeIVA,
CuentaXAcreditar,CuentaAcreditable,CuentaXTrasladar,CuentaTrasladado,IdCtaIVAXAcreditar,IdCtaIVAAcreditable,IdCtaIVAXTrasladar,IdCtaIVATrasladado,IdCtaIVANoAcreditable"
EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px;
text-align: center; width: 100%" GridLines="None">
<Columns>
<asp:BoundField DataField="Clasificacion" HeaderText="Clasificacion" />
<asp:BoundField DataField="PorcentajeIVA" HeaderText="PorcentajeIVA" />
<asp:BoundField DataField="CuentaXAcreditar" HeaderText="C. Por Acreditar" />
<asp:BoundField DataField="CuentaAcreditable" HeaderText="C. Acreditable" />
<asp:BoundField DataField="CuentaXTrasladar" HeaderText="C. Por trasladar" />
<asp:BoundField DataField="CuentaTrasladado" HeaderText="C. Trasladado" />
<%--<asp:BoundField DataField="IdCtaIVANoAcreditable" HeaderText="IdCtaIVANoAcreditable" />--%>
<asp:TemplateField HeaderText="Editar">
<EditItemTemplate>
<center>
<asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
&nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
</center>
</EditItemTemplate>
<ItemTemplate>
<asp:LinkButton ID="imgE" runat="server" OnClick="GvDatos_RowEditing" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Eliminar">
<ItemTemplate>
<asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
<RowStyle CssClass="Texto" />
<AlternatingRowStyle CssClass="TextoAlterno" />
</asp:GridView>
<div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 450px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">×</button>
<h4 class="modal-title">
<asp:Literal ID="LtlTituloModalTiposD" runat="server">Clasificación porcentaje</asp:Literal></h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:dropdownlist runat="server" ID="DdlClasificaciones" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion"></asp:dropdownlist>
<asp:RequiredFieldValidator ID="RfvDdlClasificaciones" runat="server" ControlToValidate="DdlClasificaciones" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="MotivoTxt">Clasificación:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPorcentajeIva" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="TxtPorcentajeIva" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="TxtPorcentajeIva">Porcentaje IVA:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:dropdownlist runat="server" ID="DdlIdCtaIVAXAcreditar" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
<asp:RequiredFieldValidator ID="RfvDdlIdCtaIVAXAcreditar" runat="server" ControlToValidate="DdlIdCtaIVAXAcreditar" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="DdlIdCtaIVAXAcreditar">Cuenta IVA por acreditar:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:dropdownlist runat="server" ID="DdlIdCtaIVAAcreditable" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
<asp:RequiredFieldValidator ID="RfvDdlIdCtaIVAAcreditable" runat="server" ControlToValidate="DdlIdCtaIVAAcreditable" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="DdlIdCtaIVAAcreditable">Cuenta IVA acreditable:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:dropdownlist runat="server" ID="DdlIdCtaIVAXTrasladar" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
<asp:RequiredFieldValidator ID="RfvDdlIdCtaIVAXTrasladar" runat="server" ControlToValidate="DdlIdCtaIVAXTrasladar" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="DdlIdCtaIVAXTrasladar">Cuenta IVA por trasladar:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:dropdownlist runat="server" ID="DdlIdCtaIVATrasladado" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
<asp:RequiredFieldValidator ID="RfvDdlIdCtaIVATrasladado" runat="server" ControlToValidate="DdlIdCtaIVATrasladado" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="DdlIdCtaIVATrasladado">Cuenta IVA Traslado:</label>
<i></i>
</div>
<br />
<div class="form-group form-md-line-input input-iconright">
<asp:dropdownlist runat="server" ID="DdlIdCtaIVANoAcreditable" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" AppendDataBoundItems="true" Width="100%" DataTextField="Nombre" DataValueField="Id"></asp:dropdownlist>
<asp:RequiredFieldValidator ID="RfvDdlIdCtaIVANoAcreditable" runat="server" ControlToValidate="DdlIdCtaIVANoAcreditable" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
<label for="DdlIdCtaIVANoAcreditable">Cuenta IVA no acreditable:</label>
<i></i>
</div>
<br />
</div>
<br />
<div class="modal-footer">
<asp:Button ID="BtnAgregarTiposDModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
<asp:Button ID="BtnEditarTiposDModal" runat="server" class="btn btn-success" Text="Confirmar" ValidationGroup="GrpTiposD" />
<button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
</asp:Content>

View File

@@ -0,0 +1,150 @@
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Contabilidad_CatClasificacionPorcentaje
Inherits ClsPaginas
Private Property DtClasificacionPorcentaje As DataTable
Get
Return CType(ViewState("DtClasificacionPorcentaje"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtClasificacionPorcentaje") = value
End Set
End Property
Private Property CveClasificacion As Integer
Get
Return CType(ViewState("CveClasificacion"), Integer)
End Get
Set(value As Integer)
ViewState("CveClasificacion") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaDatos()
CargaContPaq()
End If
End Sub
Protected Sub CargaDatos()
Dim ObjGenerales As New ClsGenerales
If ObjGenerales.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, CveClasificacionPorcentaje:=-1, CveClasificacion:=-1, PorcentajeIVA:=-1, Opcion:=2) Then
GvDatos.DataSource = ObjGenerales.DtResultados
DtClasificacionPorcentaje = ObjGenerales.DtResultados
End If
ObjGenerales.Dispose()
GvDatos.DataBind()
DdlClasificaciones.Items.Add(New ListItem("Seleccione", "-1"))
DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificaciones.DataBind()
End Sub
Protected Sub CargaContPaq()
Dim Empresa As DataTable = GlobalDTEmpresas(UsuarioActual.CveEmpresa)
Dim Servidor As String = Empresa.FiltroPrimeroValor("ServerContPAQi")
Dim BD As String = Empresa.FiltroPrimeroValor("BDContPAQi")
Dim Usuario As String = Empresa.FiltroPrimeroValor("UsrContPAQi")
Dim Contra As String = Empresa.FiltroPrimeroValor("PwdContPAQi")
Dim ObjPaq As New ClsContPAQi(Servidor, BD, Usuario, Contra)
DdlIdCtaIVAXAcreditar.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
DdlIdCtaIVAAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
DdlIdCtaIVAXTrasladar.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
DdlIdCtaIVATrasladado.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
DdlIdCtaIVANoAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1"))
If ObjPaq.GetCuentas(-1, "-1", -1, IdPadre:=-1) Then
DdlIdCtaIVAXAcreditar.DataSource = ObjPaq.DtResultados
DdlIdCtaIVAAcreditable.DataSource = ObjPaq.DtResultados
DdlIdCtaIVAXTrasladar.DataSource = ObjPaq.DtResultados
DdlIdCtaIVATrasladado.DataSource = ObjPaq.DtResultados
DdlIdCtaIVANoAcreditable.DataSource = ObjPaq.DtResultados
End If
ObjPaq.Dispose()
DdlIdCtaIVAXAcreditar.DataBind()
DdlIdCtaIVAAcreditable.DataBind()
DdlIdCtaIVAXTrasladar.DataBind()
DdlIdCtaIVATrasladado.DataBind()
DdlIdCtaIVANoAcreditable.DataBind()
End Sub
Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarClas.Click
BtnAgregarTiposDModal.Text = "Agregar"
BtnEditarTiposDModal.Visible = False
BtnAgregarTiposDModal.Visible = True
TxtPorcentajeIva.Text = ""
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal"
Dim ObjGenerales As New ClsGenerales
If BtnAgregarTiposDModal.Text = "Agregar" Then
If ObjGenerales.AddClasificacionPorcentaje(DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, DdlIdCtaIVAAcreditable.SelectedValue,
DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
Alert("Clasificación porcentaje agregado correctamente")
If ObjGenerales.GetClasificacionPorcentaje(-1) Then
GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
End If
CargaDatos()
CargaContPaq()
UpDatos.Update()
End If
ElseIf BtnAgregarTiposDModal.Text = "Actualizar" Then
If ObjGenerales.UpdateClasificacionPorcentaje(CveClasificacion, DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue,
DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
Alert("Clasificación porcentaje actualizado correctamente")
If ObjGenerales.GetClasificacionPorcentaje(-1) Then
GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados
End If
CargaDatos()
CargaContPaq()
UpDatos.Update()
End If
End If
ObjGenerales.Dispose()
End Sub
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
Dim objgenerales As New ClsGenerales
If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then
Alert("la clasificación porcentaje se eliminó correctamente")
If objgenerales.GetClasificacionPorcentaje(-1) Then
GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados
End If
CargaDatos()
CargaContPaq()
UpDatos.Update()
End If
objgenerales.Dispose()
End Sub
Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs)
BtnAgregarTiposDModal.Text = "Actualizar"
Dim renglon As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
DdlClasificaciones.SelectedValue = If(renglon.DataKey("CveClasificacion").ToString IsNot "", renglon.DataKey("CveClasificacion"), "-1")
TxtPorcentajeIva.Text = renglon.DataKey("PorcentajeIVA")
DdlIdCtaIVAXAcreditar.SelectedValue = If(renglon.DataKey("IdCtaIVAXAcreditar").ToString IsNot "", renglon.DataKey("IdCtaIVAXAcreditar"), "-1")
DdlIdCtaIVAAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVAAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVAAcreditable"), "-1")
DdlIdCtaIVAXTrasladar.SelectedValue = If(renglon.DataKey("IdCtaIVAXTrasladar").ToString IsNot "", renglon.DataKey("IdCtaIVAXTrasladar"), "-1")
DdlIdCtaIVATrasladado.SelectedValue = If(renglon.DataKey("IdCtaIVATrasladado").ToString IsNot "", renglon.DataKey("IdCtaIVATrasladado"), "-1")
DdlIdCtaIVANoAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVANoAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVANoAcreditable"), "-1")
BtnEditarTiposDModal.Visible = False
BtnAgregarTiposDModal.Visible = True
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
End Sub
End Class

View File

@@ -23,9 +23,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.37762in</Top> <Top>1.37762in</Top>
<Left>5.662in</Left> <Left>5.81465in</Left>
<Height>0.5cm</Height> <Height>0.5cm</Height>
<Width>2.24597in</Width> <Width>2.09332in</Width>
<Style> <Style>
<Border> <Border>
<Style>Solid</Style> <Style>Solid</Style>
@@ -73,9 +73,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.93484in</Top> <Top>0.93484in</Top>
<Left>5.662in</Left> <Left>5.81465in</Left>
<Height>0.5cm</Height> <Height>0.5cm</Height>
<Width>2.24597in</Width> <Width>2.09332in</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -108,9 +108,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.69525in</Top> <Top>0.69525in</Top>
<Left>5.662in</Left> <Left>5.81465in</Left>
<Height>0.60856cm</Height> <Height>0.60856cm</Height>
<Width>2.24597in</Width> <Width>2.09332in</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -143,9 +143,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.23676cm</Top> <Top>1.23676cm</Top>
<Left>5.662in</Left> <Left>5.81465in</Left>
<Height>0.5cm</Height> <Height>0.5cm</Height>
<Width>2.24597in</Width> <Width>2.09332in</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -259,9 +259,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.13169in</Top> <Top>1.13169in</Top>
<Left>5.662in</Left> <Left>5.81465in</Left>
<Height>0.25114in</Height> <Height>0.25114in</Height>
<Width>2.24597in</Width> <Width>2.09332in</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -295,9 +295,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.57434in</Top> <Top>1.57434in</Top>
<Left>5.662in</Left> <Left>5.81465in</Left>
<Height>0.25635in</Height> <Height>0.25635in</Height>
<Width>2.24597in</Width> <Width>2.09332in</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -347,10 +347,10 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName> <rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.98172in</Top> <Top>0.99561in</Top>
<Left>1.48781in</Left> <Left>0.05904in</Left>
<Height>0.65513in</Height> <Height>0.62735in</Height>
<Width>2.06754in</Width> <Width>1.9981in</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -397,10 +397,10 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName> <rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.98172in</Top> <Top>1.00949in</Top>
<Left>3.64748in</Left> <Left>2.05714in</Left>
<Height>0.65513in</Height> <Height>0.62735in</Height>
<Width>1.93674in</Width> <Width>1.76588in</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -963,7 +963,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Régimen: Personas Físicas con Actividades Empresariales y Profesionales; Condiciones de pago: </Value> <Value>Condiciones de pago: </Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
@@ -976,20 +976,6 @@
<FontSize>7pt</FontSize> <FontSize>7pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
<TextRun>
<Value>; Método de Pago: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value)</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>; </Value> <Value>; </Value>
<Style> <Style>
@@ -1169,7 +1155,7 @@
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a VICTOR MANUEL RAMIREZ CASTILLO o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Tijuana, Baja California a </Value> <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a VICTOR MANUEL RAMIREZ CASTILLO o tenedor, desde el día siguiente a cobrar el 5% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Tijuana, Baja California a </Value>
<Style> <Style>
<FontStyle>Normal</FontStyle> <FontStyle>Normal</FontStyle>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
@@ -3106,99 +3092,6 @@
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow>
<Height>0.6cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox15">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Uso CFDI:</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
<Color>White</Color>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Style>
<Border>
<Color>White</Color>
<Style>None</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</TopBorder>
<BottomBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</BottomBorder>
<LeftBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</LeftBorder>
<RightBorder>
<Style>Solid</Style>
<Width>1pt</Width>
</RightBorder>
<BackgroundColor>#ff1037</BackgroundColor>
<VerticalAlign>Middle</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox17">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!UsoCFDI.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox17</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>1.56188cm</Height> <Height>1.56188cm</Height>
<TablixCells> <TablixCells>
@@ -3462,13 +3355,12 @@
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember /> <TablixMember />
<TablixMember />
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Top>6.91306cm</Top> <Top>6.91306cm</Top>
<Left>0.11468cm</Left> <Left>0.11468cm</Left>
<Height>5.76188cm</Height> <Height>5.16188cm</Height>
<Width>14.34413cm</Width> <Width>14.34413cm</Width>
<ZIndex>31</ZIndex> <ZIndex>31</ZIndex>
<Style> <Style>
@@ -4048,7 +3940,7 @@
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>1.19556cm</Top> <Top>1.19556cm</Top>
<Left>0.14361cm</Left> <Left>0.14361cm</Left>
<Height>1.67893cm</Height> <Height>1.22745cm</Height>
<Width>4.7959cm</Width> <Width>4.7959cm</Width>
<ZIndex>35</ZIndex> <ZIndex>35</ZIndex>
<Style> <Style>
@@ -4107,11 +3999,108 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox14">
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Uso CFDI: </Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!UsoCFDI.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Régime: </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>Personas Físicas con Actividades Empresariales y Profesionales</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Método de Pago:</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value)</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>7pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Top>0.99561in</Top>
<Left>3.82301in</Left>
<Height>0.62735in</Height>
<Width>1.99164in</Width>
<ZIndex>37</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<VerticalAlign>Top</VerticalAlign>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Height>25.59192cm</Height> <Height>25.59192cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>20.22041cm</Width> <Width>20.21108cm</Width>
<Page> <Page>
<PageHeight>27.94cm</PageHeight> <PageHeight>27.94cm</PageHeight>
<PageWidth>21.59cm</PageWidth> <PageWidth>21.59cm</PageWidth>

View File

@@ -340,6 +340,7 @@
<FixedColumnHeaders>true</FixedColumnHeaders> <FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>1.94937cm</Top> <Top>1.94937cm</Top>
<Left>0cm</Left>
<Height>1.09417cm</Height> <Height>1.09417cm</Height>
<Width>19.82496cm</Width> <Width>19.82496cm</Width>
<Style> <Style>
@@ -383,6 +384,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.17639cm</Top> <Top>0.17639cm</Top>
<Left>0cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>477.16077pt</Width> <Width>477.16077pt</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -431,6 +433,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>1.34937cm</Top> <Top>1.34937cm</Top>
<Left>0cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
@@ -782,6 +785,7 @@
<FixedColumnHeaders>true</FixedColumnHeaders> <FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet2</DataSetName> <DataSetName>DataSet2</DataSetName>
<Top>4.17187cm</Top> <Top>4.17187cm</Top>
<Left>0cm</Left>
<Height>1.09417cm</Height> <Height>1.09417cm</Height>
<Width>19.82496cm</Width> <Width>19.82496cm</Width>
<ZIndex>3</ZIndex> <ZIndex>3</ZIndex>
@@ -826,6 +830,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.57187cm</Top> <Top>3.57187cm</Top>
<Left>0cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
@@ -1177,6 +1182,7 @@
<FixedColumnHeaders>true</FixedColumnHeaders> <FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet3</DataSetName> <DataSetName>DataSet3</DataSetName>
<Top>6.42083cm</Top> <Top>6.42083cm</Top>
<Left>0cm</Left>
<Height>1.12063cm</Height> <Height>1.12063cm</Height>
<Width>19.82496cm</Width> <Width>19.82496cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
@@ -1221,6 +1227,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>5.82083cm</Top> <Top>5.82083cm</Top>
<Left>0cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
@@ -1572,6 +1579,7 @@
<FixedColumnHeaders>true</FixedColumnHeaders> <FixedColumnHeaders>true</FixedColumnHeaders>
<DataSetName>DataSet4</DataSetName> <DataSetName>DataSet4</DataSetName>
<Top>8.56395cm</Top> <Top>8.56395cm</Top>
<Left>0cm</Left>
<Height>1.12063cm</Height> <Height>1.12063cm</Height>
<Width>19.82496cm</Width> <Width>19.82496cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
@@ -1616,6 +1624,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>7.96395cm</Top> <Top>7.96395cm</Top>
<Left>0cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
@@ -1664,7 +1673,8 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.21319cm</Top> <Top>10.21319cm</Top>
<Height>0.52945cm</Height> <Left>0cm</Left>
<Height>0.42362cm</Height>
<Width>477.16077pt</Width> <Width>477.16077pt</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Style> <Style>
@@ -1711,8 +1721,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>11.09954cm</Top> <Top>10.63681cm</Top>
<Height>0.52945cm</Height> <Left>0cm</Left>
<Height>0.42362cm</Height>
<Width>477.16077pt</Width> <Width>477.16077pt</Width>
<ZIndex>10</ZIndex> <ZIndex>10</ZIndex>
<Style> <Style>
@@ -1768,7 +1779,7 @@
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>10.21319cm</Top> <Top>10.21319cm</Top>
<Left>16.83317cm</Left> <Left>16.83317cm</Left>
<Height>0.52945cm</Height> <Height>0.42362cm</Height>
<Width>84.80665pt</Width> <Width>84.80665pt</Width>
<ZIndex>11</ZIndex> <ZIndex>11</ZIndex>
<Style> <Style>
@@ -1815,9 +1826,9 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>11.09954cm</Top> <Top>10.63681cm</Top>
<Left>16.83317cm</Left> <Left>16.83317cm</Left>
<Height>0.52945cm</Height> <Height>0.42362cm</Height>
<Width>84.80665pt</Width> <Width>84.80665pt</Width>
<ZIndex>12</ZIndex> <ZIndex>12</ZIndex>
<Style> <Style>
@@ -1913,7 +1924,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>12.12288cm</Top> <Top>12.33483cm</Top>
<Left>16.83317cm</Left> <Left>16.83317cm</Left>
<Height>0.52945cm</Height> <Height>0.52945cm</Height>
<Width>84.80665pt</Width> <Width>84.80665pt</Width>
@@ -1969,7 +1980,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>AgrupadoPor</rd:DefaultName> <rd:DefaultName>AgrupadoPor</rd:DefaultName>
<Top>16.10059cm</Top> <Top>16.31254cm</Top>
<Left>0cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>15</ZIndex> <ZIndex>15</ZIndex>
@@ -2038,7 +2050,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>AgrupadoPor</rd:DefaultName> <rd:DefaultName>AgrupadoPor</rd:DefaultName>
<Top>15.43045cm</Top> <Top>15.6424cm</Top>
<Left>0cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>16</ZIndex> <ZIndex>16</ZIndex>
@@ -2094,7 +2107,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>AgrupadoPor</rd:DefaultName> <rd:DefaultName>AgrupadoPor</rd:DefaultName>
<Top>12.91208cm</Top> <Top>13.12403cm</Top>
<Left>0cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>17</ZIndex> <ZIndex>17</ZIndex>
@@ -2163,7 +2177,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>AgrupadoPor</rd:DefaultName> <rd:DefaultName>AgrupadoPor</rd:DefaultName>
<Top>13.68847cm</Top> <Top>13.90042cm</Top>
<Left>0cm</Left>
<Height>1.25264cm</Height> <Height>1.25264cm</Height>
<Width>561.96737pt</Width> <Width>561.96737pt</Width>
<ZIndex>18</ZIndex> <ZIndex>18</ZIndex>
@@ -2177,11 +2192,108 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox38">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>SALDO FINAL SEGUN CONTABILIDAD COMPLEMENTARIA: </Value>
<Style>
<FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>11.06042cm</Top>
<Height>0.42362cm</Height>
<Width>477.16077pt</Width>
<ZIndex>19</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox39">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!SaldoFinalContabilidadComplementaria.Value</Value>
<Style>
<FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>11.06042cm</Top>
<Left>16.83317cm</Left>
<Height>0.42362cm</Height>
<Width>84.80665pt</Width>
<ZIndex>20</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Height>6.69322in</Height> <Height>6.6828in</Height>
<Style /> <Style />
</Body> </Body>
<Width>7.8051in</Width> <Width>7.81552in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>2.88508cm</Height> <Height>2.88508cm</Height>
@@ -2239,6 +2351,7 @@
<Source>External</Source> <Source>External</Source>
<Value>=Parameters!LogoPath.Value</Value> <Value>=Parameters!LogoPath.Value</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Left>0cm</Left>
<Height>2.88508cm</Height> <Height>2.88508cm</Height>
<Width>4.76205cm</Width> <Width>4.76205cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
@@ -2715,6 +2828,12 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="SaldoFinalContabilidadComplementaria">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID> <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>

View File

@@ -662,7 +662,6 @@ function AbrirVentana(Pagina, Ancho, Alto, tmp, Titulo) {
}); });
$('#ajaxidmodal #myFrame').prop('src', Pagina); $('#ajaxidmodal #myFrame').prop('src', Pagina);
$("#ajax").modal(); $("#ajax").modal();
return false;
} }
function CerrarVentana() { function CerrarVentana() {

View File

@@ -89,7 +89,6 @@ Partial Class CatClasificaciones
CargaDdlSATPS() CargaDdlSATPS()
CargaDDLs() CargaDDLs()
CargaGlobal()
DdlCategoriaFiltro.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoriaFiltro.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoriaFiltro.Items.Insert(0, New ListItem("Todos", "-1")) DdlCategoriaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -152,20 +151,20 @@ Partial Class CatClasificaciones
CargaGrid() CargaGrid()
End Sub End Sub
Public Sub CargaGlobal() 'Public Sub CargaGlobal()
Dim ObjClasificaciones As New ClsClasificaciones ' Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones() Then ' If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($"(Codigo IS NULL OR Codigo = '') AND CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)") ' ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros($"(Codigo IS NULL OR Codigo = '') AND CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveCategoria = {DdlCategoriaFiltro.SelectedValue.ToEntero} OR {DdlCategoriaFiltro.SelectedValue.ToEntero} = -1) AND (UsoClasificacion = {DdlTipoClasificacion.SelectedValue.ToEntero} OR {DdlTipoClasificacion.SelectedValue.ToEntero} = -1 ) AND (Estado = {DdlEstatus.SelectedValue.ToEntero} OR {DdlEstatus.SelectedValue.ToEntero} = -1)")
GlobalDTClasificaciones = ObjClasificaciones.DtResultados ' GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
Else ' Else
Me.GvDatos.DataSource = Nothing ' Me.GvDatos.DataSource = Nothing
Alert("Ocurrió un error al cargar las clasificaciones. Por favor vuelva a intentar.", TipoMensaje.MsgError) ' Alert("Ocurrió un error al cargar las clasificaciones. Por favor vuelva a intentar.", TipoMensaje.MsgError)
End If ' End If
ObjClasificaciones.Dispose() ' ObjClasificaciones.Dispose()
End Sub 'End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
@@ -212,7 +211,7 @@ Partial Class CatClasificaciones
End If End If
End If End If
CargaGlobal() GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
ObjClasificaciones.Dispose() ObjClasificaciones.Dispose()
CargaDatos() CargaDatos()
@@ -317,6 +316,7 @@ Partial Class CatClasificaciones
If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
Else Else
Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
@@ -324,7 +324,7 @@ Partial Class CatClasificaciones
ObjClasificaciones.Dispose() ObjClasificaciones.Dispose()
CargaGrid() CargaGrid()
CargaGlobal()
End Sub End Sub
#End Region #End Region

View File

@@ -3912,7 +3912,7 @@ Partial Class Clientes
Gracias por la atención brindada al presente.<br /> Reciba un cordial saludo.<br /> Gracias por la atención brindada al presente.<br /> Reciba un cordial saludo.<br />
<br /> <br />
<b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa) <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True)) Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
Hilo.Start() Hilo.Start()
Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion) Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
Catch ex As Exception Catch ex As Exception
@@ -3979,7 +3979,7 @@ Partial Class Clientes
End If End If
End If End If
End Sub End Sub
Private Sub MandaCorreoEstadoCuenta(File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False) Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para) Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
'a.GuardaLog() 'a.GuardaLog()
@@ -3992,7 +3992,7 @@ Partial Class Clientes
If Envio AndAlso GuardarBitacora Then If Envio AndAlso GuardarBitacora Then
Using ObjBitacora As New ClsOIEventos Using ObjBitacora As New ClsOIEventos
ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente) ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", CveUsuario, CveEmpresa, CveCliente:=CveCliente)
End Using End Using
End If End If

View File

@@ -8,16 +8,16 @@
text-align: left; text-align: left;
} }
.GVConciliacionemitidasSAT tr th:nth-child(6) { .GVConciliacionemitidasSAT tr th:nth-child(7) {
text-align: center; text-align: center;
} }
.GVConciliacionemitidasSAT tr td:nth-child(6) { .GVConciliacionemitidasSAT tr td:nth-child(7) {
text-align: right; text-align: right;
} }
.GVConciliacionemitidasSAT tr th:nth-child(7), .GVConciliacionemitidasSAT tr th:nth-child(8),
.GVConciliacionemitidasSAT tr td:nth-child(7) { .GVConciliacionemitidasSAT tr td:nth-child(8) {
text-align: center; text-align: center;
} }
</style> </style>
@@ -35,6 +35,80 @@
<asp:UpdatePanel ID="UpDatosReporte" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatosReporte" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria">
<div class="portlet-title portlet-filterT smalltitle" style="min-height: 51px;">
<div class="tools">
<asp:Button ID="BtnConsultar" OnClick="BtnConsultar_Click" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1" style="padding-top: 13px; display: none;">Tipo: </label>
<div class="col-md-2" style="display: none;">
<asp:ListBox ID="DdlTipoComprobante" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
<asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
<asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
<asp:ListItem Text="Remisión" Value="Rem"></asp:ListItem>
<asp:ListItem Text="Cotización" Value="Cot"></asp:ListItem>
<asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
<asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
<asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
<asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
</asp:ListBox>
</div>
<div class="col-md-2" style="padding-top: 13px;" >
<asp:DropDownList ID="ddlRegistroen" CssClass="select2me form-control " Width="100%" runat="server">
<asp:ListItem Text="Todos" Value="0"></asp:ListItem>
<asp:ListItem Text="SIG" Value="1"></asp:ListItem>
<asp:ListItem Text="SAT" Value="2"></asp:ListItem>
<asp:ListItem Text="SIG Sin Encontrar SAT" Value="3"></asp:ListItem>
<asp:ListItem Text="SAT Sin Encontrar SIG" Value="4"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1 truncate" style="padding-top: 13px;">
Fecha Inicio:
</div>
<div class="col-md-1" style="padding-top: 9px;">
<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="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</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>
<ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
<div class="col-md-1 truncate" style="padding-top: 13px;">
Fecha Fin:
</div>
<div class="col-md-1" style="padding-top: 9px;">
<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="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<span class="input-group-btn ">
<asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
</div>
<ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
<ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<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="Valida"></asp:CompareValidator>
<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>
</div>
</div>
</div>
</div>
<div class="portlet-body" style="display: none">
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="portlet light xspadding bordered " id="PorletDatos" style="margin-bottom: 0px;"> <div class="portlet light xspadding bordered " id="PorletDatos" style="margin-bottom: 0px;">
<div class="portlet-title"> <div class="portlet-title">
@@ -52,8 +126,13 @@
</div> </div>
<div class="portlet-body "> <div class="portlet-body ">
<asp:GridView ID="GVConciliacionemitidasSAT" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVConciliacionemitidasSAT" AutoGenerateColumns="False" <asp:GridView ID="GVConciliacionemitidasSAT" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVConciliacionemitidasSAT" AutoGenerateColumns="False"
DataKeyNames="FolioFiscal,TipoDocto,ImporteTotal,Estatus,Fecha,Moneda,RFCReceptor,CveEmpresa,RutaXml,RFCEmisor,TipoDoctoTexto"> DataKeyNames="FolioFiscal,TipoDocto,ImporteTotal,Estatus,Fecha,Moneda,RFCReceptor,CveEmpresa,RutaXml,RFCEmisor,TipoDoctoTexto" OnRowDataBound="GVConciliacionemitidasSAT_RowDataBound">
<Columns> <Columns>
<asp:TemplateField HeaderText=" ">
<ItemTemplate>
<asp:Label runat="server" Text='<%# Eval("TipoText")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tipo documento"> <asp:TemplateField HeaderText="Tipo documento">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lbltipoDocto" runat="server" Text='<%# Eval("TipoDoctoTexto")%>'> </asp:Label> <asp:Label ID="lbltipoDocto" runat="server" Text='<%# Eval("TipoDoctoTexto")%>'> </asp:Label>
@@ -91,12 +170,13 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Estatus"> <asp:TemplateField HeaderText="Estatus">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblestatus" runat="server" Text='<%# Eval("EstatusFactura")%>'> </asp:Label> <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Xml" Visible="false"> <asp:TemplateField HeaderText="Xml" >
<ItemTemplate> <ItemTemplate>
<%--<asp:Label ID="lblrutaXml" runat="server" Text='<%# Eval("RutaXml")%>'> </asp:Label>--%> <%--<asp:Label ID="lblrutaXml" runat="server" Text='<%# Eval("RutaXml")%>'> </asp:Label>--%>
<asp:HyperLink ID="HypXml" runat="server" target="_blank"><i class="fa fa-download" aria-hidden="true"></i>XML</asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText=""> <asp:TemplateField HeaderText="">
@@ -153,7 +233,6 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
<script> <script>
$('#DModalDefaults').modal();
function FiltrarTabla(idtxt, idtable, idcontador) { function FiltrarTabla(idtxt, idtable, idcontador) {
if ($('' + idtxt).val() == '') { $('table' + idtable + ' tr').css('display', 'table-row'); } if ($('' + idtxt).val() == '') { $('table' + idtable + ' tr').css('display', 'table-row'); }

File diff suppressed because it is too large Load Diff

View File

@@ -10,12 +10,32 @@
table.table > tbody > tr.Grupo1 { table.table > tbody > tr.Grupo1 {
background-color: #CCC !important; background-color: #CCC !important;
cursor:pointer; cursor: pointer;
} }
table.table > tbody > tr.Grupo2 { table.table > tbody > tr.Grupo2 {
background-color: #DDD !important; background-color: #DDD !important;
cursor:pointer; cursor: pointer;
}
.GVRepConciliacionSatGET > tbody > tr > td:not(:nth-child(1)) {
text-align: center;
}
.GVRepConciliacionSatGET tr:not(.Grupo0):not(.Grupo3) .showhideicon {
width: 14px;
height: 14px;
font-size: 7px;
display: block;
background-image: url(/Metronic/assets/global/img/portlet-collapse-icon-white.png);
}
.GVRepConciliacionSatGET tr:not(.Grupo0):not(.Grupo3).hidex .showhideicon {
background-image: url(/Metronic/assets/global/img/portlet-expand-icon-white.png);
}
.GVRepConciliacionSatGET .bactions {
width: 5px;
} }
</style> </style>
</asp:Content> </asp:Content>
@@ -25,7 +45,7 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li><a onclick="javascript:AbrirVentana('/Ventas/SolicitudesSAT.aspx?Masterimpoup=true',1400);"><i class="fa fa-dropbox"></i>Solicitudes SAT </a></li> <li><a onclick="javascript:AbrirVentana('/Ventas/SolicitudesSAT.aspx?tipo=2&Masterimpoup=true',1400);"><i class="fa fa-dropbox"></i>Solicitudes SAT </a></li>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -42,8 +62,8 @@
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row">
<label class="col-md-1" style="padding-top: 13px; display:none;">Tipo: </label> <label class="col-md-1" style="padding-top: 13px; display: none;">Tipo: </label>
<div class="col-md-2" style="display:none;"> <div class="col-md-2" style="display: none;">
<asp:ListBox ID="DdlTipoComprobante" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"> <asp:ListBox ID="DdlTipoComprobante" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
<asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem> <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
<asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem> <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
@@ -99,7 +119,7 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="upDatosRepC" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="upDatosRepC" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GVRepConciliacionSatGET" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" <asp:GridView ID="GVRepConciliacionSatGET" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall GVRepConciliacionSatGET" AutoGenerateColumns="False"
DataKeyNames="anio,Mes,MesText,Dia,GRUPOCve,Grupo,CFDISIG,CFDISAT,CFDISIGSinSAT,CFDISATSinSIG" OnRowDataBound="GVRepConciliacionSatGET_RowDataBound"> DataKeyNames="anio,Mes,MesText,Dia,GRUPOCve,Grupo,CFDISIG,CFDISAT,CFDISIGSinSAT,CFDISATSinSIG" OnRowDataBound="GVRepConciliacionSatGET_RowDataBound">
<Columns> <Columns>
<asp:TemplateField HeaderText=" "> <asp:TemplateField HeaderText=" ">
@@ -109,26 +129,36 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="SIG"> <asp:TemplateField HeaderText="SIG">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblcFDISIG" runat="server" Text='<%# Eval("CFDISIG")%>'> </asp:Label> <asp:HyperLink ID="HypSIG" runat="server"><%# Eval("CFDISIG")%></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="SAT"> <asp:TemplateField HeaderText="SAT">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblcFDISAT" runat="server" Text='<%# Eval("CFDISAT")%>'> </asp:Label> <asp:HyperLink ID="HypSAT" runat="server"><%# Eval("CFDISAT")%></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Sin Encontrar SAT"> <asp:TemplateField HeaderText="Sin Encontrar SAT">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblcFDISIGSinSAT" runat="server" Text='<%# Eval("CFDISIGSinSAT")%>'> </asp:Label> <asp:HyperLink ID="HypSIGnoSAT" runat="server"><%# Eval("CFDISIGSinSAT")%></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Sin Encontrar SIG"> <asp:TemplateField HeaderText="Sin Encontrar SIG">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblcFDISATSinSIG" runat="server" Text='<%# Eval("CFDISATSinSIG")%>'> </asp:Label> <asp:HyperLink ID="HypSatnoSIG" runat="server"><%# Eval("CFDISATSinSIG")%></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderStyle-CssClass="bactions">
<ItemTemplate>
<span class="showhideicon"></span>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderStyle-CssClass="bactions">
<ItemTemplate>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<%--<CR:CrystalReportViewer ID="reports" runat="server" AutoDataBind="true"></CR:CrystalReportViewer>--%>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
@@ -157,6 +187,14 @@
$(this).show(); $(this).show();
} }
}); });
//
$('.Grupo2').removeClass('hidex');
$('.Grupo2').each(function () {
let gmes = $(this).attr('gmes');
if (Grupo3Show.indexOf(gmes) == -1) {
$(this).addClass('hidex');
}
});
} }
$('body').on('click', 'tr.Grupo1 ', function (e) { $('body').on('click', 'tr.Grupo1 ', function (e) {
let ganio = $(this).attr('ganio'); let ganio = $(this).attr('ganio');
@@ -179,6 +217,15 @@
$(this).hide(); $(this).hide();
} }
}); });
$('.Grupo1').removeClass('hidex');
$('.Grupo1').each(function () {
let gmes = $(this).attr('gmes');
let ganio = $(this).attr('ganio');
if (Grupo2hide.indexOf(gmes) > -1) {
$(this).addClass('hidex');
}
});
} }
function ADSBegin() { function ADSBegin() {
showhideg3(); showhideg3();

View File

@@ -10,10 +10,48 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas
{ {
const string rqFechaInicio = "FechaInicio"; const string rqFechaInicio = "FechaInicio";
const string rqFechaFin = "FechaFin"; const string rqFechaFin = "FechaFin";
public string RfechaI
{
get
{
return ViewState["RfechaI"].ToString();
}
set { ViewState["RfechaI"] = value; }
}
public string RfechaF
{
get
{
return ViewState["RfechaF"].ToString();
}
set { ViewState["RfechaF"] = value; }
}
protected void Page_Load(object sender, EventArgs e) protected void Page_Load(object sender, EventArgs e)
{ {
if (!IsPostBack) if (!IsPostBack)
{ {
//CrystalDecisions.CrystalReports.Engine.ReportDocument cryRpt = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
//cryRpt.Load(String.Format("C:\\Proyectos\\wwwSIG\\Empresas\\Grales\\Formatos\\CatPS.rpt", UsuarioActual.Empresa.Ruta));
//System.Data.DataTable DtDatos = new System.Data.DataTable();
//using (ClsProductosServicios ObjPS = new ClsProductosServicios())
//{
// if (ObjPS.GetPSLite(-1, 119, "-1", "-1", "02541", -1, -1, -1, -1))
// {
// DtDatos = ObjPS.DtResultados;
// }
//}
//cryRpt.SetDataSource(DtDatos);
//CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo coninfo = new CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo();
//cryRpt.
////cryRpt.SetDatabaseLogon("JCaudillo", "JCau127*953");// 293357
//reports.ReportSource = cryRpt;
//reports.RefreshReport();
//// reports.Refresh();
DateTime fecha; DateTime fecha;
DateTime fechaInicio = DateTime.Now; DateTime fechaInicio = DateTime.Now;
DateTime fechaFin = DateTime.Now; DateTime fechaFin = DateTime.Now;
@@ -33,10 +71,10 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas
protected void CargaRepConciliacionSatGET() protected void CargaRepConciliacionSatGET()
{ {
string RtipoDocto, RfechaI, RfechaF; string RtipoDocto;
RtipoDocto = "I"; RtipoDocto = "I";
RfechaI = txtFechaI.Text.ToDateTime().ToString(); RfechaI = txtFechaI.Text.Length > 0 ? txtFechaI.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
RfechaF = txtFechaF.Text.ToDateTime().ToString(); RfechaF = txtFechaF.Text.Length > 0 ? txtFechaF.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
using (ClsGenerales ObjRepC = new ClsGenerales()) using (ClsGenerales ObjRepC = new ClsGenerales())
{ {
ObjRepC.RepConciliacionSatGET(UsuarioActual.CveEmpresa, RtipoDocto, RfechaI, RfechaF); ObjRepC.RepConciliacionSatGET(UsuarioActual.CveEmpresa, RtipoDocto, RfechaI, RfechaF);
@@ -55,11 +93,65 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas
protected void GVRepConciliacionSatGET_RowDataBound(object sender, GridViewRowEventArgs e) protected void GVRepConciliacionSatGET_RowDataBound(object sender, GridViewRowEventArgs e)
{ {
if(e.Row.RowType == DataControlRowType.DataRow) if (e.Row.RowType == DataControlRowType.DataRow)
{ {
e.Row.CssClass = string.Format("Grupo{0}", e.Row.DBCampo("GRUPOCve")); string fechaI = RfechaI;
string fechaF = RfechaF;
DateTime danio;
DateTime danioF;
int GRUPOCve = e.Row.DBCampo("GRUPOCve").ToString().ToEntero();
e.Row.CssClass = string.Format("Grupo{0}", GRUPOCve);
e.Row.Attributes.Add("ganio", string.Format("{0}", e.Row.DBCampo("anio"))); e.Row.Attributes.Add("ganio", string.Format("{0}", e.Row.DBCampo("anio")));
e.Row.Attributes.Add("gMes", string.Format("{0}", e.Row.DBCampo("Mes"))); e.Row.Attributes.Add("gMes", string.Format("{0}", e.Row.DBCampo("Mes")));
string navigateurl = "";
switch (GRUPOCve)
{
case 0:
break;
case 1:
danio = string.Format("{0}/01/01", e.Row.DBCampo("anio")).ToDateTime();
danioF = danio.AddYears(1).AddSeconds(-1);
if (RfechaI.ToDateTime() < danio)
{
fechaI = danio.ToString("yyyy/MM/dd");
}
if (RfechaF.ToDateTime() > danioF || RfechaF.Length == 0)
{
fechaF = danioF.ToString("yyyy/MM/dd HH:mm:ss");
}
break;
case 2:
danio = string.Format("{0}/{1}/01", e.Row.DBCampo("anio"), e.Row.DBCampo("Mes").Substring(4)).ToDateTime();
danioF = danio.AddMonths(1).AddSeconds(-1);
if (RfechaI.ToDateTime() < danio)
{
fechaI = danio.ToString("yyyy/MM/dd");
}
if (RfechaF.ToDateTime() > danioF || RfechaF.Length == 0)
{
fechaF = danioF.ToString("yyyy/MM/dd HH:mm:ss");
}
break;
case 3:
danio = string.Format("{0:yyyy/MM/dd}", e.Row.DBCampo("dia")).ToDateTime();
danioF = danio.AddDays(1).AddSeconds(-1);
if (RfechaI.ToDateTime() < danio)
{
fechaI = danio.ToString("yyyy/MM/dd");
}
if (RfechaF.ToDateTime() > danioF || RfechaF.Length == 0)
{
fechaF = danioF.ToString("yyyy/MM/dd HH:mm:ss");
}
break;
default:
break;
}
navigateurl = string.Format("{0}&{3}={1}&{4}={2}", navigateurl, fechaI, fechaF, rqFechaInicio, rqFechaFin);
e.Row.FCHyperLink("HypSIG").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=1{0}", navigateurl);
e.Row.FCHyperLink("HypSAT").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=2{0}", navigateurl);
e.Row.FCHyperLink("HypSIGnoSAT").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=3{0}", navigateurl);
e.Row.FCHyperLink("HypSatnoSIG").NavigateUrl = string.Format("/Ventas/RepConciliacionEmitidosSat.aspx?RegistroEn=4{0}", navigateurl);
} }
} }
} }

View File

@@ -131,22 +131,22 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ingreso"> <asp:TemplateField HeaderText="Fecha Ingreso">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblfechaIngreso" runat="server" Text='<%# Eval("FechaIngreso","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label> <asp:Label ID="lblfechaIngreso" runat="server" Text='<%# Eval("FechaIngreso","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaIngreso","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="id Solicitud"> <asp:TemplateField HeaderText="id Solicitud" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblidSolicitud" runat="server" Text='<%# Eval("idSolicitud")%>'> </asp:Label> <asp:Label ID="lblidSolicitud" runat="server" Text='<%# Eval("idSolicitud")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Inicio Solicitud"> <asp:TemplateField HeaderText="Fecha Inicio Solicitud">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblfechaInicioSolicitud" runat="server" Text='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label> <asp:Label ID="lblfechaInicioSolicitud" runat="server" Text='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaInicioSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Fin Solicitud"> <asp:TemplateField HeaderText="Fecha Fin Solicitud">
<ItemTemplate> <ItemTemplate>
<asp:Label ID="lblfechaFinSolicitud" runat="server" Text='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label> <asp:Label ID="lblfechaFinSolicitud" runat="server" Text='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy}")%>' data-toggle="tooltip" title='<%# Eval("FechaFinSolicitud","{0:dd/MM/yyyy HH:mm}")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Estatus"> <asp:TemplateField HeaderText="Estatus">
@@ -199,7 +199,7 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-sm-3 "> <%--<div class="col-sm-3 ">
Fecha Inicio: Fecha Inicio:
</div> </div>
<div class="col-sm-6"> <div class="col-sm-6">
@@ -224,8 +224,8 @@
<span class="input-group-btn"><a class="btn default lnkFechaFAdd"><i class="fa fa-calendar"></i></a></span> <span class="input-group-btn"><a class="btn default lnkFechaFAdd"><i class="fa fa-calendar"></i></a></span>
</div> </div>
</div> </div>--%>
<%--<div class="col-md-4" data-date-format="dd/mm/yyyy" style ="padding-right: 0px;"> <div class="col-md-4" data-date-format="dd/mm/yyyy" style ="padding-right: 0px;">
<div class="form-group form-md-line-input form-md-floating-label input-iconright"> <div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:TextBox ID="txtFechaIAdd" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox> <asp:TextBox ID="txtFechaIAdd" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
<asp:Label runat="server" Text="Fecha Inicio" AssociatedControlID="txtFechaIAdd"></asp:Label> <asp:Label runat="server" Text="Fecha Inicio" AssociatedControlID="txtFechaIAdd"></asp:Label>
@@ -258,6 +258,7 @@
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaFAdd" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<%--
<div class="col-md-2" style ="padding-top: 14px;padding-left: 0px;"> <div class="col-md-2" style ="padding-top: 14px;padding-left: 0px;">
<div class="input-group input-sm input-small date date-picker " style ="padding-left: 0px;" data-date-format="dd/mm/yyyy" > <div class="input-group input-sm input-small date date-picker " style ="padding-left: 0px;" data-date-format="dd/mm/yyyy" >
<span class="input-group-btn "> <span class="input-group-btn ">

View File

@@ -92,8 +92,8 @@ public partial class Ventas_SolicitudesSAT : ClsPaginas
protected void LnkSolicitarCFDI_Click(object sender, EventArgs e) protected void LnkSolicitarCFDI_Click(object sender, EventArgs e)
{ {
string FechaI = string.Format("{0:yyyy-MM-ddTHH}:{0:mm}:{0:ss}", txtFechaIAdd.Text.ToDateTime()); string FechaI = string.Format("{0:yyyy-MM-dd}T00:00:00", txtFechaIAdd.Text.ToDateTime());
string FechaF = string.Format("{0:yyyy-MM-ddTHH}:{0:mm}:{0:ss}", txtFechaFAdd.Text.ToDateTime()); string FechaF = string.Format("{0:yyyy-MM-dd}T23:59:59", txtFechaFAdd.Text.ToDateTime());
string direxe = string.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "Utilerias\\ADSUtilerias.exe"); string direxe = string.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "Utilerias\\ADSUtilerias.exe");

View File

@@ -7722,15 +7722,21 @@ Partial Class Ventas
'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS 'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS
If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then If (ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True AndAlso ObjFactura.TipodeComprobante = "Ingresos" AndAlso RemisionesLista.Count > 0) Then
Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
Row("PU") = Math.Round(Row("PU").ToString.ToDouble * ObjFactura.TipoCambio, 6) Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * ObjFactura.TipoCambio, 6)
Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
TotalCalculableImpuestos = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) - Row("Descuento").ToString.ToDecimal
TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString.ToDecimal)
Row("IVA") = Row("PorcentajeIVA")
Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
Row("IEPS") = Row("ImporteIEPS")
Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Next Next
Dim ImpuestosLocales As Double = 0 Dim ImpuestosLocales As Double = 0
@@ -7798,21 +7804,28 @@ Partial Class Ventas
'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS REGISTRO DIRECTO SIN VENTA 'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS REGISTRO DIRECTO SIN VENTA
ElseIf (EditoRemision = False AndAlso ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True) Then ElseIf (EditoRemision = False AndAlso ObjFactura.CveMoneda = 2 AndAlso ObjFactura.ConvertirPesos = True) Then
Dim TotalCalculableImpuestos, TotalCalculableImpuestosIVA As Decimal
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
Row("PU") = Math.Round(Row("PU").ToString.ToDouble * ObjFactura.TipoCambio, 6) Row("PU") = Math.Round(Row("PU").ToString.ToDecimal * ObjFactura.TipoCambio, 6)
Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
TotalCalculableImpuestos = (Row("Cantidad").ToString.ToDecimal * Row("PU").ToString.ToDecimal) - Row("Descuento").ToString.ToDecimal
TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + Row("PorcentajeIEPS").ToString.ToDecimal)
Row("IVA") = Row("PorcentajeIVA")
Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestosIVA, NumeroDecimales)
Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
Row("ImporteIEPS") = Math.Round(Row("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
Row("IEPS") = Row("ImporteIEPS")
Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) Row("Total") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales) Row("TotalImporte") = Math.Round(Row("Cantidad").ToString.ToDouble * Row("PU").ToString.ToDouble, NumeroDecimales)
Row("Descuento") = Math.Round(Row("Descuento").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteRetIVA") = Math.Round(Row("ImporteRetIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteRetISR") = Math.Round(Row("ImporteRetISR").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteIVA") = Math.Round(Row("ImporteIVA").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Row("ImporteIEPS") = Math.Round(Row("ImporteIEPS").ToString.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
Next Next
Dim ImpuestosLocales As Double = 0 Dim ImpuestosLocales As Double = 0
For Each gvr As GridViewRow In GvImpuestosLocales2.Rows For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
If gvr.RowType = DataControlRowType.DataRow Then If gvr.RowType = DataControlRowType.DataRow Then
gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio).FormatoNumero gvr.FCTextBox("TxtImpuestoLocalPS").Text = (gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal * ObjFactura.TipoCambio).FormatoNumero
ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio, NumeroDecimales) ImpuestosLocales += Math.Round(gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble * ObjFactura.TipoCambio, NumeroDecimales)
End If End If
Next Next
@@ -14259,7 +14272,7 @@ Partial Class Ventas
'AGREGA PS ADICIONAL 'AGREGA PS ADICIONAL
If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza AndAlso Not UsuarioActual.TienePermisoProceso(284) Then If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(284) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then
For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows
Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero
@@ -23526,12 +23539,15 @@ Partial Class Ventas
End If End If
For Each drow As DataRow In TmpDT.Rows For Each drow As DataRow In TmpDT.Rows
If DTCvePSCostos IsNot Nothing Then
For Each drow2 As DataRow In DTCvePSCostos.Rows For Each drow2 As DataRow In DTCvePSCostos.Rows
If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then
drow("Eliminar") = 1 drow("Eliminar") = 1
Exit For Exit For
End If End If
Next Next
End If
Next Next
Dim TmpDTView As New DataView(TmpDT) Dim TmpDTView As New DataView(TmpDT)