Validacion de prepoliza

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1898,81 +1898,89 @@ Partial Class Inventarios_RecepcionAlmacen
     End Sub
 
     Private Function GeneraPrePolizaSalidaEntregaDirecta(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi) As Boolean
-        Dim DtCostos As DataTable = Nothing
-        Dim ValorInventario As Decimal = 0
-        Dim ValorInventarioME As Decimal = 0
-        Dim CveConcepto As Integer = 3
         Dim Retorno As Boolean = True
+        Try
+            Dim DtCostos As DataTable = Nothing
+            Dim ValorInventario As Decimal = 0
+            Dim ValorInventarioME As Decimal = 0
+            Dim CveConcepto As Integer = 3
 
-        ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
-        Dim CveVenta As Integer = ObjInventario.CveVenta
-        Dim CveAlmacen As Integer = ObjInventario.CveAlmacen
-        Dim SerieFolio As String = ObjInventario.DtResultados.Rows(0)("SerieFolioVenta").ToString
-        Dim MovAlmacen As Boolean = True
+            ObjInventario.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
+            Dim CveVenta As Integer = ObjInventario.CveVenta
+            Dim CveAlmacen As Integer = ObjInventario.CveAlmacen
+            Dim SerieFolio As String = ObjInventario.DtResultados.Rows(0)("SerieFolioVenta").ToString
+            Dim MovAlmacen As Boolean = True
 
-        Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & CveConcepto).ToEntero
-        If OrigenMov = 1 Then MovAlmacen = False Else MovAlmacen = True
+            Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & CveConcepto).ToEntero
+            If OrigenMov = 1 Then MovAlmacen = False Else MovAlmacen = True
 
-        If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-            DtCostos = ObjInventario.DtResultados
-            Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
-            Dim IdCtaContable As Integer = 0
-            Dim ConceptoPoliza As String = String.Format("{0}-{1}", "Salida de Almacen", SerieFolio)
+            If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+                DtCostos = ObjInventario.DtResultados
+                Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
+                Dim IdCtaContable As Integer = 0
+                Dim ConceptoPoliza As String = String.Format("{0}-{1}", "Salida de Almacen", SerieFolio)
 
-            If tmpCostos.Rows.Count > 0 Then
-                Dim Concepto As String = ConceptoPoliza
-                Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
-                Dim tCveConcepto As Integer = 69
+                If tmpCostos.Rows.Count > 0 Then
+                    Dim Concepto As String = ConceptoPoliza
+                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+                    Dim tCveConcepto As Integer = 69
 
-                For Each RowInv As DataRow In tmpCostos.Rows
-                    ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
-                    If tCveConcepto = 69 Then
-                        IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
-                    End If
+                    For Each RowInv As DataRow In tmpCostos.Rows
+                        ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
+                        If tCveConcepto = 69 Then
+                            IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
+                        End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, tCveConcepto, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto) Then
+                            Retorno = False
+                            Exit For
+                        End If
+                    Next
+
+                    IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total").RoundSQL) Then
                         Retorno = False
-                        Exit For
                     End If
-                Next
 
-                IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, DtCostos.SUMD("Total").RoundSQL, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DtCostos.SUMD("Total").RoundSQL) Then
+
+                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+                        If ObjConta.ValorPolizaDescuadre > 0 Then
+                            GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            Retorno = False
+                        End If
+                    End If
+
+                    'CONTABILIZAR - SIMPLIFICAR 
+                    If Retorno Then
+                        If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                            If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                Retorno = False
+                            End If
+                        End If
+
+                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+                            If ObjContaContPAQ Is Nothing Then
+                                ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
+                                ObjContaContPAQ.IniciaTransacSQL()
+                            End If
+
+                            If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
+                                Retorno = False
+                            End If
+                        End If
+
+                    End If
+                Else
                     Retorno = False
                 End If
-
-
-                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
-                    If ObjConta.ValorPolizaDescuadre > 0 Then
-                        GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                        Retorno = False
-                    End If
-                End If
-
-                'CONTABILIZAR - SIMPLIFICAR 
-                If Retorno Then
-                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                        If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                            Retorno = False
-                        End If
-                    End If
-
-                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                        If ObjContaContPAQ Is Nothing Then
-                            ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                            ObjContaContPAQ.IniciaTransacSQL()
-                        End If
-
-                        If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
-                            Retorno = False
-                        End If
-                    End If
-
-                End If
-
+            Else
+                Retorno = False
             End If
-        End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al guadar la prepoliza", ex)
+            Retorno = False
+        End Try
 
         Return Retorno
     End Function