-- conceptos de pago de servicios 6%
This commit is contained in:
@@ -1982,6 +1982,75 @@ Partial Class Bancos_PopIECompras
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
Case 285 'Ret IVA x Acreditar Acreditable Servicios
|
||||||
|
If MovimientoPagar.ConceptoRetIVA = 5 Then
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
|
||||||
|
ImporteMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
|
'Conta ContPAQ
|
||||||
|
If IdCtaContRetIVA > 0 Then
|
||||||
|
IdCtaContable = IdCtaContRetIVA
|
||||||
|
ElseIf UsuarioActual.Empresa.Funcionalidad(578).ToEntero > 0 Then
|
||||||
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).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
|
||||||
|
Case 286 'Ret IVA Acreditable Servicio
|
||||||
|
If MovimientoPagar.ConceptoRetIVA = 5 Then
|
||||||
|
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = MovimientoPagar.RetIVA * PorcentajePago
|
||||||
|
ImporteMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then
|
||||||
|
ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago)
|
||||||
|
ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
ImporteMX = Math.Round(ImporteMX, 2)
|
||||||
|
TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra)
|
||||||
|
|
||||||
|
If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
|
'Conta ContPAQ
|
||||||
|
If IdCtaContRetIVAAcreditable > 0 Then
|
||||||
|
IdCtaContable = IdCtaContRetIVAAcreditable
|
||||||
|
ElseIf UsuarioActual.Empresa.Funcionalidad(582).ToEntero > 0 Then
|
||||||
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(582).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
|
||||||
'Case 16 'Ret ISR X Acreditar
|
'Case 16 'Ret ISR X Acreditar
|
||||||
' If MovimientoPagar.ConceptoRetISR = 1 Then
|
' If MovimientoPagar.ConceptoRetISR = 1 Then
|
||||||
' If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
' If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||||
@@ -2579,8 +2648,8 @@ Partial Class Bancos_PopIECompras
|
|||||||
End If
|
End If
|
||||||
ObjCreditos.Dispose()
|
ObjCreditos.Dispose()
|
||||||
Else
|
Else
|
||||||
IdCtaContable = CtaProveedor
|
IdCtaContable = IdCuentaBancaria
|
||||||
CveCuenta = CveCuentaProveedor
|
CveCuenta = CveCuentaCliente
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
IdCtaContable = IdCtaContComplementaria
|
IdCtaContable = IdCtaContComplementaria
|
||||||
|
|||||||
@@ -1261,6 +1261,72 @@ Partial Class Bancos_ProveedoresAbonar
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
Case 285 'Ret IVA x Acreditar Acreditable Servicios
|
||||||
|
If gvr.DataKey("CveRetIVAConcepto").ToEntero = 5 Then
|
||||||
|
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
|
||||||
|
importeMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||||
|
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||||
|
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
importeMX = Math.Round(importeMX, 2)
|
||||||
|
|
||||||
|
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
|
'Conta ContPAQ
|
||||||
|
If IdCtaContRetIVA > 0 Then
|
||||||
|
IdCtaContable = IdCtaContRetIVA
|
||||||
|
ElseIf UsuarioActual.Empresa.Funcionalidad(578).ToEntero > 0 Then
|
||||||
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).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
|
||||||
|
Case 286 'Ret IVA Acreditable Servicio
|
||||||
|
If gvr.DataKey("CveRetIVAConcepto").ToEntero = 5 Then
|
||||||
|
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
|
||||||
|
importeMX = ImporteMovimiento
|
||||||
|
ElseIf CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||||
|
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||||
|
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||||
|
ElseIf CveMoneda = 2 AndAlso gvr.DataKey("CveMoneda").ToEntero = 2 Then
|
||||||
|
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||||
|
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||||
|
End If
|
||||||
|
ImporteMovimiento = Math.Round(ImporteMovimiento, 2)
|
||||||
|
importeMX = Math.Round(importeMX, 2)
|
||||||
|
|
||||||
|
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||||
|
|
||||||
|
'Conta ContPAQ
|
||||||
|
If IdCtaContRetIVAAcreditable > 0 Then
|
||||||
|
IdCtaContable = IdCtaContRetIVAAcreditable
|
||||||
|
ElseIf UsuarioActual.Empresa.Funcionalidad(582).ToEntero > 0 Then
|
||||||
|
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(582).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
|
||||||
'Case 16 'Ret ISR X Acreditar
|
'Case 16 'Ret ISR X Acreditar
|
||||||
' If gvr.DataKey("CveRetISRConcepto").ToEntero = 1 Then
|
' If gvr.DataKey("CveRetISRConcepto").ToEntero = 1 Then
|
||||||
' If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
' If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||||
|
|||||||
Reference in New Issue
Block a user