Ajsute almacen prorrateo, Clientes diseño perdido parametros estados de cuenta

Inventarios/EntradasSalidas.aspx.vb

@@ -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