Recepcion almacen cierre de Fletes e Importaciones, Correcion creditos, mensaje efacturas folio repetido, consignaciones prepoliza

2022-07-05 19:30:52 -07:00
parent 6475f4b525
commit aabee3f8b5
8 changed files with 267 additions and 25 deletions
--- a/Inventarios/Consignaciones.aspx.vb
+++ b/Inventarios/Consignaciones.aspx.vb
@@ -879,9 +879,48 @@ Partial Class Inventarios_Consignaciones
                    TextoError = "Ocurrió un Error al guardar los movimientos"
                    Exit For
                Else
-                    MovimientosRealizados += 1
+
+
+                    Dim ImportePrePoliza As Decimal = Gvr.DataKey("PU").ToString.ToDecimal * Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDecimal
+
+                    Dim MovAlmacen As Boolean = True
+
+                    Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & ConceptoDevolucion).ToEntero
+
+                    If OrigenMov = 1 Then
+                        MovAlmacen = True
+                    Else
+                        MovAlmacen = False
+                    End If
+
+                    Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
+
+                    Dim Concepto As String = "Consig"
+                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Consig", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "Consig", 68, "Consig", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then
+                        ErrorMovInv = True
+                    End If
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "Consig", 337, "Consig", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then
+                        ErrorMovInv = True
+                    End If
+
+                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                        If ObjConta.ValorPolizaDescuadre > 0 Then
+                            GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            ErrorMovInv = True
+                        End If
+                    End If
+
+                    If Not ErrorMovInv Then
+                        MovimientosRealizados += 1
+                    End If
+
                End If

+
+
            End If
        Next

--- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb
+++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb
@@ -587,25 +587,45 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                    End If
                End If

-                'Dim Concepto As String = ConceptoPoliza
-                'Dim CvePrePoliza = ObjConta.AddPrePolizas("RA-01", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                Dim ImportePrePoliza As Decimal = 0D
+
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                    ImportePrePoliza = ObjInventario.DtResultados.SUMD("Total")
+                End If
+
+
+                Dim MovAlmacen As Boolean = True
+
+                Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 19).ToEntero
+
+                If OrigenMov = 1 Then
+                    MovAlmacen = True
+                Else
+                    MovAlmacen = False
+                End If
+
+                Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
+
+                Dim Concepto As String = "ARMPAQ2"
+                Dim CvePrePoliza = ObjConta.AddPrePolizas("ARMPAQ1/ARMPAQ2", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero

-                'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ValorInventario, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then
-                '    Retorno = False
-                'End If
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "ARMPAQ2", 68, "ARMPAQ2", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=True) Then
+                    TieneError = True
+                End If

-                'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ValorInventario, Concepto, 68, Concepto, TxtFecha.Text.ToDate, IdCtaContable, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorInventario, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
-                '    Retorno = False
-                'End If
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "ARMPAQ1", 68, "ARMPAQ1", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImportePrePoliza, Contabilizable:=True) Then
+                    TieneError = True
+                End If


-                'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) 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
+                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                        GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                        TieneError = True
+                    End If
+                End If

            Case 2 'DESARMADO

@@ -688,6 +708,49 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
                    End If
                End If

+
+
+
+
+                Dim ImportePrePoliza As Decimal = 0D
+
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                    ImportePrePoliza = ObjInventario.DtResultados.SUMD("Total")
+                End If
+
+
+                Dim MovAlmacen As Boolean = True
+
+                Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 4).ToEntero
+
+                If OrigenMov = 1 Then
+                    MovAlmacen = True
+                Else
+                    MovAlmacen = False
+                End If
+
+                Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
+
+                Dim Concepto As String = "ARMPAQ2"
+                Dim CvePrePoliza = ObjConta.AddPrePolizas("ARMPAQ1/ARMPAQ2", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "ARMPAQ4", 68, "ARMPAQ4", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=True) Then
+                    TieneError = True
+                End If
+
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "ARMPAQ3", 68, "ARMPAQ3", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImportePrePoliza, Contabilizable:=True) Then
+                    TieneError = True
+                End If
+
+
+                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                        GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                        TieneError = True
+                    End If
+                End If
+
        End Select


--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -434,6 +434,42 @@ Partial Class Inventarios_RecepcionAlmacen
        End Set
    End Property

+
+
+    Private Property CveImportacionSeleccionada As Integer
+        Get
+
+            If ViewState("CveImportacionSeleccionada") Is Nothing Then
+                ViewState("CveImportacionSeleccionada") = -1
+            End If
+
+            Return ViewState("CveImportacionSeleccionada").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveImportacionSeleccionada") = value
+        End Set
+    End Property
+
+
+
+    Private Property CveFleteSeleccionado As Integer
+        Get
+
+            If ViewState("CveFleteSeleccionado") Is Nothing Then
+                ViewState("CveFleteSeleccionado") = -1
+            End If
+
+            Return ViewState("CveFleteSeleccionado").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveFleteSeleccionado") = value
+        End Set
+    End Property
+
+
+
 #End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -921,6 +957,9 @@ Partial Class Inventarios_RecepcionAlmacen
        UpDatosCompra.Update()


+        CveImportacionSeleccionada = -1
+        CveFleteSeleccionado = -1
+
        If TxtOC.Text <> "" Then
            LtDocumento.Text = "ORDEN DE COMPRA"
            CargaOC()
@@ -1242,6 +1281,11 @@ Partial Class Inventarios_RecepcionAlmacen
                    CreaDtLoteDetalle()
                    CreaDTInv(ObjInventario.DtResultados)
                    BtnGuardar.Visible = True
+
+                    If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        CveImportacionSeleccionada = DdlFolioImportacion.SelectedValue.ToEntero
+                    End If
+
                End If

                If DtInv Is Nothing OrElse DtInv.Rows.Count = 0 Then
@@ -1298,6 +1342,10 @@ Partial Class Inventarios_RecepcionAlmacen
                    CreaDtLoteDetalle()
                    CreaDTInv(ObjInventario.DtResultados)
                    BtnGuardar.Visible = True
+                    If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        CveFleteSeleccionado = DdlFletes.SelectedValue.ToEntero
+                    End If
+
                End If

                If DtInv Is Nothing OrElse DtInv.Rows.Count = 0 Then
@@ -3753,6 +3801,8 @@ Partial Class Inventarios_RecepcionAlmacen
            ErrorMovInv = True
        End Try

+
+
        'FINAL
        If Not ErrorMovInv Then
            ObjInventario.Commit() ' aplica los movimientos insertados
@@ -4099,6 +4149,22 @@ Partial Class Inventarios_RecepcionAlmacen
        End If


+        If Not ErrorMovInv AndAlso CveImportacionSeleccionada > 0 Then
+
+            If Not ObjInventario.UpdateImportacionCierre(CveImportacionSeleccionada, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                ErrorMovInv = True
+            End If
+
+        End If
+
+
+        If Not ErrorMovInv AndAlso CveFleteSeleccionado > 0 Then
+            If Not ObjInventario.UpdateFleteCierre(CveFleteSeleccionado, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+                ErrorMovInv = True
+            End If
+        End If
+
+
        'FINAL
        If Not ErrorMovInv Then
            ObjInventario.Commit() ' aplica los movimientos insertados