Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/ResguardoMaterial.aspx

@@ -52,8 +52,8 @@
 
                         <div class="row" style="margin-left: 0px; margin-right: 0px;">
 
-                            <div class="col-md-6">
-                                <div class="portlet xspadding light bordered infomov">
+                            <div class="col-md-6"  runat="server"   >
+                                <div class="portlet xspadding light bordered infomov" >
                                     <div class="portlet-title">
                                         <div class="tools">
                                             <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
@@ -377,7 +377,7 @@
                                     </div>
                                 </div>
                             </div>
-                            <div class="portlet-body">
+                            <div class="portlet-body"   >
                                 <div class="row">
                                     <div class="col-md-1" style="max-width: 100px">Fecha</div>
                                     <div class="col-md-2">
@@ -409,7 +409,7 @@
                         <div class="row" style="margin-left: 0px; margin-right: 0px;">
 
                             <div class="col-md-6">
-                                <div class="portlet smmallpadding light bordered infomov">
+                                <div class="portlet smmallpadding light bordered infomov"  runat="server" id ="DVInformacionMoviminetoLiberacion" >
                                     <div class="portlet-title">
                                         <div class="tools">
                                             <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
@@ -494,7 +494,7 @@
                                 <asp:TemplateField HeaderText="Lote" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="7.5%" Visible="false">
                                 <ItemTemplate>
                                         <asp:TextBox ID="TxtLote" Width="80px" class="form-control input-sm" runat="server" Visible="false"></asp:TextBox>
-                                    </ItemTemplate>
+                                </ItemTemplate>
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Fecha Caducidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" Visible="false">
                                     <ItemTemplate>

Inventarios/ResguardoMaterial.aspx.vb

@@ -635,29 +635,54 @@ Partial Class Inventarios_ResguardoMaterial
 #Region "  CARGA RESGUARDOS PARA LIBERACION  "
 
     Protected Sub BtnVerificarExistencias_Click(sender As Object, e As EventArgs)
-        If Not DdlProveedorLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 3 Then
-            Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
 
-        If Not DdlPersonalLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 1 Then
-            Alert("Tiene que seleccionar un personal.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
 
-        If Not DdlClienteLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 2 Then
-            Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+
+        If UsuarioActual.CveEmpresa <> 140 Then
+
+
+            If Not DdlProveedorLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 3 Then
+                Alert("Tiene que seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not DdlPersonalLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 1 Then
+                Alert("Tiene que seleccionar un personal.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+            If Not DdlClienteLiberacion.SelectedValue.ToEntero > 0 AndAlso DdlTipo.SelectedValue.ToEntero = 2 Then
+                Alert("Tiene que seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
         End If
 
         CargaResguardos()
+
+
+        If UsuarioActual.CveEmpresa = 140 Then
+
+            If (DdlTipo.SelectedValue.ToEntero = 1 And DdlPersonalLiberacion.SelectedValue.ToEntero <= 0) Or (DdlTipo.SelectedValue.ToEntero = 2 And DdlClienteLiberacion.SelectedValue.ToEntero <= 0) Or (DdlTipo.SelectedValue.ToEntero = 3 And DdlProveedorLiberacion.SelectedValue.ToEntero <= 0) Then
+
+                DVInformacionMoviminetoLiberacion.Visible = False
+                BtnGuardarLiberacion.Visible = False
+            Else
+                DVInformacionMoviminetoLiberacion.Visible = True
+                BtnGuardarLiberacion.Visible = True
+            End If
+
+            UpGenerales.Update()
+        End If
+
+
     End Sub
 
     Private Sub CargaResguardos()
         Dim ObjInventario As New ClsInventarios()
         Dim Existencias As Double = 0
 
-        If ObjInventario.GetMovimientosDetallePorPersonal(DdlPersonalLiberacion.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero, DdlClienteLiberacion.SelectedValue.ToEntero, DdlProveedorLiberacion.SelectedValue.ToEntero) Then
+        If ObjInventario.GetMovimientosDetallePorPersonal(DdlPersonalLiberacion.SelectedValue.ToEntero, DdlAlmacenLiberacion.SelectedValue.ToEntero, DdlClienteLiberacion.SelectedValue.ToEntero, DdlProveedorLiberacion.SelectedValue.ToEntero, DdlTipo.SelectedValue.ToEntero) Then
             DtMovimientosLiberacion = ObjInventario.DtResultados
 
             DtMovimientosLiberacion.Columns("No").AutoIncrement = True