From b8274a1ea3ec8e08239ca300a95812464afeeb8d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 9 Nov 2022 13:40:37 -0700 Subject: [PATCH] E83 --- Contabilidad/DiarioPagos.aspx.vb | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index 54ffcf3c7..ec96f64eb 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -599,7 +599,7 @@ Partial Class Contabilidad_DiarioPagos Select Case UsuarioActual.CveEmpresa - Case 13 + Case 13, 83 Select Case gvr.DataKey("CveTipoTransaccion") Case "1" 'cheque Folio = gvr.DataKey("Folio") @@ -791,7 +791,7 @@ Partial Class Contabilidad_DiarioPagos End If 'registro los movimientos en proveedores, cuando es de contado que toque - If UsuarioActual.CveEmpresa = 13 AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then + If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso Not EsContabilizada AndAlso Opcion = 1 AndAlso Math.Abs(CargoProveedor) <= 1 AndAlso Math.Abs(AbonoProveedor) <= 1 Then CargoProveedor += CompraPagadoTotal AbonoProveedor += CompraPagadoTotal End If @@ -835,7 +835,7 @@ Partial Class Contabilidad_DiarioPagos End If Dim ttTipoCambioPago As Double = TipoCambioPago - If UsuarioActual.CveEmpresa = 13 Then ttTipoCambioPago = TipoCambioCompra + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then ttTipoCambioPago = TipoCambioCompra If IVAAcreditable > 0 Then 'iva Acreditable @@ -927,8 +927,7 @@ Partial Class Contabilidad_DiarioPagos If SimplificaRetIVA = False Then CompraRetIVA = CompraPagadoRetIVA 'no registra la retencion de iva al pagar - If UsuarioActual.CveEmpresa = 13 Then IdCuentaRetIVACirculacion = 0 - + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then IdCuentaRetIVACirculacion = 0 ConceptoTmp = If(CveMoneda = 2, String.Format("{0} TC {1}", ConceptoDetalle, TipoCambioFechaCompra), ConceptoDetalle) If CompraRetIVA > 0 AndAlso IdCuentaRetIVACirculacion > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVACirculacion, False, CompraPagadoRetIVA * TipoCambioFechaCompra, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoTmp, 0, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For