diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 22d6a995d..61c2854a9 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1416,7 +1416,7 @@ Partial Class Bancos_IE
End If
- If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
@@ -1538,7 +1538,7 @@ Partial Class Bancos_IE
DivOtrosIngresosEgresos.Visible = True
End If
- If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
@@ -1594,7 +1594,7 @@ Partial Class Bancos_IE
HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
IDCtaBeneficiario = ObjPersonal.IdCtaContPersonal
- If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
@@ -4498,7 +4498,7 @@ Partial Class Bancos_IE
End If
Try
- If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC)) Then
+ If (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC)) Then
If ObjAC Is Nothing Then
ErrorCancelar = True
@@ -4791,7 +4791,7 @@ Partial Class Bancos_IE
Dim IdPolizaNueva = -1
Dim FolioPolizaNueva = -1
- If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then
+ If (UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then
If ObjAC Is Nothing Then
ErrorCancelar = True
@@ -5119,7 +5119,7 @@ Partial Class Bancos_IE
Dim ErrorCompra = False
'Elimina la poliza
- If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then
If Not ObjAC.RemovePoliza(IDPoliza) Then
ErrorCompra = True
End If
diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb
index 7e0bae4ee..6d643bf30 100644
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -484,7 +484,7 @@ Partial Class Bancos_PopIECompras
End If
'SI USUARIO USA AMORTIZACIÓN CONTABLE
- If UsuarioActual.Empresa.UsaAC Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
Dim AC As New ClsAC
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
@@ -1834,20 +1834,24 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra
- If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
-
- If IdCtaContRetIVA > 0 Then
- IdCtaContable = IdCtaContRetIVA
- ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
+ If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
+
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If IdCtaContRetIVA > 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
End If
Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof.
If MovimientoPagar.ConceptoRetIVA > 0 Then
@@ -1887,18 +1891,22 @@ Partial Class Bancos_PopIECompras
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditable > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
- End If
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
+ End If
+
End If
Case 16 'Ret ISR X Acreditar
@@ -1934,18 +1942,21 @@ Partial Class Bancos_PopIECompras
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR > 0 Then
- IdCtaContable = IdCtaContRetISR
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR > 0 Then
+ IdCtaContable = IdCtaContRetISR
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 23 'Ret ISR Acreditable
@@ -1980,19 +1991,22 @@ Partial Class Bancos_PopIECompras
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISRAcreditable > 0 Then
- IdCtaContable = IdCtaContRetISRAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISRAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetISRAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 14 'Iva por Acreditar
@@ -2066,12 +2080,17 @@ Partial Class Bancos_PopIECompras
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+ End If
End If
- End If
-
+ End If
+
+
+
Case 19 'Iva Acreditable
If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
@@ -2205,9 +2224,10 @@ Partial Class Bancos_PopIECompras
IdCtaContableNoIVA = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
End If
- IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
-
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
+
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -2292,7 +2312,7 @@ Partial Class Bancos_PopIECompras
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
End If
@@ -2433,7 +2453,7 @@ Partial Class Bancos_PopIECompras
IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -2538,7 +2558,7 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = tipoCambioCompra
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
@@ -2561,7 +2581,7 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMX.RoundSQL
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
End If
@@ -2838,16 +2858,19 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = ImporteMX.RoundSQL
- 'Conta ContPAQ
- If IdCtaContRetIVACliente <> 0 Then
- IdCtaContable = IdCtaContRetIVACliente
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVACliente <> 0 Then
+ IdCtaContable = IdCtaContRetIVACliente
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2877,19 +2900,22 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal
End If
ImporteMovimiento = ImporteMovimiento.RoundSQL
- ImporteMX = ImporteMX.RoundSQL
-
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
- End If
- End If
+ ImporteMX = ImporteMX.RoundSQL
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -3070,20 +3096,23 @@ Partial Class Bancos_PopIECompras
ImporteMX = ImporteMovimiento * tipoCambioPago
End If
ImporteMovimiento = ImporteMovimiento.RoundSQL
- ImporteMX = ImporteMX.RoundSQL
-
- 'Conta ContPAQ
- If IdCtaContRetIVA <> 0 Then
- IdCtaContable = IdCtaContRetIVA
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
- End If
- End If
+ ImporteMX = ImporteMX.RoundSQL
+
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA <> 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -3115,17 +3144,20 @@ Partial Class Bancos_PopIECompras
ImporteMovimiento = ImporteMovimiento.RoundSQL
ImporteMX = ImporteMX.RoundSQL
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
- End If
- End If
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
+ End If
+ End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 277f93f0e..05aaf5ef2 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -582,7 +582,7 @@ Partial Class Bancos_PopIEVentas
End If
'SI USUARIO USA AMORTIZACIÓN CONTABLE
- If UsuarioActual.Empresa.UsaAC Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
Dim AC As New ClsAC
If AC.GetPresupuestoIngresos(-1, -1, True, UsuarioActual.CveEmpresa) Then
DdlFuenteRecaudacion.DataSource = AC.DtResultados()
@@ -1830,17 +1830,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVA <> 0 Then
- IdCtaContable = IdCtaContRetIVA
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA <> 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 9 'Ret ISR
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
@@ -1864,17 +1867,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 13 'Iva por Trasladar
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = MovimientoPagar.IVA * PorcentajePago
@@ -1961,7 +1967,7 @@ Partial Class Bancos_PopIEVentas
TimpocambioGeneral = tipoCambioVenta
CveSubProyectoContabilizar = CveSubProyectoVenta
- If ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString.ToEntero
End If
@@ -1989,7 +1995,7 @@ Partial Class Bancos_PopIEVentas
CveSubProyectoContabilizar = CveSubProyectoVenta
- If ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento > 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString.ToEntero
End If
@@ -2019,17 +2025,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVA <> 0 Then
- IdCtaContable = IdCtaContRetIVA
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA <> 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 63 'Ret ISR Trasladado
If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
@@ -2054,17 +2063,20 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR <> 0 Then
- IdCtaContable = IdCtaContRetISR
- Else
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR <> 0 Then
+ IdCtaContable = IdCtaContRetISR
+ Else
+ If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
Case 64 'Ganancia
If CveMoneda <> 1 OrElse CveMonedaVenta <> 1 Then
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
@@ -2445,19 +2457,22 @@ Partial Class Bancos_PopIEVentas
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
ImporteMX = Math.Round(ImporteMX, 2)
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2495,19 +2510,22 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2544,19 +2562,22 @@ Partial Class Bancos_PopIEVentas
If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2593,19 +2614,22 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2642,19 +2666,22 @@ Partial Class Bancos_PopIEVentas
If rw.DataKey("TipoCambio").ToString.ToDecimal > 1 Then ConceptoMovimiento += $" TC:{rw.DataKey("TipoCambio").ToString.ToDecimal} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
MsgError = "No se pudo insertar la póliza"
@@ -2691,19 +2718,22 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2739,20 +2769,23 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -2788,20 +2821,23 @@ Partial Class Bancos_PopIEVentas
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditableProveedor > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditableProveedor
- ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditableProveedor > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditableProveedor
+ ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
If ImporteMovimiento > 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, rw.FCLiteral("LtlFolio").Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, rw.DataKey("TipoCambio").ToString.ToDecimal, tipoCambioPago)) Then
MsgError = "No se pudo insertar la póliza"
@@ -3092,7 +3128,7 @@ Partial Class Bancos_PopIEVentas
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(340).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(340).ToEntero, 0)
End Select
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
End If
@@ -3179,7 +3215,7 @@ Partial Class Bancos_PopIEVentas
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
End Select
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -3264,7 +3300,7 @@ Partial Class Bancos_PopIEVentas
IdCtaContable = If(UsuarioActual.Empresa.Funcionalidad(341).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(341).ToEntero, 0)
End Select
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -3302,7 +3338,7 @@ Partial Class Bancos_PopIEVentas
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
ImporteMX = Math.Round(ImporteMX, 2)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
@@ -3340,7 +3376,7 @@ Partial Class Bancos_PopIEVentas
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
ImporteMX = Math.Round(ImporteMX, 2)
- If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
End If
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index ef47b01ed..86f900e92 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -1032,18 +1032,22 @@ Partial Class Bancos_ProveedoresAbonar
TipoCambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVA > 0 Then
- IdCtaContable = IdCtaContRetIVA
- ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVA > 0 Then
+ IdCtaContable = IdCtaContRetIVA
+ ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
+
End If
@@ -1075,18 +1079,21 @@ Partial Class Bancos_ProveedoresAbonar
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetIVAAcreditable > 0 Then
- IdCtaContable = IdCtaContRetIVAAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetIVAAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetIVAAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
@@ -1110,18 +1117,21 @@ Partial Class Bancos_ProveedoresAbonar
TipoCambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISR > 0 Then
- IdCtaContable = IdCtaContRetISR
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISR > 0 Then
+ IdCtaContable = IdCtaContRetISR
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 23 'Ret ISR Acreditable
If gvr.DataKey("CveRetISRConcepto").ToEntero > 0 Then
@@ -1142,19 +1152,22 @@ Partial Class Bancos_ProveedoresAbonar
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
- 'Conta ContPAQ
- If IdCtaContRetISRAcreditable > 0 Then
- IdCtaContable = IdCtaContRetISRAcreditable
- ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
- IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
- Else
- If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
- If ObjMov.DtResultados.Rows.Count > 0 Then
- IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ 'Conta ContPAQ
+ If IdCtaContRetISRAcreditable > 0 Then
+ IdCtaContable = IdCtaContRetISRAcreditable
+ ElseIf UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero > 0 Then
+ IdCtaContable = UsuarioActual.Empresa.Funcionalidad(funcionalidad).ToEntero
+ Else
+ If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If ObjMov.DtResultados.Rows.Count > 0 Then
+ IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+ End If
End If
End If
End If
+
End If
Case 14 'Iva X Acreditar
@@ -1192,7 +1205,7 @@ Partial Class Bancos_ProveedoresAbonar
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
End If
IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
End If
@@ -1250,7 +1263,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
End If
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
End If
@@ -1263,7 +1276,7 @@ Partial Class Bancos_ProveedoresAbonar
TipoCambioGeneral = tipoCambioCompra
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
@@ -1274,7 +1287,7 @@ Partial Class Bancos_ProveedoresAbonar
importeMX = (ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)).RoundSQL
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
- If ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ImporteMovimiento <> 0 AndAlso TipoContabilidad <> 1 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
If ObjMov.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
End If
@@ -1692,7 +1705,7 @@ Partial Class Bancos_ProveedoresAbonar
If DdlTipoTransaccion.SelectedValue = "1" Then TipoChq = "CHQ"
'se multiplica por dos, porque se esta juntando el ejercido y el pagado al mismo tiempo
- If UsuarioActual.Empresa.UsaContabilidad Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
IDPoliza = ObjConta.AddPoliza(2, "Pagado " & TxtPagueseA.Text.Trim, Total, Total, UsuarioActual.CveUsuario, Fecha, TxtFolio.Text, TipoChq)
If IDPoliza > 0 Then
@@ -2649,7 +2662,7 @@ Partial Class Bancos_ProveedoresAbonar
If MsgError = "" AndAlso gr.DataKey("IEPS").ToDecimal > 0 Then
Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal
- If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
+ If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
If ObjConta.DtResultados.Rows.Count > 0 Then
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index f54ffac71..2185aea6b 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1024,8 +1024,15 @@ Partial Class PopUpVerFactura
'IMPRIME CARTA PORTE
If UrlParametros("OP").ToString = "CARPO" Then
If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
- ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero)
+ ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero, -1)
End If
+
+
+ If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
+ ImprimeFormatoCartaPorte(-1, UrlParametros("CVETIMBRE").ToString.ToEntero)
+ End If
+
+
End If
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
@@ -1416,9 +1423,9 @@ Partial Class PopUpVerFactura
#End Region
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
- Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
- If CveMovimiento > 0 Then
- Dim ObjInv As New ClsInventarios
+ Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer, Optional CveTimbre As Integer = -1)
+ If CveMovimiento > 0 Or CveTimbre > 0 Then
+
Dim SerieFolio As String = ""
Dim DomicilioSucursal As String = ""
@@ -1447,70 +1454,156 @@ Partial Class PopUpVerFactura
Dim SBDireccionO As New StringBuilder()
Dim SBDireccionD As New StringBuilder()
- If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
- If ObjInv.DtResultados.Rows.Count > 0 Then
- Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
- If Dr IsNot Nothing Then
- SerieFolio = Dr("Folio").ToString
- DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
- LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
- Origen = Dr("AlmacenOrigen").ToString
- Destino = Dr("AlmacenDestino").ToString
- Observaciones = Dr("Observaciones").ToString
- CveChofer = Dr("CveChofer").ToString
+ Dim Dt As DataTable = Nothing
+
+ If CveMovimiento > 0 Then
+
+ Dim ObjInv As New ClsInventarios
+ If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
+ If ObjInv.DtResultados.Rows.Count > 0 Then
+ Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
+ If Dr IsNot Nothing Then
+ SerieFolio = Dr("Folio").ToString
+ DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
+ LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
+ Origen = Dr("AlmacenOrigen").ToString
+ Destino = Dr("AlmacenDestino").ToString
+ Observaciones = Dr("Observaciones").ToString
+ CveChofer = Dr("CveChofer").ToString
+
+
+ Placa = Dr("Traslado_Placa").ToString
+ Recibio = Dr("Recibio").ToString
+ FechaEntrega = Dr("FechaEntrega").ToString
+ EspecifUnidad = Dr("EspecificacionUnidad").ToString
+
+
+ If Dr("CalleOrigen").ToString.Length > 0 Then
+ SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
+ If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
+ If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
+ If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
+ If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
+ If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
+ If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
+ If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
+ End If
+ If Dr("CalleDestino").ToString.Length > 0 Then
+ SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
+ If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
+ If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
+ If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
+ If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
+ If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
+ If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
+ If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
+ End If
+
+ ResponsableCarga = Dr("ResponsableCarga").ToString
+ ResponsableRecibio = Dr("ResponsableRecibio").ToString
+ Identificacion = Dr("Identificacion").ToString
+ Domicilio = Dr("Domicilio").ToString
+ Telefono = Dr("Telefono1").ToString
+ Ciudad = Dr("Ciudad").ToString
+ Licencia = Dr("Licencia").ToString
+
+
+ Chofer = Dr("Chofer").ToString
+ Placa = Dr("Placa").ToString
+ EspecifUnidad = Dr("Especificacion").ToString
- Placa = Dr("Traslado_Placa").ToString
- Recibio = Dr("Recibio").ToString
- FechaEntrega = Dr("FechaEntrega").ToString
- EspecifUnidad = Dr("EspecificacionUnidad").ToString
- If Dr("CalleOrigen").ToString.Length > 0 Then
- SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
- If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
- If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
- If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
- If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
- If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
- If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
- If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
End If
- If Dr("CalleDestino").ToString.Length > 0 Then
- SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
- If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
- If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
- If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
- If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
- If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
- If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
- If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
- End If
-
- ResponsableCarga = Dr("ResponsableCarga").ToString
- ResponsableRecibio = Dr("ResponsableRecibio").ToString
- Identificacion = Dr("Identificacion").ToString
- Domicilio = Dr("Domicilio").ToString
- Telefono = Dr("Telefono1").ToString
- Ciudad = Dr("Ciudad").ToString
- Licencia = Dr("Licencia").ToString
-
-
- Chofer = Dr("Chofer").ToString
- Placa = Dr("Placa").ToString
- EspecifUnidad = Dr("Especificacion").ToString
-
-
-
End If
End If
+
+
+
+ If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+ Dt = ObjInv.DtResultados
+ End If
+ ObjInv.Dispose()
+
+
+ ElseIf CveTimbre > 0 Then
+
+
+ Dim ObjGral As New ClsGenerales
+
+
+ If ObjGral.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
+
+ Dim Dr As DataRow = ObjGral.DtResultados.Rows(0)
+
+ SerieFolio = Dr("SerieFolio").ToString
+ DomicilioSucursal = $"{Dr("DirOriCalle").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
+ LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
+ Origen = Dr("SPOrigen").ToString
+ Destino = Dr("SPDestino").ToString
+ Observaciones = ""
+ CveChofer = Dr("CveChofer").ToString
+ Chofer = Dr("FiguraChofer").ToString
+
+
+ Placa = Dr("Placa").ToString
+ Recibio = ""
+ FechaEntrega = Dr("FechaEntrega").ToString
+ EspecifUnidad = Dr("EspecificacionUnidad").ToString
+
+
+ If Dr("CalleOrigen").ToString.Length > 0 Then
+ SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
+ If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
+ If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
+ If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
+ If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
+ If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
+ If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
+ If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
+ End If
+ If Dr("CalleDestino").ToString.Length > 0 Then
+ SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
+ If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
+ If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
+ If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
+ If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
+ If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
+ If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
+ If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
+ End If
+
+ ResponsableCarga = Dr("ResponsableCarga").ToString
+ ResponsableRecibio = Dr("ResponsableRecibio").ToString
+ Identificacion = Dr("Identificacion").ToString
+ Domicilio = Dr("Domicilio").ToString
+ Telefono = Dr("Telefono1").ToString
+ Ciudad = Dr("Ciudad").ToString
+ Licencia = Dr("Licencia").ToString
+
+
+ Chofer = Dr("Chofer").ToString
+ Placa = Dr("Placa").ToString
+ EspecifUnidad = Dr("Especificacion").ToString
+
+
+ End If
+
+ ObjGral.Dispose()
+
+ Dim ObjGrales As New ClsGenerales
+
+ If ObjGrales.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
+ Dt = ObjGrales.DtResultados
+ End If
+
+ ObjGrales.Dispose()
+
+
+
End If
- Dim Dt As DataTable = Nothing
- If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
- Dt = ObjInv.DtResultados
- End If
- ObjInv.Dispose()
If Dt.Rows.Count > 0 Then
Dim params As New List(Of ReportParameter)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
diff --git a/Empresas/119/Formatos/ReciboDePago.rdlc b/Empresas/119/Formatos/ReciboDePago.rdlc
index abf548d0c..87c2b2d68 100644
--- a/Empresas/119/Formatos/ReciboDePago.rdlc
+++ b/Empresas/119/Formatos/ReciboDePago.rdlc
@@ -956,7 +956,7 @@
Impuesto
@@ -1000,7 +1000,7 @@
Tipo
@@ -1044,7 +1044,7 @@
Base
@@ -1088,7 +1088,7 @@
Tipo Factor
@@ -1132,7 +1132,7 @@
Tasa/Cuota
@@ -1176,7 +1176,7 @@
Importe
@@ -1220,7 +1220,7 @@
@@ -1264,7 +1264,7 @@
@@ -1308,7 +1308,7 @@
@@ -1350,7 +1350,7 @@
@@ -1397,7 +1397,7 @@
ISR
@@ -1436,7 +1436,7 @@
Traslado
@@ -1475,7 +1475,7 @@
=Fields!ImpPagado.Value
@@ -1514,7 +1514,7 @@
=Fields!Tra001TipoFactorDR.Value
@@ -1553,7 +1553,7 @@
=Fields!Tra001TasaOCuotaDR.Value
@@ -1592,7 +1592,7 @@
=Fields!Tra001ImporteDR.Value
@@ -1631,7 +1631,7 @@
@@ -1670,7 +1670,7 @@
@@ -1709,7 +1709,7 @@
@@ -1746,7 +1746,7 @@
@@ -1788,7 +1788,7 @@
IVA
@@ -1827,7 +1827,7 @@
Traslado
@@ -1866,7 +1866,7 @@
=Fields!ImpPagado.Value
@@ -1905,7 +1905,7 @@
=Fields!Tra002TipoFactorDR.Value
@@ -1944,7 +1944,7 @@
=Fields!Tra002TasaOCuotaDR.Value
@@ -1983,7 +1983,7 @@
=Fields!Tra002ImporteDR.Value
@@ -2022,7 +2022,7 @@
@@ -2061,7 +2061,7 @@
@@ -2100,7 +2100,7 @@
@@ -2137,7 +2137,7 @@
@@ -2179,7 +2179,7 @@
IEPS
@@ -2218,7 +2218,7 @@
Traslado
@@ -2257,7 +2257,7 @@
=Fields!ImpPagado.Value
@@ -2296,7 +2296,7 @@
=Fields!Tra003TipoFactorDR.Value
@@ -2335,7 +2335,7 @@
=Fields!Tra003TasaOCuotaDR.Value
@@ -2374,7 +2374,7 @@
=Fields!Tra003ImporteDR.Value
@@ -2413,7 +2413,7 @@
@@ -2452,7 +2452,7 @@
@@ -2491,7 +2491,7 @@
@@ -2528,7 +2528,7 @@
@@ -2570,7 +2570,7 @@
ISR
@@ -2609,7 +2609,7 @@
Retención
@@ -2648,7 +2648,7 @@
=Fields!ImpPagado.Value
@@ -2687,7 +2687,7 @@
=Fields!Ret001TipoFactorDR.Value
@@ -2726,7 +2726,7 @@
=Fields!Ret001TasaOCuotaDR.Value
@@ -2765,7 +2765,7 @@
=Fields!Ret001ImporteDR.Value
@@ -2804,7 +2804,7 @@
@@ -2843,7 +2843,7 @@
@@ -2882,7 +2882,7 @@
@@ -2919,7 +2919,7 @@
@@ -2961,7 +2961,7 @@
IVA
@@ -3000,7 +3000,7 @@
Retención
@@ -3039,7 +3039,7 @@
=Fields!ImpPagado.Value
@@ -3078,7 +3078,7 @@
=Fields!Ret002TipoFactorDR.Value
@@ -3117,7 +3117,7 @@
=Fields!Ret002TasaOCuotaDR.Value
@@ -3156,7 +3156,7 @@
=Fields!Ret002ImporteDR.Value
@@ -3195,7 +3195,7 @@
@@ -3234,7 +3234,7 @@
@@ -3273,7 +3273,7 @@
@@ -3310,7 +3310,7 @@
@@ -3352,7 +3352,7 @@
IEPS
@@ -3391,7 +3391,7 @@
Retención
@@ -3430,7 +3430,7 @@
=Fields!ImpPagado.Value
@@ -3469,7 +3469,7 @@
=Fields!Ret003TipoFactorDR.Value
@@ -3508,7 +3508,7 @@
=Fields!Ret003TasaOCuotaDR.Value
@@ -3547,7 +3547,7 @@
=Fields!Ret003ImporteDR.Value
@@ -3586,7 +3586,7 @@
@@ -3625,7 +3625,7 @@
@@ -3664,7 +3664,7 @@
@@ -3701,7 +3701,7 @@
@@ -4667,6 +4667,7 @@
= IIF( Parameters!RegimenFiscalCodigo.Value <> "ND-", "<b>Reg. Fiscal:</b> " & Parameters!RegimenFiscalCodigo.Value,"")
+ HTML
Textbox24
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -92,47 +77,32 @@
- Unidad
+ U.M.
Textbox27
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -150,47 +120,32 @@
- Descripción
+ DESCRIPCIÓN
Textbox26
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -208,47 +163,32 @@
- P. Unitario
+ P/U
Textbox36
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -266,47 +206,32 @@
- Importe
+ IMPORTE
Textbox38
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -318,7 +243,7 @@
- 0.52062cm
+ 0.6cm
@@ -342,29 +267,8 @@
Textbox29
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -395,29 +299,8 @@
Textbox28
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -448,29 +331,8 @@
Textbox32
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -504,29 +366,8 @@
Textbox37
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -561,29 +402,8 @@
Textbox39
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -613,9 +433,10 @@
DataSet2
- 3.16535cm
- 1.01062cm
- 20.49108cm
+ 2.78114cm
+ 0.30837cm
+ 1.09cm
+ 20.35756cm
@@ -626,33 +447,36 @@
- 5.50886cm
+ 2.47362cm
- 1.8cm
+ 2.03357cm
- 1.8cm
+ 2.09429cm
- 1.99576cm
+ 2.14897cm
- 1.8cm
+ 1.89771cm
- 2.44284cm
+ 1.86871cm
- 2.55292cm
+ 2.20259cm
- 2.59068cm
+ 2.90088cm
+
+
+ 2.70327cm
- 0.49cm
+ 0.54292cm
@@ -666,52 +490,38 @@
UUID
-
+
Textbox6
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
2pt
+ 3
+
+
@@ -721,47 +531,30 @@
- Serie
+ SERIE
-
+
Textbox3
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -779,105 +572,30 @@
- Folio
+ FOLIO
-
+
Textbox9
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- Método Pago
-
-
-
-
-
-
- Textbox13
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -895,47 +613,30 @@
- Moneda
+ MONEDA
-
+
Textbox31
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -953,47 +654,30 @@
- Num. Parc.
+ NO.PARC.
-
+
Textbox8
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1011,47 +695,30 @@
- Saldo Anterior
+ SALDO ANT.
-
+
Textbox19
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1069,47 +736,30 @@
- Monto Pagado
+ MONTO PAGADO
-
+
Textbox25
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1121,7 +771,7 @@
- 0.6cm
+ 0.41998cm
@@ -1145,37 +795,19 @@
IdDocumento
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
2pt
+ 3
+
+
@@ -1198,29 +830,8 @@
Serie
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -1251,82 +862,8 @@
Folio
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Fields!MetodoDePagoDR.Value
-
-
-
-
-
-
- MetodoDePagoDR
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -1357,29 +894,8 @@
MonedaDR
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -1410,29 +926,8 @@
NumParcialidad
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -1464,29 +959,8 @@
ImpSaldoAnt
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -1520,29 +994,2484 @@
ImpPagado
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.11946cm
+
+
+
+
+ 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
+
+ =Microsoft.VisualBasic.Interaction.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
+
+
+
+
+
+
+
+
+
+
+
+ Textbox371
+
+ = 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
+
+
+
+
+
+
+
+
+
+
+
+ Textbox372
+
+ = 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
+
+
+
+
+
+
+
+
+
+
+
+ Textbox373
+
+ = 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
+
+
+
+
+
+
+
+ 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
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra001TipoFactorDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra001TasaOCuotaDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra001ImporteDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra001ImporteDR.Value > 0, False, True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox18
+
+ = IIF(
+ Fields!Tra001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox20
+
+ = IIF(
+ Fields!Tra001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox23
+
+ = IIF(
+ Fields!Tra001ImporteDR.Value > 0
+ ,False,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
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra002TipoFactorDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra002TasaOCuotaDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra002ImporteDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ =Microsoft.VisualBasic.Interaction.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
+
+
+
+
+
+
+
+
+
+
+
+ Textbox69
+
+ = IIF(
+ Fields!Tra002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox70
+
+ = IIF(
+ Fields!Tra002ImporteDR.Value > 0
+ ,False,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
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra003TipoFactorDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra003TasaOCuotaDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Tra003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Tra003ImporteDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ =Microsoft.VisualBasic.Interaction.IIF(Fields!Tra003ImporteDR.Value > 0, False, True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox78
+
+ = IIF(
+ Fields!Tra003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox79
+
+ = IIF(
+ Fields!Tra003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox80
+
+ = IIF(
+ Fields!Tra003ImporteDR.Value > 0
+ ,False,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
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret001TipoFactorDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret001TasaOCuotaDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret001ImporteDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret001ImporteDR.Value > 0, False, True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox88
+
+ = IIF(
+ Fields!Ret001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox89
+
+ = IIF(
+ Fields!Ret001ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox90
+
+ = IIF(
+ Fields!Ret001ImporteDR.Value > 0
+ ,False,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
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret002TipoFactorDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret002TasaOCuotaDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret002ImporteDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret002ImporteDR.Value > 0, False, True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox98
+
+ = IIF(
+ Fields!Ret002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox99
+
+ = IIF(
+ Fields!Ret002ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox100
+
+ = IIF(
+ Fields!Ret002ImporteDR.Value > 0
+ ,False,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
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret003TipoFactorDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret003TasaOCuotaDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ = IIF(
+ Fields!Ret003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Ret003ImporteDR.Value
+
+
+
+
+
+
+ ImpPagado
+
+ =Microsoft.VisualBasic.Interaction.IIF(Fields!Ret003ImporteDR.Value > 0, False, True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox108
+
+ = IIF(
+ Fields!Ret003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox109
+
+ = IIF(
+ Fields!Ret003ImporteDR.Value > 0
+ ,False,True)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox110
+
+ = IIF(
+ Fields!Ret003ImporteDR.Value > 0
+ ,False,True)
+
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -1565,6 +3494,7 @@
+
@@ -1574,13 +3504,24 @@
+
+
+
+
+
+
+
+
+
+
DataSet2
- 4.87361cm
- 1.09cm
- 20.49106cm
+ 4.65526cm
+ 0.30837cm
+ 1.55861cm
+ 20.32362cm
1
-
+
Textbox45
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1681,47 +3605,30 @@
- Moneda
+ MONEDA
-
+
Textbox21
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1741,45 +3648,28 @@
TC
-
+
Textbox5
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1797,47 +3687,30 @@
- Cta Ordenante
+ CTA ORDENANTE
-
+
Textbox12
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1855,47 +3728,30 @@
- Forma de Pago
+ FORMA DE PAGO
-
+
Textbox48
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1913,47 +3769,30 @@
- Total de Pago
+ TOTAL DE PAGO
-
+
Textbox50
+
- #4f81bd
- 1pt
- #4f81bd
- 1pt
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
@@ -1965,7 +3804,7 @@
- 0.50041cm
+ 0.6cm
@@ -1978,7 +3817,7 @@
=Fields!FechaPago.Value
@@ -1990,29 +3829,8 @@
FechaPago
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -2032,7 +3850,7 @@
=Fields!MonedaP.Value
@@ -2043,29 +3861,8 @@
MonedaP
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -2085,7 +3882,7 @@
=Fields!TipoCambioP.Value
@@ -2097,29 +3894,8 @@
TipoCambioP
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -2140,7 +3916,7 @@
=Fields!CtaOrdenante.Value
@@ -2151,29 +3927,8 @@
CtaOrdenante
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
2pt
2pt
2pt
@@ -2193,7 +3948,7 @@
=Fields!FormaDePagoP.Value
@@ -2204,28 +3959,17 @@
FormaDePagoP
- #4f81bd
-
- 1pt
+
-
- #4f81bd
-
- 1pt
-
- #4f81bd
-
- 1pt
+
- #4f81bd
-
- 1pt
+
2pt
2pt
@@ -2246,7 +3990,7 @@
=Fields!Monto.Value
@@ -2260,28 +4004,17 @@
Monto
- #4f81bd
-
- 1pt
+
-
- #4f81bd
-
- 1pt
-
- #4f81bd
-
- 1pt
+
- #4f81bd
-
- 1pt
+
2pt
2pt
@@ -2295,7 +4028,7 @@
- 0.45632cm
+ 0.6cm
@@ -2399,24 +4132,13 @@
- Total de Pago con letra:
+
-
-
- =Parameters!CantidadLetra.Value
-
-
+
Textbox16
@@ -2430,10 +4152,57 @@
2pt
- 3
-
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!CantidadLetra.Value
+
+
+
+
+
+
+ Textbox53
+
+
+
+ Silver
+ 3pt
+
+
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ 2
+
+
@@ -2463,9 +4232,10 @@
DataSet1
- 6.4cm
- 1.42652cm
- 20.49106cm
+ 6.51061cm
+ 0.31556cm
+ 1.69cm
+ 20.32067cm
2
@@ -2494,15 +4265,476 @@
Textbox5
- 4.42361cm
- 0.0071cm
- 0.45cm
- 20.48396cm
+ 4.04466cm
+ 0.30837cm
+ 0.49cm
+ 20.32362cm
3
+ White
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Datos del Cliente:
+
+
+
+
+
+
+
+
+ Cliente
+
+
+
+ :
+
+
+
+ =Parameters!Cliente.Value
+
+
+
+
+
+
+
+
+ Dirección:
+
+
+
+ =Parameters!ClienteDireccion.Value
+
+
+
+ ,
+
+
+
+ =Parameters!ClienteColonia.Value
+
+
+
+
+
+
+
+
+ Ciudad:
+
+
+
+ =Parameters!ClienteCiudad.Value
+
+
+
+
+
+
+
+
+ CP:
+
+
+
+ =Parameters!ClienteCP.Value
+
+
+
+
+
+
+
+
+ RFC Ordenante:
+
+
+
+
+
+
+
+ =Parameters!RFCOrdenante.Value
+
+
+
+
+
+
+
+
+ Reg. Fiscal:
+ HTML
+
+
+
+ = IIF( Parameters!RegimenFiscalCodigo.Value <> "ND-", Parameters!RegimenFiscalCodigo.Value,"")
+ HTML
+
+
+
+
+
+
+ Textbox2
+ 0.30837cm
+ 0.98591in
+ 5.35046in
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ "Este documento es una representación impresa de un CFDI"
+
+
+
+
+
+
+
+
+ Cadena original del complemento de certificación digital del SAT:
+
+
+
+
+
+
+
+
+ =Parameters!CadenaOriginal.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Sello:
+
+
+
+
+
+
+
+
+ =Parameters!Sello.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Sello digital del SAT:
+
+
+
+
+
+
+
+
+ =Parameters!SelloSAT.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ No.Certificado:
+
+
+
+
+
+
+
+
+ =Parameters!NoCertificado.Value
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ UUID:
+
+
+
+ =Parameters!UUIDPago.Value
+
+
+
+
+
+
+ Textbox45
+ 8.79656cm
+ 0.31556cm
+ 2.98125cm
+ 16.26945cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+
+
+
+
+
+
+
+ Textbox5
+ 8.53197cm
+ 0.31261cm
+ 0.0882cm
+ 20.32362cm
+ 6
+
+
+ Silver
2pt
2pt
2pt
@@ -2513,1559 +4745,181 @@
External
=Parameters!QR.Value
FitProportional
- 3.63593in
- 0.02064cm
- 1.3in
- 1.5in
- 4
+ 3.46321in
+ 6.67189in
+ 1.17372in
+ 1.38542in
+ 7
-
+
true
true
- Cadena original del complemento de certificación digital del SAT:
-
-
-
-
-
-
- Textbox165
- 8.15889cm
- 0.45cm
- 20.49106cm
- 5
-
-
-
- #e2ab67
-
- 1pt
-
-
- #e2ab67
-
- 1pt
-
-
- #e2ab67
-
- 1pt
-
-
- #e2ab67
-
- 1pt
-
- #e2ab67
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!CadenaOriginal.Value
+ Folio:
-
-
-
-
- Textbox166
- 8.60889cm
- 0.45cm
- 20.49106cm
- 6
-
-
-
- #e2ab67
-
- 1pt
-
-
- #e2ab67
-
- 1pt
-
-
- #e2ab67
-
- 1pt
-
-
- #e2ab67
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
- Regímen: Regímen General de Ley Personas Morales
+
+
+
+ =Parameters!SerieFolio.Value
+
- Éste documento es una representación impresa de un CFDi
-
-
-
-
-
-
- Textbox171
- 11.63749cm
- 3.86591cm
- 0.89979cm
- 16.62515cm
- 7
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Datos del Cliente:
+ Fecha Timbre:
+
+
+
+
+
+
+ =Parameters!FechaTimbre.Value
+
-
+
- Textbox165
- 0.07056cm
- 0.45cm
- 20.49106cm
+ Textbox1
+ 0.77638cm
+ 16.49547cm
+ 1.0961cm
+ 4.14076cm
8
+
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- #e2ab67
+ White
2pt
2pt
2pt
2pt
-
+
true
true
- Cliente:
+ RECIBO DE PAGO
-
+
- Textbox167
- 0.52056cm
- 0.45cm
- 2.55cm
+ Textbox1
+ 0.10583cm
+ 16.49547cm
+ 0.6cm
+ 4.19095cm
9
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!Cliente.Value
-
-
-
-
-
-
- Textbox171
- 0.52056cm
- 2.55cm
- 0.45cm
- 17.94106cm
- 10
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
+ White
2pt
2pt
2pt
2pt
-
- true
- true
-
-
-
-
- =Parameters!ClienteDireccion.Value
-
-
-
- ,
-
-
-
- =Parameters!ClienteColonia.Value
-
-
-
-
-
-
- Textbox171
- 0.97056cm
- 2.55cm
- 0.45cm
- 17.94106cm
- 11
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Dirección:
-
-
-
-
-
-
- Textbox167
- 0.97056cm
- 0.45cm
- 2.55cm
- 12
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- Ciudad:
-
-
-
-
-
-
- Textbox167
- 1.42056cm
- 0.45cm
- 2.55cm
- 13
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!ClienteCiudad.Value
-
-
-
-
-
-
- Textbox171
- 1.42056cm
- 2.55cm
- 0.45cm
- 17.94106cm
- 14
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!ClienteCP.Value
-
-
-
-
-
-
- Textbox171
- 1.87056cm
- 2.55cm
- 0.45cm
- 17.94106cm
- 15
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- CP:
-
-
-
-
-
-
- Textbox167
- 1.87056cm
- 0.45cm
- 2.55cm
- 16
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- RFC Ordenante:
-
-
-
-
-
-
- Textbox167
- 2.32056cm
- 0.45cm
- 2.55cm
- 17
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
- true
- true
-
-
-
-
- =Parameters!RFCOrdenante.Value
-
-
-
-
-
-
- Textbox171
- 2.32056cm
- 2.55cm
- 0.45cm
- 17.94106cm
- 18
-
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
-
- #4f81bd
-
- 1pt
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
- 2.8cm
-
-
- 13.88106cm
-
-
-
-
- 0.52062cm
-
-
-
-
- true
- true
-
-
-
-
- Sello:
-
-
-
-
-
-
- Textbox97
-
-
- #e2ab67
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!Sello.Value
-
-
-
-
-
-
- Textbox61
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.1cm
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox41
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox43
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.49417cm
-
-
-
-
- true
- true
-
-
-
-
- Sello digital del SAT:
-
-
-
-
-
-
- Textbox103
-
-
- #e2ab67
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!SelloSAT.Value
-
-
-
-
-
-
- Textbox99
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.1cm
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox44
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox46
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- No. Certificado:
-
-
-
-
-
-
- Textbox106
-
-
- #e2ab67
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!NoCertificado.Value
-
-
-
-
-
-
- Textbox107
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.1cm
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox47
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
-
-
-
-
-
-
-
- Textbox49
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- 0.44125cm
-
-
-
-
- true
- true
-
-
-
-
- UUID:
-
-
-
-
-
-
- Textbox109
-
-
- #e2ab67
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
- true
- true
-
-
-
-
- =Parameters!UUIDPago.Value
-
-
-
-
-
-
- Textbox110
-
-
- 2pt
- 2pt
- 2pt
- 2pt
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- DataSet1
- 9.23528cm
- 3.83162cm
- 2.19729cm
- 16.68106cm
- 19
-
-
-
-
- 12.77527cm
-
-
-
+ 11.77781cm
+