This commit is contained in:
2022-06-10 14:42:34 -07:00
5 changed files with 3481 additions and 37 deletions

View File

@@ -172,6 +172,9 @@ Public Class ClsClientes
End Get End Get
End Property End Property
Public Property CodigoRegimenFiscal As String
Public Property RegimenFiscal As String
#End Region #End Region
Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
@@ -426,6 +429,9 @@ Public Class ClsClientes
_BonificacionUsado = CBool(Data(0)("BonificacionUsado")) _BonificacionUsado = CBool(Data(0)("BonificacionUsado"))
_CveSATEstado = Data(0)("CveSATEstado").ToString.ToEntero _CveSATEstado = Data(0)("CveSATEstado").ToString.ToEntero
_RegimenFiscal = Data(0)("RegimenFiscal").ToString
_CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
End If End If
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception
@@ -435,6 +441,8 @@ Public Class ClsClientes
Return Retorno Return Retorno
End Function End Function
Public Function GetSiguienteCodigoCliente(CveEmpresa As Integer) As Integer Public Function GetSiguienteCodigoCliente(CveEmpresa As Integer) As Integer
Dim Codigo As Integer = 0 Dim Codigo As Integer = 0

View File

@@ -8878,6 +8878,11 @@ Public Class ClsPaginas
Dim TotalLetra = "" Dim TotalLetra = ""
Dim FechaRecibo = "" Dim FechaRecibo = ""
Dim RegimenFiscalCodigo As String = ""
Dim CFDIVersion As String = If(UsuarioActual.Empresa.Funcionalidad(350) = "1", "4.0", "3.3")
'DT PAGO 'DT PAGO
Dim DTConceptosPago As New DataTable Dim DTConceptosPago As New DataTable
@@ -8902,6 +8907,47 @@ Public Class ClsPaginas
DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String)) DTConceptosPagoRelacionado.Columns.Add("TipoCambioDR", GetType(String))
DTConceptosPagoRelacionado.Columns.Add("ObjetoImpDR", 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 Dim ObjBancos As New ClsBancos
If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then If ObjBancos.GetComplementoPagos(CveComplementoPago, CveIE, CveVenta, UsuarioActual.CveEmpresa) Then
Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie") Serie = ObjBancos.DtResultados.FiltroPrimeroValor("Serie")
@@ -8944,6 +8990,14 @@ Public Class ClsPaginas
params.Add(New ReportParameter("ClienteEstado", ObjClientes.Estado)) params.Add(New ReportParameter("ClienteEstado", ObjClientes.Estado))
params.Add(New ReportParameter("ClienteCP", ObjClientes.CP)) params.Add(New ReportParameter("ClienteCP", ObjClientes.CP))
params.Add(New ReportParameter("ClienteRFC", ObjClientes.RFC)) 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 End If
ObjClientes.Dispose() ObjClientes.Dispose()
@@ -8980,6 +9034,7 @@ Public Class ClsPaginas
Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento") Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento")
Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos") Dim validaElementoPago = XmlDoc.DocumentElement("cfdi:Conceptos")
If Version = "3.3" Then If Version = "3.3" Then
cfdVer = "http://www.sat.gob.mx/cfd/3" cfdVer = "http://www.sat.gob.mx/cfd/3"
PagoVersion = "pago10" PagoVersion = "pago10"
@@ -8987,6 +9042,19 @@ Public Class ClsPaginas
cfdVer = "http://www.sat.gob.mx/cfd/4" cfdVer = "http://www.sat.gob.mx/cfd/4"
End If 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(Prefijo, cfdVer)
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital") namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal") namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
@@ -9050,7 +9118,92 @@ Public Class ClsPaginas
If Version = "4.0" Then DrRelacionado("ObjetoImpDR") = Relacionado.Attributes("ObjetoImpDR").Value If Version = "4.0" Then DrRelacionado("ObjetoImpDR") = Relacionado.Attributes("ObjetoImpDR").Value
DrRelacionado("MonedaDR") = Relacionado.Attributes("MonedaDR").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) DTConceptosPagoRelacionado.Rows.Add(DrRelacionado)
Next Next
End If End If

View File

@@ -2581,7 +2581,7 @@ Partial Class Bancos_PopIECompras
TimpocambioGeneral = TCImpuestos TimpocambioGeneral = TCImpuestos
Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion) Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)
'' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra '' 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.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.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 ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA
@@ -2606,7 +2606,8 @@ Partial Class Bancos_PopIECompras
Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) Dim TCImpuestos As Decimal = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion) Dim tipoCambioCompraValuacion As Decimal = If(PagoMismoMes, tipoCambioCompra, TCUltimaFluctuacion)
'' si tiene funcionalidad de flucturación con ivas, tomar tipocambioCompra '' 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) * tipoCambioCompraValuacion) - ((MovimientoPagar.Total * PorcentajePago) * tipoCambioPago) 'Añadimos la diferencia de perdida en la venta 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.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 ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA

File diff suppressed because it is too large Load Diff

View File

