From c32cdc08ef6cd6977ac8c2aa72f19cf2da284107 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 Jul 2021 18:36:26 -0700 Subject: [PATCH] mejora en manejo de complementarias --- Bancos/PopIEVentas.aspx.vb | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index d1f7dd7bf..9f38b7a6d 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1587,8 +1587,8 @@ Partial Class Bancos_PopIEVentas Select Case ConceptoContable Case 2 'Pago Cliente - If RBLContado.SelectedValue.Contiene("3", "4", "5") Then - 'If CveMonedaVenta > 1 Then ConceptoContable = 292 + If RBLContado.SelectedValue.Contiene("3", "4", "5") Then + If CveMonedaVenta > 1 Then ConceptoContable = 292 For Each rw As GridViewRow In GvIngresos.Rows If rw.FCCheckBox("Chk").Checked Then If CveMoneda = 1 AndAlso CveMonedaVenta = 1 Then @@ -1611,7 +1611,7 @@ Partial Class Bancos_PopIEVentas CveIE = rw.DataKey("CveIE").ToString.ToEntero 'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe - If CveMonedaVenta <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then + If CveMonedaVenta <> 1 Then ImporteMX = ImporteMovimiento IdCtaContable = IdCtaContMonedaExtranjera Else @@ -1626,7 +1626,7 @@ Partial Class Bancos_PopIEVentas If CveMonedaVenta = 2 Then IdCtaContable = IdCtaContComplementaria - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, ReferenciaConcepto, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -1674,7 +1674,7 @@ Partial Class Bancos_PopIEVentas If CveMonedaVenta = 2 Then IdCtaContable = IdCtaContComplementaria - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, ReferenciaConcepto, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -1720,7 +1720,7 @@ Partial Class Bancos_PopIEVentas If CveMonedaVenta = 2 Then IdCtaContable = IdCtaContComplementaria - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, rw.FCLiteral("LtlFolio").Text, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, rw.DataKey("CveCompra").ToEntero, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -1760,7 +1760,7 @@ Partial Class Bancos_PopIEVentas Else IdCtaContable = IdCtaContComplementaria CveSubProyectoContabilizar = CveSubProyectoVenta - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, ReferenciaConcepto, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta, -1, CveSubProyectoContabilizar, If(ViewState("CveCliente") IsNot Nothing, ViewState("CveCliente").ToString.ToEntero, -1), ImporteMX:=ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then MsgError = "No se pudo insertar la póliza" End If @@ -2356,7 +2356,7 @@ Partial Class Bancos_PopIEVentas ImporteMX = Math.Round(ImporteMX, 2) 'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe - If rw.DataKey("CveMoneda").ToEntero <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then + If rw.DataKey("CveMoneda").ToEntero <> 1 Then ImporteMX = ImporteMovimiento IdCtaContable = IdCtaContComplementariaProveedor Else @@ -2369,7 +2369,7 @@ Partial Class Bancos_PopIEVentas If rw.DataKey("CveMoneda").ToEntero = 2 Then IdCtaContable = IdCtaProveedorExtranjera - If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then + If ImporteMovimiento <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, rw.FCLiteral("LtlFolio").Text, 206, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, CveVenta:=CveVenta, CveCompra:=rw.DataKey("CveCompra").ToString.ToEntero, CveProveedor:=rw.DataKey("CveProveedor").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago) Then MsgError = "No se pudo insertar la póliza" End If