Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Inventarios/Consignaciones.aspx.vb

@@ -595,9 +595,9 @@ Partial Class Inventarios_Consignaciones
 
                 Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
                 Dim SeccionAlmacen As String = DdlSeccionAlmacen.SelectedItem.Text
-                Dim Serie As String = If(TxtSerie.Text = "", "-1", TxtSerie.Text)
-                Dim Lote As String = If(TxtLote.Text = "", "-1", TxtLote.Text)
-                Dim Caducidad As String = If(TxtCaducidad.Text = "", "-1", TxtCaducidad.Text)
+                Dim Serie As String = If(TxtSerie.Text = "", "", TxtSerie.Text)
+                Dim Lote As String = If(TxtLote.Text = "", "", TxtLote.Text)
+                Dim Caducidad As String = If(TxtCaducidad.Text = "", MinFecha.ToShortDateString, TxtCaducidad.Text)
 
                 Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PSSelected).FiltroPrimero("")
 
@@ -634,6 +634,15 @@ Partial Class Inventarios_Consignaciones
                     GvDatos.DataSource = DtMovimientos
                     GvDatos.DataBind()
 
+
+                    If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
+                        GvDatos.Columns(7).Visible = DtMovimientos.MAX("CveSeccionAlmacen").ToEntero > 0
+                        GvDatos.Columns(8).Visible = DtMovimientos.MAX("Serie") <> ""
+                        GvDatos.Columns(9).Visible = DtMovimientos.MAX("Lote") <> ""
+                        GvDatos.Columns(10).Visible = DtMovimientos.MAX("FechaCaducidad").ToDate > MinFecha
+
+                    End If
+
                     TxtCantidad.Text = ""
                     TxtPU.Text = ""
                     LbTotal.Text = ""

Inventarios/EntradasSalidas.aspx.vb

@@ -1259,6 +1259,13 @@ Partial Class Inventarios_EntradasSalidas
             Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
         End If
 
+        If RowPS("VentaMinima").ToString.ToDecimal > 0 Then
+            If Cantidad Mod RowPS("VentaMinima").ToString().ToDecimal <> 0 Then
+                Alert(String.Format("El producto se vende solo en cantidades de {0}", RowPS("VentaMinima").ToString()))
+                Valido = False
+            End If
+        End If
+
         'salida
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 

Inventarios/Kardex.aspx

@@ -142,6 +142,12 @@
                 </div>--%>
             </li>
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger  ControlID="ImgImprimir" />
+            <asp:PostBackTrigger ControlID="LnkExportar"  />
+
+        </Triggers>
+
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">