From 8494df34fc0c68f5ed7ffbbc58d3cb9175114a48 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 8 Feb 2024 09:09:52 -0700 Subject: [PATCH] =?UTF-8?q?--=20liga=20a=20prep=C3=B3lizas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 544982725..2bb004a3f 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3330,6 +3330,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim CveConceptoContableCostoME As Integer = -1 Dim CveConceptoContableCostoComplementaria As Integer = -1 Dim UsaComplementariaFleteImportaciones As Boolean = True + If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaFleteImportaciones = False If DtCostos.Rows.Count > 0 Then If CveCompraSurtir > 0 Then @@ -3356,7 +3357,6 @@ Partial Class Inventarios_RecepcionAlmacen CveConceptoContableCosto = 176 CveConceptoContableCostoME = 228 CveConceptoContableCostoComplementaria = 229 - UsaComplementariaFleteImportaciones = True Else @@ -3456,7 +3456,7 @@ Partial Class Inventarios_RecepcionAlmacen If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - MensajeContabilidad = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" + MensajeContabilidad = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" Else ErrorMovInv = True MensajeError = "Error al contabilizar los conceptos contables"