-- mejoras STF

Ventas/RepPedidosSTF.aspx

@@ -84,8 +84,9 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+            <div style="height: 250px; overflow-x: scroll">
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados" 
-                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle" data-sort="true"  GridLines="None" Width="99%">
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle,GastosEnvio" data-sort="true"  GridLines="None" Width="99%">
                 <Columns>
                     <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-Width="30%"  />
                     <asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" ItemStyle-Width="10%"  />
@@ -103,6 +104,7 @@
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
             </asp:GridView>
+            </div>
             <div class="row">
                 <div class="col-md-12" style="text-align:center;">
                     <asp:Button ID="BtnEntregar" runat="server" Text="Entregado"  class="btn btn-primary" OnClick="BtnEntregar_Click" />

Ventas/RepPedidosSTF.aspx.vb

@@ -22,7 +22,10 @@ Partial Class Ventas_RepPedidosSTF
         DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
 
-        If UsuarioActual.CveVendedor > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
+        If UsuarioActual.CveVendedor > 0 Then
+            DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
+            DdlVendedor.Enabled = False
+        End If
     End Sub
 
     Protected Sub CargaDatos()
@@ -35,16 +38,11 @@ Partial Class Ventas_RepPedidosSTF
         GvDatos.DataBind()
     End Sub
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
-        'If e.Row.RowType = DataControlRowType.DataRow Then
-        '    Select Case e.Row.DBCampo("TipoFila")
-        '        Case "1"
-        '            e.Row.CssClass = "Totales"
-        '        Case "2"
-        '            e.Row.CssClass = "SubTotales"
-        '        Case "3"
-        '            e.Row.CssClass = "Texto"
-        '    End Select
-        'End If
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("CveVendedor") = "" Then e.Row.FCCheckBox("Chk").Visible = False
+
+        End If
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargaDatos()
@@ -58,22 +56,24 @@ Partial Class Ventas_RepPedidosSTF
         TmpDTRemis.Columns.Add("CveCliente", GetType(Integer))
         TmpDTRemis.Columns.Add("CveSubProyecto", GetType(Integer))
         TmpDTRemis.Columns.Add("CvePS", GetType(Integer))
-        TmpDTRemis.Columns.Add("Cantidad", GetType(Integer))
+        TmpDTRemis.Columns.Add("Cantidad", GetType(Decimal))
         TmpDTRemis.Columns.Add("CveUnidadMedida", GetType(Integer))
         TmpDTRemis.Columns.Add("PU", GetType(Decimal))
         TmpDTRemis.Columns.Add("CveVendedor", GetType(Decimal))
+        TmpDTRemis.Columns.Add("GastosEnvio", GetType(Decimal))
         'agruparo por cliente
         For Each gvr As GridViewRow In GvDatos.Rows
             If gvr.FCCheckBox("chk").Checked Then
                 Dim drp As DataRow = TmpDTRemis.NewRow
                 drp("CvePS") = gvr.DataKey("CvePS").ToEntero
-                drp("Cantidad") = gvr.DataKey("Cantidad").ToEntero
-                drp("PU") = gvr.DataKey("PU").ToEntero
+                drp("Cantidad") = gvr.DataKey("Cantidad").ToDecimal
+                drp("PU") = gvr.DataKey("PU").ToDecimal
                 drp("CveUnidadMedida") = gvr.DataKey("CveUnidadMedida").ToEntero
                 drp("CveSubProyecto") = gvr.DataKey("CveSubProyecto").ToEntero
                 drp("CveCliente") = gvr.DataKey("CveCliente").ToEntero
                 drp("CveVendedor") = gvr.DataKey("CveVendedor").ToEntero
                 drp("CveVentaDetalle") = gvr.DataKey("CveVentaDetalle").ToEntero
+                drp("GastosEnvio") = gvr.DataKey("GastosEnvio").ToDecimal
                 TmpDTRemis.Rows.Add(drp)
             End If
         Next
@@ -88,7 +88,7 @@ Partial Class Ventas_RepPedidosSTF
         Dim TieneError As Boolean = False
         Dim StrAlerta As New StringBuilder
 
-        For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor"}).Rows
+        For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor", "GastosEnvio"}).Rows
 
             Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, drt("CveSubProyecto").ToString.ToEntero, drt("CveCliente").ToString.ToEntero, 1, "Rem")
             ObjFactura.CveVendedor = drt("CveVendedor").ToString.ToEntero
@@ -106,6 +106,14 @@ Partial Class Ventas_RepPedidosSTF
                     End If
                 End If
             Next
+
+            If drt("GastosEnvio").ToString.ToDecimal > 0 Then
+                Dim tCvePSEnvio As Integer = usuarioactual.empresa.Funcionalidad(160).toentero
+                If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then
+                    TieneError = True
+                End If
+            End If
+
             If Not TieneError Then
                 ObjFactura.CalculaTotales()
                 Dim Resp As New Modelos.Factura.MMensajeFactura