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

Inventarios/EntradasSalidas.aspx

@@ -565,7 +565,7 @@
                             <asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" OnClick="BtnVinculaAFEdit_Click" Style="display: none;" runat="server" />
                             <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
 
-                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="True" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
+                            <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" ShowHeader="True" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,Cantidad,CvePS,CveUM,PU,Observaciones,CodigoPS,UnidadMedida,CveAF,Serie,Lote,FechaCaducidad,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True">
                                 <Columns>
                                     <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
                                         <EditItemTemplate>
@@ -1365,6 +1365,10 @@
                             </asp:DropDownList>
                             <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacén</label>
                         </div>
+                        <div runat="server" id="divCaducidad" class="form-group form-md-line-input input-iconright" visible="false">
+                            <asp:TextBox ID="TxtnFechaCaducidad" CssClass="form-control input-sm" runat="server" Width="80px"  ></asp:TextBox>
+                            <label for="<%= TxtnFechaCaducidad.ClientID.ToString()%>">Fecha Caducidad</label>
+                        </div>
                         <br />
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>

Inventarios/EntradasSalidas.aspx.vb

@@ -270,14 +270,6 @@ Partial Class Inventarios_EntradasSalidas
         End Set
     End Property
 
-    Public Property FechaCaducidadAux() As String
-        Get
-            Return ViewState("FechaCaducidadAux").ToString
-        End Get
-        Set(value As String)
-            ViewState("FechaCaducidadAux") = value
-        End Set
-    End Property
 
 #End Region
 
@@ -352,7 +344,7 @@ Partial Class Inventarios_EntradasSalidas
             If CveMovimiento > 0 Then
                 PermisoVerImportes()
             End If
-            FechaCaducidadAux = MinFecha.ToString
+
         End If
     End Sub
 
@@ -1166,13 +1158,15 @@ Partial Class Inventarios_EntradasSalidas
 
         AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedText, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDouble,
                txtPrecio.Text.ToDouble, TxtnSerie.Text.Replace(" ", String.Empty), LblCodigo.Text, HdnCodigoAF.Value, HdnCveActivoFijo.Value, TxtObservacionesdetalle.Text,
-               TxtnLote.Text.Trim, FechaCaducidadAux.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text)
+               TxtnLote.Text.Trim, TxtnFechaCaducidad.Text.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text)
         LimpiarAgregar()
 
         txtCantidad.Text = ""
         TxtnLote.Text = ""
         LblCodigo.Text = ""
         TxtnSerie.Text = ""
+        TxtnLote.Text = ""
+        TxtnFechaCaducidad.Text = ""
         HdnCodigoAF.Value = "-1"
         HdnCveActivoFijo.Value = "-1"
         RegistraScript("CodigoAF = "";")
@@ -2162,25 +2156,23 @@ Partial Class Inventarios_EntradasSalidas
             If dr IsNot Nothing Then
                 If CBool(dr("AplicaSerie")) Then
 
-                    'LblSerieLote.Visible = True
                     TxtnSerie.Visible = True
                     divSerie.Visible = True
 
-                    'TrSerieLote.Visible = True
-                    'TrSerieLote2.Visible = True
-
                 End If
                 If CBool(dr("AplicaLote")) Then
                     TxtnLote.Visible = True
                     divLote.Visible = True
-                    'TrLote.Visible = True
-                    'TrLote2.Visible = True
 
                 End If
                 If CBool(dr("AplicaSeccion")) Then
                     divSeccionAlmacen.Visible = True
 
                 End If
+                If CBool(dr("AplicaCaducidad")) Then
+                    divCaducidad.Visible = True
+
+                End If
             End If
 
         End If
@@ -2383,6 +2375,8 @@ Partial Class Inventarios_EntradasSalidas
         CveAFEdit = GvRow.DataKey("CveAF").ToEntero
         txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
         TxtnSerie.Text = GvRow.DataKey("Serie")
