From b873136dbd0b8f7d0b6ae6b1b1ae62a5dd0c5008 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 17 Jun 2023 12:41:56 -0700
Subject: [PATCH] =?UTF-8?q?--=20se=20quit=C3=B3=20llamado=20a=20contpaq,?=
 =?UTF-8?q?=20en=20guarda=20=20importaci=C3=B3n?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/RecepcionAlmacen.aspx.vb | 33 +++++++++++-----------------
 1 file changed, 13 insertions(+), 20 deletions(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 3ce600fa2..ee356f67d 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3926,7 +3926,6 @@ Partial Class Inventarios_RecepcionAlmacen
         Dim ObjCompras As New ClsCompras(ObjInventario.IniciaTransacSQL())
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
         Dim ObjOC As New ClsOC(ObjInventario.IniciaTransacSQL())
-        Dim ObjContaAC As ClsContPAQi = Nothing
 
         'ENTRADA ALMACÉN
         CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 2, 1, FechaMovto, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveImportacionCompra, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, TipoCambio:=-1, Remision:=TxtRemision.Text, Modulo:="RA/G6")
@@ -4075,9 +4074,6 @@ Partial Class Inventarios_RecepcionAlmacen
                                 ImporteAbono = SubTotalPartida
                                 ImporteAbonoME = (SubTotalPartida * dr("TipoCambio").ToString.ToDecimal) - SubTotalPartida
                             End If
-
-
-
                             If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then
                                 ' si tiene valor es que hay complementaria
                                 If ImporteAbonoME > 0 Then
@@ -4092,7 +4088,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     End If
                 End If
-
                 'DOCUMENTOS RELACIONADOS AL MOVIMIENTO
                 If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(594) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(314) Then
                     If Not ErrorMovInv AndAlso Not GuardaDocumentoBitacora(ObjBitacora, CveMovimiento) Then
@@ -4100,8 +4095,6 @@ Partial Class Inventarios_RecepcionAlmacen
                         Alert("Ocurrió un error al guardar los datos adjuntos de la bitácora", TipoMensaje.MsgError)
                     End If
                 End If
-
-
             Else
                 ErrorMovInv = True
             End If
@@ -4114,16 +4107,16 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
-        If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-            ObjContaAC.IniciaTransacSQL()
-            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
-                MensajeError = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
-            Else
-                ErrorMovInv = True
-                MensajeError = "Error al contabilizar los conceptos contables"
-            End If
-        End If
+        'If Not ErrorMovInv AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+        '    ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+        '    ObjContaAC.IniciaTransacSQL()
+        '    If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
+        '        MensajeError = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
+        '    Else
+        '        ErrorMovInv = True
+        '        MensajeError = "Error al contabilizar los conceptos contables"
+        '    End If
+        'End If
 
 
         If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then
@@ -4145,7 +4138,7 @@ Partial Class Inventarios_RecepcionAlmacen
         'FINAL
         If Not ErrorMovInv Then
             ObjInventario.Commit() ' aplica los movimientos insertados
-            If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
+            '  If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
             RegistraScript("playsonidito('beep-07.wav')")
 
             Dim Msg As New StringBuilder
@@ -4158,14 +4151,14 @@ Partial Class Inventarios_RecepcionAlmacen
             Limpia()
         Else
             ObjInventario.RollBack()
-            If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+            ' If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
             GuardaLog(MensajeError)
             Alert("Error al guardar el movimiento de almacen. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
 
         ObjInventario.Dispose()
-        If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
+        ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
     End Sub
     Private Sub Limpia()
         CveCompraSurtir = -1