Filtros nuevos en impresion de poliza

Sopostres en ventas (no se contabilicen nc y dev y aplicaciones a diferente moneda) Soporte en RecepcionAlmacen en entrega directa, ya se crea prepoliza
2019-09-06 18:17:17 -07:00
parent 3685713bb3
commit 6324057467
7 changed files with 213 additions and 136 deletions
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1896,6 +1896,87 @@ Partial Class Inventarios_RecepcionAlmacen
        End If

    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
+
+        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
+
+        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
+
+                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
+                        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
+                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
+
+            End If
+        End If
+
+        Return Retorno
+    End Function
+
    Private Sub GuardaCompraOC()
        Dim CveMovimiento As Integer
        Dim InvFolio As String = ""
@@ -2054,6 +2135,12 @@ Partial Class Inventarios_RecepcionAlmacen
                        End If
                    End If

+                    If Not ErrorMovInv Then
+                        If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+
                End If
            End If

@@ -2109,8 +2196,10 @@ Partial Class Inventarios_RecepcionAlmacen
                Dim TotalPorDevengar = 0.0
                TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4))
                TotalPorDevengar = Math.Round(TotalPorDevengar, 4)
-                ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-                ObjContaAC.IniciaTransacSQL()
+                If ObjContaContPAQ Is Nothing Then
+                    ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
+                    ObjContaContPAQ.IniciaTransacSQL()
+                End If

                IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto)
                If IDPoliza > 0 AndAlso ObjContaAC.GetCuentas(-1, "-1", -1) Then
@@ -2365,8 +2454,10 @@ Partial Class Inventarios_RecepcionAlmacen
                    End If

                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                        ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
-                        ObjContaContPAQ.IniciaTransacSQL()
+                        If ObjContaContPAQ Is Nothing Then
+                            ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
+                            ObjContaContPAQ.IniciaTransacSQL()
+                        End If
                        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then
                            MensajeContabilidad = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
                        Else