+        TxtnLote.Text = GvRow.DataKey("Lote")
+        TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad").ToDate.ToShortDateString
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
         LkAgregarDetalle.Text = "Actualizar"
@@ -2409,6 +2403,8 @@ Partial Class Inventarios_EntradasSalidas
         CveAFEdit = GvRow.DataKey("CveAF").ToEntero
         txtPrecio.Text = GvRow.DataKey("PU").ToDouble.FormatoNumero
         TxtnSerie.Text = GvRow.DataKey("Serie")
+        TxtnLote.Text = GvRow.DataKey("Lote")
+        TxtnFechaCaducidad.Text = GvRow.DataKey("FechaCaducidad")
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
         Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
@@ -3998,12 +3994,13 @@ Partial Class Inventarios_EntradasSalidas
                         TxtnSerie.Text = Serie
                         TxtnLote.Text = Lote
                         DdlSeccionAlmacen.SelectedValue = CveSeccionAlmacen.ToString
-                        FechaCaducidadAux = If(Caducidad = "", MinFecha.ToString, Caducidad)
+                        TxtnFechaCaducidad.Text = If(Caducidad = "", MinFecha.ToString, Caducidad)
                         AgregarPS()
                         txtPrecio.Text = ""
                         DdlUnidad.SelectedItem.Text = ""
                         TxtnSerie.Text = ""
                         TxtnLote.Text = ""
+                        TxtnFechaCaducidad.Text = ""
                         DdlSeccionAlmacen.SelectedValue = "-1"
                         NumAgregados = NumAgregados + 1
 
@@ -4228,6 +4225,8 @@ Partial Class Inventarios_EntradasSalidas
         ElProductoChange()
         txtPrecio.Text = ""
         TxtnSerie.Text = ""
+        TxtnLote.Text = ""
+        TxtnFechaCaducidad.Text = ""
         TxtObservacionesdetalle.Text = ""
         DdlSeccionAlmacen.SelectedValue = "-1"
         LkAgregarDetalle.Text = "Agregar"

Inventarios/RecepcionAlmacen.aspx

@@ -453,7 +453,7 @@
                             </asp:TemplateField>
                             <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                 <ItemTemplate>
-                                    <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" DataValueField="CveSeccion" CssClass="select2me" Style="width: 85% !important" runat="server" CausesValidation="true" Visible="false">
+                                    <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" DataValueField="CveSeccionAlmacen" CssClass="select2me" Style="width: 85% !important" runat="server" CausesValidation="true" Visible="false">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                     </asp:DropDownList>
                                 </ItemTemplate>

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1264,11 +1264,19 @@ Partial Class Inventarios_RecepcionAlmacen
             If CBool(e.Row.DBCampo("AplicaSeccion")) Then
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 If DdlAlmacen.SelectedValue.ToEntero > 0 Then
-                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    Dim dtsec As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtsec
                     e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
+                    If dtsec.Rows.Count = 1 Then
+                        e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedIndex = 0
+                        e.Row.FCDropDownList("DdlSeccionAlmacen").Enabled = False
+                    End If
+
                     e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
-                End If
+
-                e.Row.FCTextBox("TxtDividir").Visible = True
+                    dtsec.Dispose()
+                    End If
+                    e.Row.FCTextBox("TxtDividir").Visible = True
 
             Else
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False

Ventas/Ventas.aspx.vb

@@ -13777,7 +13777,7 @@ Partial Class Ventas
                     If TipoPrecioLista = 10 Then
 
                         CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
-                        If CvePrecioListaPS = 0 Then
+                        If CvePrecioListaPS <= 0 Then
 
                             CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
 
@@ -13786,7 +13786,7 @@ Partial Class Ventas
                     Else
 
                         CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
-                        If CvePrecioListaPS = 0 Then
+                        If CvePrecioListaPS <= 0 Then
 
                             CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()