From 0f11495a87263d87d61ae37034e51129feac6b52 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Sep 2022 10:33:48 -0700 Subject: [PATCH] -- codigo comentado --- Bancos/PopIECompras.aspx.vb | 74 ------------------------------------- 1 file changed, 74 deletions(-) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 0a0429949..c8bc70e44 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -2465,81 +2465,7 @@ Partial Class Bancos_PopIECompras End If End If - 'Case 280 'Iva Acreditable No Deducible - ' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then - ' 'funcionalidad que toma el 100% del pago para acreditamiento de iva - ' Dim TotalImporte As Decimal - ' If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then - ' TotalImporte = ImportePagado.ToString.ToDecimal - ' ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then - ' TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal / tipoCambioPago, 2) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then - ' TotalImporte = Math.Round(ImportePagado.ToString.ToDecimal * tipoCambioPago, 2) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then - ' TotalImporte = ImportePagado.ToString.ToDecimal - ' End If - - ' If TotalImporte = CompraSaldo Then - ' If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then - ' ImporteMovimiento = MovimientoPagar.IVANoDeducible - ' ImporteMX = ImporteMovimiento - ' ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then - ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then - ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible) - ' ImporteMX = ImporteMovimiento * tipoCambioCompra - ' ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then - ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - ' End If - ' ImporteMovimiento = ImporteMovimiento.RoundSQL - ' ImporteMX = ImporteMX.RoundSQL - ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - - ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" - ' Else - ' ImporteMovimiento = 0 - ' ImporteMX = 0 - ' End If - ' Else - ' If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then - ' ImporteMovimiento = MovimientoPagar.IVANoDeducible * PorcentajePago - ' ImporteMX = ImporteMovimiento - ' ElseIf CveMoneda = 1 AndAlso CveMonedaCompra = 2 Then - ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - ' ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 1 Then - ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago) - ' ImporteMX = ImporteMovimiento * tipoCambioCompra - ' ElseIf CveMoneda = 2 AndAlso CveMonedaCompra = 2 Then - ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago) - ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - ' End If - ' ImporteMovimiento = ImporteMovimiento.RoundSQL - ' ImporteMX = ImporteMX.RoundSQL - ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) - - ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" - ' End If - - ' PorcentajeImpuesto = MovimientoPagar.PorcentajeIVA - ' Dim IdCtaIVAXAcreditar As Integer = 0 - ' Dim IdCtaIVAAcreditable As Integer = 0 - - ' If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then - ' IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero - ' IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero - ' End If - - ' IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0) - - ' If 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 - ' End If Case 25 'IEPS por Acreditar If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then ImporteMovimiento = MovimientoPagar.IEPS * PorcentajePago