diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 2b603bb68..cb1e95310 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1581,6 +1581,22 @@ Public Class ClsClientes Try SqlAdapter.Fill(Data) 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 OnError("Ocurrió un error al agregar el cliente", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 79167e0a2..d64782ccb 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -133,6 +133,24 @@ Public Class ClsGenerales End With 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 Dim retorno As Boolean = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 150011e9b..761bcfd3e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3985,9 +3985,11 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad/RepBalanzaComprobacion.aspx".ToUpper(), 344) PaginaDict.Add("/Contabilidad/CatCuentasSIG.aspx".ToUpper(), 405) 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 - 'CONTABILIDAD2 + 'CONTABILIDAD2 #Region "Contabilidad2" PaginaDict.Add("/Contabilidad2/RepAnexoCatalogo.aspx".ToUpper(), 580) PaginaDict.Add("/Contabilidad2/RepBalanzaComprobacion.aspx".ToUpper(), 582) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index f84d6bdb4..6e71943d2 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -613,6 +613,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx params.Add(New ReportParameter("SaldoFinalLibros", SaldoFinalLibros.FormatoNumero)) Dim SaldoFinalContabilidad As Double = 0 + Dim SaldoFinalContabilidadComplementaria As Double = 0 If DdlCuenta.SelectedValue.ToEntero > 0 Then Dim CveCuenta As Integer = 0 Dim CveCuentaComplementaria As Integer = 0 @@ -636,7 +637,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx If CveCuentaComplementaria > 0 Then If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "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 @@ -644,6 +645,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx End If params.Add(New ReportParameter("SaldoFinalContabilidad", (SaldoFinalContabilidad.FormatoNumero))) + params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero))) params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero)) If Imagen.Exists Then diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 79d753686..1027f7906 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2322,7 +2322,9 @@ Partial Class Bancos_IE ElseIf CveProveedor > 0 Then CveConceptoCompra = 21 'Pago a Proveedor/CAncelacion Anticipos CveConceptoContable = 30 'Bancos - CvePlantillaPoliza = 7 + CvePlantillaPoliza = 7 + ElseIf CveCliente > 0 Then + CvePlantillaPoliza = 11 End If End If diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx b/Contabilidad/CatClasificacionPorcentaje.aspx new file mode 100644 index 000000000..728874eca --- /dev/null +++ b/Contabilidad/CatClasificacionPorcentaje.aspx @@ -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" %> + + + + + + + + Catálogo de Clasificacion Porcentaje + + + + +
  • + +
    • + +     +     +     + + + + + + + + + + + + + <%----%> + + +
    + +   +
    +     + + + +     + + + + + +     + + +     + + + +     +     +     + + diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx.vb b/Contabilidad/CatClasificacionPorcentaje.aspx.vb new file mode 100644 index 000000000..4c7f79bc3 --- /dev/null +++ b/Contabilidad/CatClasificacionPorcentaje.aspx.vb @@ -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 diff --git a/Empresas/146/Formatos/Factura.rdlc b/Empresas/146/Formatos/Factura.rdlc index 5a5a4dc3a..b1b2951f4 100644 --- a/Empresas/146/Formatos/Factura.rdlc +++ b/Empresas/146/Formatos/Factura.rdlc @@ -23,9 +23,9 @@ Textbox3 1.37762in - 5.662in + 5.81465in 0.5cm - 2.24597in + 2.09332in @@ -73,9 +73,9 @@ Textbox3 0.93484in - 5.662in + 5.81465in 0.5cm - 2.24597in + 2.09332in 1 - - ; Método de Pago: - - - - =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.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 + ). 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 - - - - - - Textbox15 - - - - - 1pt - - - - 1pt - - - - 1pt - - - - 1pt - - #ff1037 - Middle - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Parameters!UsoCFDI.Value - - - - - - - Textbox17 - - - 2pt - 2pt - 2pt - 2pt - - - - - - 1.56188cm @@ -3462,13 +3355,12 @@ - DsOC 6.91306cm 0.11468cm - 5.76188cm + 5.16188cm 14.34413cm 31 + + true + + + + + Uso CFDI: + + + + =Parameters!UsoCFDI.Value + + + + + + + + + Régime: + + + + Personas Físicas con Actividades Empresariales y Profesionales + + + + + + + + + Método de Pago: + + + + + + + + =IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value) + + + + + + + + + + + Textbox10 + 0.99561in + 3.82301in + 0.62735in + 1.99164in + 37 + + + Top + + 25.59192cm + + true + true + + + + + SALDO FINAL SEGUN CONTABILIDAD COMPLEMENTARIA: + + + + + + + + + + + + + + + + Textbox2 + 11.06042cm + 0.42362cm + 477.16077pt + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SaldoFinalContabilidadComplementaria.Value + + + + + + + + + + + + + + + + Textbox2 + 11.06042cm + 16.83317cm + 0.42362cm + 84.80665pt + 20 + + + 2pt + 2pt + 2pt + 2pt + + - 6.69322in + 6.6828in @@ -35,6 +35,80 @@ + + +
    +
    +
    + + +
    +
    +
    + + +
    + + + + + + + +
    +
    + Fecha Inicio: +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin: +
    +
    +
    + + + + +
    + + + + + + +
    +
    +
    +
    + +
    +     +
    @@ -52,8 +126,13 @@
    + DataKeyNames="FolioFiscal,TipoDocto,ImporteTotal,Estatus,Fecha,Moneda,RFCReceptor,CveEmpresa,RutaXml,RFCEmisor,TipoDoctoTexto" OnRowDataBound="GVConciliacionemitidasSAT_RowDataBound"> + + + + + @@ -91,12 +170,13 @@ - + - + <%-- --%> + XML @@ -153,7 +233,6 @@