@@ -398,7 +398,7 @@
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet2</DataSetName> <DataSetName>DataSet2</DataSetName>
<Top>2.55889cm</Top> <Top>2.78114cm</Top>
<Left>0.30837cm</Left> <Left>0.30837cm</Left>
<Height>1.09cm</Height> <Height>1.09cm</Height>
<Width>20.35756cm</Width> <Width>20.35756cm</Width>
@@ -715,7 +715,7 @@
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
<Height>0.6cm</Height> <Height>0.54708cm</Height>
<TablixCells> <TablixCells>
<TablixCell> <TablixCell>
<CellContents> <CellContents>
@@ -979,6 +979,303 @@
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow>
<Height>0.46771cm</Height>
<TablixCells>
<TablixCell>
<CellContents>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Ret IVA:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox4">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!RetIVA.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<Format>#,0.00</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Ret. ISR:</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox7</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox15">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!RetISR.Value</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
<Format>#,0.00</Format>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox17">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox17</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox18">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox18</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox20">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
<TablixCell>
<CellContents>
<Textbox Name="Textbox23">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox23</rd:DefaultName>
<Visibility>
<Hidden>=IIF( Fields!RetIVA.Value &gt; 0 or Fields!RetISR.Value &gt; 0 , True,False)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells>
</TablixRow>
</TablixRows> </TablixRows>
</TablixBody> </TablixBody>
<TablixColumnHierarchy> <TablixColumnHierarchy>
@@ -1000,13 +1297,17 @@
</TablixMember> </TablixMember>
<TablixMember> <TablixMember>
<Group Name="Detalles" /> <Group Name="Detalles" />
<TablixMembers>
<TablixMember />
<TablixMember />
</TablixMembers>
</TablixMember> </TablixMember>
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet2</DataSetName> <DataSetName>DataSet2</DataSetName>
<Top>4.59176cm</Top> <Top>4.65526cm</Top>
<Left>0.30837cm</Left> <Left>0.30837cm</Left>
<Height>1.09cm</Height> <Height>1.50479cm</Height>
<Width>20.32362cm</Width> <Width>20.32362cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
@@ -1676,7 +1977,7 @@
</TablixMembers> </TablixMembers>
</TablixRowHierarchy> </TablixRowHierarchy>
<DataSetName>DataSet1</DataSetName> <DataSetName>DataSet1</DataSetName>
<Top>6.12961cm</Top> <Top>6.44711cm</Top>
<Left>0.31556cm</Left> <Left>0.31556cm</Left>
<Height>1.69cm</Height> <Height>1.69cm</Height>
<Width>20.32067cm</Width> <Width>20.32067cm</Width>
@@ -1708,7 +2009,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>3.98116cm</Top> <Top>4.04466cm</Top>
<Left>0.30837cm</Left> <Left>0.30837cm</Left>
<Height>0.49cm</Height> <Height>0.49cm</Height>
<Width>20.32362cm</Width> <Width>20.32362cm</Width>
@@ -1898,10 +2199,25 @@
<TextAlign>Left</TextAlign> <TextAlign>Left</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>= IIF( Parameters!RegimenFiscalCodigo.Value &lt;&gt; "ND-", "&lt;b&gt;Reg. Fiscal:&lt;/b&gt; " &amp; Parameters!RegimenFiscalCodigo.Value,"")</Value>
<Style>
<FontFamily>Myriad Pro</FontFamily>
<FontSize>9pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Left>0.30837cm</Left> <Left>0.30837cm</Left>
<Height>0.99355in</Height> <Height>0.98591in</Height>
<Width>5.35046in</Width> <Width>5.35046in</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
<Style> <Style>
@@ -2099,11 +2415,6 @@
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns>
<Style />
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!UUIDPago.Value</Value> <Value>=Parameters!UUIDPago.Value</Value>
<Style> <Style>
@@ -2117,10 +2428,10 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox45</rd:DefaultName> <rd:DefaultName>Textbox45</rd:DefaultName>
<Top>8.41556cm</Top> <Top>8.73306cm</Top>
<Left>0.31556cm</Left> <Left>0.31556cm</Left>
<Height>3.43104cm</Height> <Height>2.98125cm</Height>
<Width>16.30472cm</Width> <Width>16.26945cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2147,7 +2458,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>8.15097cm</Top> <Top>8.46847cm</Top>
<Left>0.31261cm</Left> <Left>0.31261cm</Left>
<Height>0.0882cm</Height> <Height>0.0882cm</Height>
<Width>20.32362cm</Width> <Width>20.32362cm</Width>
@@ -2167,10 +2478,10 @@
<Source>External</Source> <Source>External</Source>
<Value>=Parameters!QR.Value</Value> <Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Top>3.31321in</Top> <Top>3.43821in</Top>
<Left>6.55731in</Left> <Left>6.67189in</Left>
<Height>1.3in</Height> <Height>1.17372in</Height>
<Width>1.5in</Width> <Width>1.38542in</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -2179,7 +2490,7 @@
</Style> </Style>
</Image> </Image>
</ReportItems> </ReportItems>
<Height>11.92271cm</Height> <Height>11.71431cm</Height>
<Style /> <Style />
</Body> </Body>
<Width>20.71612cm</Width> <Width>20.71612cm</Width>
@@ -2694,6 +3005,14 @@
<DataField>TipoCambioDR</DataField> <DataField>TipoCambioDR</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
</Field> </Field>
<Field Name="RetIVA">
<DataField>RetIVA</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="RetISR">
<DataField>RetISR</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
</Fields> </Fields>
<rd:DataSetInfo> <rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName> <rd:DataSetName>DataSet</rd:DataSetName>
@@ -3000,6 +3319,18 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="CFDIVersion">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RegimenFiscalCodigo">
<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>ce050101-4530-4332-90ec-6ac094336e40</rd:ReportID> <rd:ReportID>ce050101-4530-4332-90ec-6ac094336e40</rd:ReportID>