diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 1b805eda7..5f3c30c86 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -172,6 +172,9 @@ Public Class ClsClientes End Get End Property + Public Property CodigoRegimenFiscal As String + Public Property RegimenFiscal As String + #End Region Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) @@ -426,6 +429,9 @@ Public Class ClsClientes _BonificacionUsado = CBool(Data(0)("BonificacionUsado")) _CveSATEstado = Data(0)("CveSATEstado").ToString.ToEntero + _RegimenFiscal = Data(0)("RegimenFiscal").ToString + _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString + End If Retorno = True Catch ex As Exception @@ -435,6 +441,8 @@ Public Class ClsClientes Return Retorno End Function + + Public Function GetSiguienteCodigoCliente(CveEmpresa As Integer) As Integer Dim Codigo As Integer = 0 diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b4a2ef02c..1d01c1666 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8872,6 +8872,11 @@ Public Class ClsPaginas Dim TotalLetra = "" Dim FechaRecibo = "" + Dim RegimenFiscalCodigo As String = "" + Dim CFDIVersion As String = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", "4.0", "3.3") + + + 'DT PAGO Dim DTConceptosPago As New DataTable @@ -8896,6 +8901,47 @@ Public Class ClsPaginas DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra001ImpuestoDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra001TipoFactorDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra001TasaOCuotaDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra001ImporteDR", GetType(Decimal)) + + DTConceptosPagoRelacionado.Columns.Add("Tra002ImpuestoDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra002TipoFactorDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra002TasaOCuotaDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra002ImporteDR", GetType(Decimal)) + + DTConceptosPagoRelacionado.Columns.Add("Tra003ImpuestoDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra003TipoFactorDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra003TasaOCuotaDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Tra003ImporteDR", GetType(Decimal)) + + + DTConceptosPagoRelacionado.Columns.Add("Ret001ImpuestoDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret001TipoFactorDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret001TasaOCuotaDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret001ImporteDR", GetType(Decimal)) + + DTConceptosPagoRelacionado.Columns.Add("Ret002ImpuestoDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret002TipoFactorDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret002TasaOCuotaDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret002ImporteDR", GetType(Decimal)) + + DTConceptosPagoRelacionado.Columns.Add("Ret003ImpuestoDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret003TipoFactorDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret003TasaOCuotaDR", GetType(String)) + DTConceptosPagoRelacionado.Columns.Add("Ret003ImporteDR", GetType(Decimal)) + + + + '001 ISR + '002 IVA + '003 IEPS + 'Impuetos + 'Retenciones + + + Dim ObjBancos As New ClsBancos If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie") @@ -8938,6 +8984,14 @@ Public Class ClsPaginas params.Add(New ReportParameter("ClienteEstado", ObjClientes.Estado)) params.Add(New ReportParameter("ClienteCP", ObjClientes.CP)) params.Add(New ReportParameter("ClienteRFC", ObjClientes.RFC)) + + + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + If ObjClientes.CodigoRegimenFiscal.ToString.Length > 0 Then + RegimenFiscalCodigo = $"{ObjClientes.CodigoRegimenFiscal}-{ObjClientes.RegimenFiscal}" + End If + End If + End If ObjClientes.Dispose() @@ -8974,6 +9028,7 @@ Public Class ClsPaginas Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento") Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos") + If Version = "3.3" Then cfdVer = "http://www.sat.gob.mx/cfd/3" PagoVersion = "pago10" @@ -8981,6 +9036,19 @@ Public Class ClsPaginas cfdVer = "http://www.sat.gob.mx/cfd/4" End If + + If Version = "4.0" Then + + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + params.Add(New ReportParameter("CFDIVersion", Version)) + If ObjClientes.CodigoRegimenFiscal.ToString.Length > 0 Then + params.Add(New ReportParameter("RegimenFiscalCodigo", RegimenFiscalCodigo)) + End If + End If + End If + + + namespaces.AddNamespace(Prefijo, cfdVer) namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital") namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal") @@ -9044,7 +9112,92 @@ Public Class ClsPaginas If Version = "4.0" Then DrRelacionado("ObjetoImpDR") = Relacionado.Attributes("ObjetoImpDR").Value DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").Value + + + If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso Version = "4.0" Then + + + + ' Relacionado.SelectSingleNode($"//{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces) + + 'Dim NodoImpuestosDR As XmlNode = Relacionado.SelectSingleNode($"{PagoVersion}:ImpuestosDR", namespaces) + 'Dim NodoTrasladosDR As XmlNode = NodoImpuestosDR.SelectSingleNode($"{PagoVersion}:TrasladosDR", namespaces) + 'Dim TrasladoDR As XmlNodeList = NodoTrasladosDR.ChildNodes + + Dim NodosTraslados = Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:TrasladosDR/{PagoVersion}:TrasladoDR", namespaces) + For Each NodoTraslados As XmlNode In NodosTraslados + + Dim ImpuestoDR As String = ValorXML(NodoTraslados, "ImpuestoDR") ' ImpuestoDR + Dim TipoFactor As String = ValorXML(NodoTraslados, "TipoFactorDR") + Dim TasaOCuotaDR As String = ValorXML(NodoTraslados, "TasaOCuotaDR") + Dim ImporteDR As Decimal = ValorXML(NodoTraslados, "ImporteDR").ToDecimal + + + If ImpuestoDR = "001" Then + DrRelacionado("Tra001ImpuestoDR") = ImpuestoDR + DrRelacionado("Tra001TipoFactorDR") = TipoFactor + DrRelacionado("Tra001TasaOCuotaDR") = TasaOCuotaDR + DrRelacionado("Tra001ImporteDR") = ImporteDR + End If + + If ImpuestoDR = "002" Then + DrRelacionado("Tra002ImpuestoDR") = ImpuestoDR + DrRelacionado("Tra002TipoFactorDR") = TipoFactor + DrRelacionado("Tra002TasaOCuotaDR") = TasaOCuotaDR + DrRelacionado("Tra002ImporteDR") = ImporteDR + End If + + If ImpuestoDR = "003" Then + DrRelacionado("Tra003ImpuestoDR") = ImpuestoDR + DrRelacionado("Tra003TipoFactorDR") = TipoFactor + DrRelacionado("Tra003TasaOCuotaDR") = TasaOCuotaDR + DrRelacionado("Tra003ImporteDR") = ImporteDR + End If + + Next + + + For Each NodoRetenciiones As XmlNode In Relacionado.SelectNodes($"{PagoVersion}:ImpuestosDR/{PagoVersion}:RetencionesDR/{PagoVersion}:RetencionDR", namespaces) + + + Dim ImpuestoDR As String = ValorXML(NodoRetenciiones, "ImpuestoDR") ' ImpuestoDR + Dim TipoFactor As String = ValorXML(NodoRetenciiones, "TipoFactorDR") + Dim TasaOCuotaDR As String = ValorXML(NodoRetenciiones, "TasaOCuotaDR") + Dim ImporteDR As Decimal = ValorXML(NodoRetenciiones, "ImporteDR").ToDecimal + + + If ImpuestoDR = "001" Then + DrRelacionado("Ret001ImpuestoDR") = ImpuestoDR + DrRelacionado("Ret001TipoFactorDR") = TipoFactor + DrRelacionado("Ret001TasaOCuotaDR") = TasaOCuotaDR + DrRelacionado("Ret001ImporteDR") = ImporteDR + End If + + If ImpuestoDR = "002" Then + DrRelacionado("Ret002ImpuestoDR") = ImpuestoDR + DrRelacionado("Ret002TipoFactorDR") = TipoFactor + DrRelacionado("Ret002TasaOCuotaDR") = TasaOCuotaDR + DrRelacionado("Ret002ImporteDR") = ImporteDR + End If + + If ImpuestoDR = "003" Then + DrRelacionado("Ret003ImpuestoDR") = ImpuestoDR + DrRelacionado("Ret003TipoFactorDR") = TipoFactor + DrRelacionado("Ret003TasaOCuotaDR") = TasaOCuotaDR + DrRelacionado("Ret003ImporteDR") = ImporteDR + End If + + Next + + + + + End If + DTConceptosPagoRelacionado.Rows.Add(DrRelacionado) + + + Next End If diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index e0111b63a..7e0bae4ee 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -2581,7 +2581,7 @@ Partial Class Bancos_PopIECompras TimpocambioGeneral = TCImpuestos Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion) '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra - If tipoCambioPago < tipoCambioCompra AndAlso CveMonedaCompra = 2 Then + If tipoCambioPago < tipoCambioCompra AndAlso CveMonedaCompra = 2 Or (CveMonedaCompra = 2 AndAlso UsuarioActual.CveEmpresa = 119 AndAlso PagoMismoMes = False AndAlso tipoCambioPago < TCUltimaFluctuacion) Then ImporteMovimiento = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioCompraValuacion) 'Añadimos la diferencia de ganancia en la venta ImporteMovimiento -= ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IVA ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA @@ -2604,9 +2604,10 @@ Partial Class Bancos_PopIECompras If CveMoneda <> 1 OrElse CveMonedaCompra <> 1 Then IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion) - '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra - If tipoCambioPago > tipoCambioCompra AndAlso CveMonedaCompra = 2 Then + Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion) + '' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra + + If tipoCambioPago > tipoCambioCompra AndAlso CveMonedaCompra = 2 Or (CveMonedaCompra = 2 AndAlso UsuarioActual.CveEmpresa = 119 AndAlso PagoMismoMes = False AndAlso tipoCambioPago > TCUltimaFluctuacion) Then ImporteMovimiento = ((MovimientoPagar.Total * PorcentajePago) * tipoCambioCompraValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta ImporteMovimiento -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA diff --git a/Empresas/119/Formatos/ReciboDePago.rdlc b/Empresas/119/Formatos/ReciboDePago.rdlc index 21a9869ea..abf548d0c 100644 --- a/Empresas/119/Formatos/ReciboDePago.rdlc +++ b/Empresas/119/Formatos/ReciboDePago.rdlc @@ -416,7 +416,16 @@ - 7.35332cm + 2.13038cm + + + 1.64459cm + + + 1.80415cm + + + 1.76995cm 1.8cm @@ -439,7 +448,7 @@ - 0.49cm + 0.56938cm @@ -474,8 +483,12 @@ 2pt + 4 + + + @@ -689,7 +702,7 @@ - 0.44125cm + 0.54021cm @@ -721,8 +734,12 @@ 2pt + 4 + + + @@ -924,6 +941,2793 @@ + + 0.07938cm + + + + + true + true + + + + + Impuesto + + + + + + + Textbox108 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo + + + + + + + Textbox109 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Base + + + + + + + Textbox110 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tipo Factor + + + + + + + Textbox111 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Tasa/Cuota + + + + + + + Textbox112 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox113 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + OR Fields!Tra002ImporteDR.Value > 0 + OR Fields!Tra003ImporteDR.Value > 0 + OR Fields!Ret001ImporteDR.Value > 0 + OR Fields!Ret002ImporteDR.Value > 0 + OR Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra001TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra001TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra001ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox4 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox13 + + = IIF( + Fields!Tra001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra002TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra002TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra002ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox67 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox68 + + = IIF( + Fields!Tra002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox61 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Traslado + + + + + + + Textbox204 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra003TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra003TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Tra003ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox51 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox55 + + = IIF( + Fields!Tra003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + ISR + + + + + + + Textbox61 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret001TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret001TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret001ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox75 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox76 + + = IIF( + Fields!Ret001ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IVA + + + + + + + Textbox61 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret002TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret002TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret002ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox85 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox86 + + = IIF( + Fields!Ret002ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + IEPS + + + + + + + Textbox59 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Retención + + + + + + + Textbox207 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImpPagado.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret003TipoFactorDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret003TasaOCuotaDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Ret003ImporteDR.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox95 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox96 + + = IIF( + Fields!Ret003ImporteDR.Value > 0 + ,False,True) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + @@ -935,6 +3739,9 @@ + + + @@ -944,13 +3751,23 @@ + + + + + + + + + + DataSet2 4.62704cm - 0.93125cm - 20.53564cm + 1.66521cm + 20.53139cm 1 + + + + = IIF( Parameters!RegimenFiscalCodigo.Value <> "ND-", "<b>Reg. Fiscal:</b> " & Parameters!RegimenFiscalCodigo.Value,"") + + + + + Textbox2 0.03528cm @@ -2060,7 +4892,7 @@ Textbox45 - 7.94284cm + 8.92709cm 3.30199cm 16.51971cm 5 @@ -2089,7 +4921,7 @@ Textbox5 - 7.67825cm + 8.6625cm 0.0882cm 20.53564cm 6 @@ -2108,7 +4940,7 @@ External =Parameters!QR.Value FitProportional - 3.1271in + 3.5146in 6.51771in 1.3in 1.5in @@ -2134,7 +4966,7 @@ Textbox5 - 11.36179cm + 12.34604cm 0.11466cm 20.5314cm 8 @@ -2150,7 +4982,7 @@ - 11.47645cm + 13.54549cm - 0.41981cm + 0.45509cm true true @@ -2429,6 +5261,7 @@ Textbox35 + 0cm 17.09769cm 0.41981cm 2.94979cm @@ -2475,6 +5308,7 @@ Textbox29 + 0.03528cm 0.31132cm 0.41981cm 6.8491cm @@ -2523,6 +5357,7 @@ Textbox31 + 0cm 9.1611cm 0.41981cm 6.02198cm @@ -2657,6 +5492,110 @@ TipoCambioDR System.String + + RetIVA + System.Float + + + RetISR + System.Float + + + Tra001ImpuestoDR + System.String + + + Tra001TipoFactorDR + System.String + + + Tra001TasaOCuotaDR + System.String + + + Tra001ImporteDR + System.Float + + + Tra002ImpuestoDR + System.String + + + Tra002TipoFactorDR + System.String + + + Tra002TasaOCuotaDR + System.String + + + Tra002ImporteDR + System.Float + + + Tra003ImpuestoDR + System.String + + + Tra003TipoFactorDR + System.String + + + Tra003TasaOCuotaDR + System.String + + + Tra003ImporteDR + System.Float + + + Ret001ImpuestoDR + System.String + + + Ret001TipoFactorDR + System.String + + + Ret001TasaOCuotaDR + System.String + + + Ret001ImporteDR + System.Float + + + Ret002ImpuestoDR + System.String + + + Ret002TipoFactorDR + System.String + + + Ret002TasaOCuotaDR + System.String + + + Ret002ImporteDR + System.Float + + + Ret003ImpuestoDR + System.String + + + Ret003TipoFactorDR + System.String + + + Ret003TasaOCuotaDR + System.String + + + Ret003ImporteDR + System.Float + DataSet @@ -2963,6 +5902,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Empresas/Grales/Formatos/ReciboDePago.rdlc b/Empresas/Grales/Formatos/ReciboDePago.rdlc index d38828fdb..b1728529d 100644 --- a/Empresas/Grales/Formatos/ReciboDePago.rdlc +++ b/Empresas/Grales/Formatos/ReciboDePago.rdlc @@ -398,7 +398,7 @@ DataSet2 - 2.55889cm + 2.78114cm 0.30837cm 1.09cm 20.35756cm @@ -715,7 +715,7 @@ - 0.6cm + 0.54708cm @@ -979,6 +979,303 @@ + + 0.46771cm + + + + + true + true + + + + + Ret IVA: + + + + + + + Textbox2 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RetIVA.Value + + + + + + + Textbox4 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Ret. ISR: + + + + + + + Textbox7 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!RetISR.Value + + + + + + + Textbox15 + + =IIF( Fields!RetIVA.Value > 0 or Fields!RetISR.Value > 0 , True,False) + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + @@ -1000,13 +1297,17 @@ + + + + DataSet2 - 4.59176cm + 4.65526cm 0.30837cm - 1.09cm + 1.50479cm 20.32362cm 1 + + + + = IIF( Parameters!RegimenFiscalCodigo.Value <> "ND-", "<b>Reg. Fiscal:</b> " & Parameters!RegimenFiscalCodigo.Value,"") + + + + + Textbox2 0.30837cm - 0.99355in + 0.98591in 5.35046in 4 - - - 11.92271cm + 11.71431cm