From 731038939a842f67d408475c765696c0cf46c041 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 20 May 2022 17:50:03 -0700 Subject: [PATCH] -- mejoras en manejo de TC --- Compras/Compras.aspx.vb | 49 ++++------------------------------------- 1 file changed, 4 insertions(+), 45 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 30969863e..d96bfc91c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -9080,18 +9080,16 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then If sumaAmortizacion = CompraSaldo Then ImporteMovimiento = TxtIVA.Text.ToDecimal - If ImporteMovimiento > 0 Then IVACompleto = True End If - Else ImporteMovimiento = 0 End If Else ImporteMovimiento = Math.Round(PorcentajePago * TxtIVA.Text.ToDecimal, 2) End If - importeMN = ImporteMovimiento * tipoCambio + importeMN = ImporteMovimiento * tipoCambioNC PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) @@ -9105,31 +9103,6 @@ Partial Class Compras_Compras End If End If End If - 'Case 287 'Iva X Acreditar importacion - ' If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") AndAlso chkImportacion.checked Then - ' If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then - ' If sumaAmortizacion = CompraSaldo Then - ' ImporteMovimiento = TxtIVA.Text.ToDecimal - - ' If ImporteMovimiento > 0 Then - ' IVACompleto = True - ' End If - - ' Else - ' ImporteMovimiento = 0 - ' End If - ' Else - ' ImporteMovimiento = Math.Round(PorcentajePago * TxtIVA.Text.ToDecimal, 2) - ' End If - ' importeMN = ImporteMovimiento * tipoCambio - ' PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal - ' IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0) - ' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then - ' If ObjConta.DtResultados.Rows.Count > 0 Then - ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero - ' End If - ' End If - ' End If Case 19 'Iva Acreditado @@ -9144,7 +9117,7 @@ Partial Class Compras_Compras Else ImporteMovimiento = Math.Round(PorcentajePago * TxtIVA.Text.ToDecimal, 2) End If - importeMN = ImporteMovimiento * tipoCambio + importeMN = ImporteMovimiento * tipoCambioNC PorcentajeImpuesto = TmpDT.MAX("IVAPorcentaje").ToDecimal IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0) @@ -9194,7 +9167,7 @@ Partial Class Compras_Compras End If ImporteMovimiento = Math.Round(PorcentajePago * TxtRetIVA.Text.ToDecimal, 2) - importeMN = ImporteMovimiento * tipoCambio + importeMN = ImporteMovimiento * tipoCambioNC If CtaProveedorRetIVA > 0 Then @@ -9209,20 +9182,9 @@ Partial Class Compras_Compras End If End If - - 'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero - 'End If - - 'If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then - ' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero - 'End If - End If End If - - Case 183 'RetIVA x Acreditar Fletes P.F. If Not gvr.DataKey("TipoDocto").Contiene("NC", "DEV", "Ant") Then If DdlRetIVAConcepto.Items.Count > 0 Then @@ -9432,9 +9394,6 @@ Partial Class Compras_Compras importeMN = ImporteMovimiento End If - - - If ImporteMovimiento <> 0 Then Dim CveSubProyecto64 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero @@ -9480,7 +9439,7 @@ Partial Class Compras_Compras End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimiento, ImporteMovimiento, Concepto, ConceptoContable, Concepto, Fecha, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=If(tipoCambio = 1, 0, ImporteMovimiento), PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambioNC) Then ErrorMovtosCxP = 1 Exit For End If