--merge TraspasoAlmacen.aspx

2023-01-16 18:48:09 -07:00
parent dbe7502a66 5d5ec665d0
commit 8c165ec846
29 changed files with 527 additions and 1505 deletions
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -2042,7 +2042,7 @@ Partial Class Inventarios_EntradasSalidas
                            If Not ErrorAC And Not ErrorMovInv Then


-                                If Not DdlDireccionEnvio.SelectedValue.ToEntero > 0 Then
+                                If ChkEmitirTimbrado.Checked AndAlso Not DdlDireccionEnvio.SelectedValue.ToEntero > 0 Then
                                    ErrorMovInv = True
                                    Alert("La direccion destino es requerida.", TipoMensaje.MsgAdvertencia)
                                End If
@@ -4404,6 +4404,11 @@ Partial Class Inventarios_EntradasSalidas
            Exit Sub
        End If

+        If Not TxtIFDescripcion.Text.Trim.Length > 0 Then
+            Alert("La descripción es requerida", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
        Dim ObjInventario As New ClsInventarios
        Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())

@@ -4426,6 +4431,14 @@ Partial Class Inventarios_EntradasSalidas
        Dim idCtaContableEntrada As Integer = 0
        Dim idCtaContableSalida As Integer = 0

+        Dim Prorratear As Boolean = If(UsuarioActual.CveEmpresa = 172 AndAlso DtMovimientosSalidaInvFisico.Rows.Count > 0 AndAlso DtMovimientosEntradaInvFisico.Rows.Count > 0, True, False)
+        Dim ProPU As Decimal = 0
+        'Dim ImporteSalida As Decimal = 
+
+        'DtMovimientosSalidaInvFisico
+        'DtMovimientosEntradaInvFisico
+
+
        Dim IdCuentaOtrosIngresos As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
        Select Case UsuarioActual.CveEmpresa
            Case 119
@@ -4438,6 +4451,8 @@ Partial Class Inventarios_EntradasSalidas

        Dim EsContabilizable As Boolean = (CveModalidad = 1)

+
+
        'MOVIMIENTO DE ENTRADA
        If DtMovimientosEntradaInvFisico.Rows.Count > 0 Then
            'FolioEntrada = ObjInventario.GetFolioSiguiente(32, UsuarioActual.CveEmpresa)
@@ -4484,9 +4499,35 @@ Partial Class Inventarios_EntradasSalidas
            End If
        Next

+
+
+
+        If Prorratear Then
+            If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+
+                    Dim ProTotalSalida As Decimal = ObjInventario.DtResultados.SUMD("Total", "")
+                    Dim ProCantidadEntrada As Decimal = DtMovimientosEntradaInvFisico.SUMD("Cantidad", "")
+
+                    ProPU = (ProTotalSalida / ProCantidadEntrada).RoundSQL(6)
+
+                    If Not ProPU > 0 Then
+                        ErrorMovInv = True
+                        Mensaje = $"Ocurrió un error al obtener el PU proraterado, pu {ProPU}"
+                    End If
+
+                Else
+                    ErrorMovInv = True
+                    Mensaje = "Ocurrió un error al obtener el PU proraterado"
+                End If
+            End If
+        End If
+
+
+
        If Not ErrorMovInv Then
            For Each Dr As DataRow In DtMovimientosEntradaInvFisico.Rows
-                ImporteConcepto = Dr("PU").ToString.ToDecimal
+                ImporteConcepto = If(Prorratear, ProPU, Dr("PU").ToString.ToDecimal)
                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
                                                          ImporteConcepto, -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString,
                                                          Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then
@@ -4582,12 +4623,16 @@ Partial Class Inventarios_EntradasSalidas
                        tIdCtaGasto = 1321
                End Select

-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
-                    ErrorMovInv = True
-                    Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
+                If Math.Abs((ValorSalida + ValorEntrada)) <> 0 Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
+                        ErrorMovInv = True
+                        Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
+                    End If
                End If
            End If
-        End If
+
+
+            End If

        If Not ErrorMovInv Then
            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -30,6 +30,10 @@ Partial Class Inventarios_KardexAlmacen
                txtFechaI.Text = Now.ToShortDateString
            End If

+            If UsuarioActual.TienePermisoProceso(349) Then
+                DdlIncluyeTransitorios.Items.RemoveAt(0) 'oculta opción "No" en tránsito
+            End If
+
            If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
            ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
        End If
@@ -147,8 +151,9 @@ Partial Class Inventarios_KardexAlmacen
        Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
        Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
+        Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero

-        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(),
+        If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
                                                     DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue,
                                                     Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO) Then
            If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then