-- registro de remisión al entregar!

Ventas/RepPedidosSTF.aspx

@@ -85,37 +85,29 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <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" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
+                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%">
                 <Columns>
-                    <asp:BoundField HeaderText="Grupo" DataField="GPO" ItemStyle-Width="40%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-Width="30%"  />
-                    <asp:TemplateField ItemStyle-Width="20%">
+                    <asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" ItemStyle-Width="10%"  />
-                        <HeaderTemplate>
+                    <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-Width="7.5%"  />
-                            <asp:Literal runat="server" Text='<%# NowADS().Year %>'></asp:Literal>
+                    <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="5%"  />
-                        </HeaderTemplate>
+                    <asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-Width="30%"  />
+                    <asp:BoundField HeaderText="Vendedor" DataField="Vendedor" ItemStyle-Width="20%"  />
+                      
+                    <asp:TemplateField ItemStyle-Width="2.5%">                        
                         <ItemTemplate>
-                            <asp:Literal runat="server" Text='<%# Eval("Anio1", "{0:N2}") %>'></asp:Literal>
+                            <asp:Checkbox runat="server" ID="chk" ></asp:Checkbox>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="20%">
-                        <HeaderTemplate>
-                            <asp:Literal runat="server" Text='<%# (NowADS().Year - 1) %>'></asp:Literal>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal runat="server" Text='<%# Eval("Anio2", "{0:N2}") %>'></asp:Literal>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-Width="20%">
-                        <HeaderTemplate>
-                            <asp:Literal runat="server" Text='<%# (NowADS().Year - 2) %>'></asp:Literal>
-                        </HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:Literal runat="server" Text='<%# Eval("Anio3", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
             </asp:GridView>
+            <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" />
+                </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">

Ventas/RepPedidosSTF.aspx.vb

@@ -1,6 +1,7 @@
 Option Explicit On
 Option Strict On
 
+Imports System.Data
 Imports Extensiones
 Partial Class Ventas_RepPedidosSTF
     Inherits ClsPaginas
@@ -20,6 +21,8 @@ Partial Class Ventas_RepPedidosSTF
         DdlVendedor.DataBind()
         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)
     End Sub
 
     Protected Sub CargaDatos()
@@ -32,19 +35,101 @@ 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
+        'If e.Row.RowType = DataControlRowType.DataRow Then
-            Select Case e.Row.DBCampo("TipoFila")
+        '    Select Case e.Row.DBCampo("TipoFila")
-                Case "1"
+        '        Case "1"
-                    e.Row.CssClass = "Totales"
+        '            e.Row.CssClass = "Totales"
-                Case "2"
+        '        Case "2"
-                    e.Row.CssClass = "SubTotales"
+        '            e.Row.CssClass = "SubTotales"
-                Case "3"
+        '        Case "3"
-                    e.Row.CssClass = "Texto"
+        '            e.Row.CssClass = "Texto"
-            End Select
+        '    End Select
-        End If
+        'End If
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         CargaDatos()
         UPDatos.Update()
     End Sub
+
+    Protected Sub BtnEntregar_Click(sender As Object, e As EventArgs)
+        'validar que están seleccionados
+        Dim TmpDTRemis As New DataTable
+        TmpDTRemis.Columns.Add("CveVentaDetalle", GetType(Integer))
+        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("CveUnidadMedida", GetType(Integer))
+        TmpDTRemis.Columns.Add("PU", GetType(Decimal))
+        TmpDTRemis.Columns.Add("CveVendedor", 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("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
+                TmpDTRemis.Rows.Add(drp)
+            End If
+        Next
+
+        If TmpDTRemis IsNot Nothing AndAlso TmpDTRemis.Rows.Count = 0 Then
+            Alert("No se ha seleccionado ninguna partida, favor de seleccionar", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjA As New ClsInventarios
+        ObjA.IniciaTransacSQL()
+        Dim TieneError As Boolean = False
+        Dim StrAlerta As New StringBuilder
+
+        For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor"}).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
+            For Each dr As DataRow In TmpDTRemis.FiltraParametros($"CveCliente ={drt("CveCliente")} AND CveVendedor = {drt("CveVendedor")} AND CveSubProyecto = {drt("CveSubProyecto")}").Rows
+
+                If ObjFactura IsNot Nothing Then
+                    If Not ObjFactura.AgregarPS(dr("CvePS").ToString.ToEntero, dr("Cantidad").ToString.ToDecimal, dr("PU").ToString.ToDecimal, 0, "", CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, CveVentaDetallePadre:=dr("CveVentaDetalle").ToString.ToEntero) Then
+                        Alert("Error al agregar producto", TipoMensaje.MsgAdvertencia)
+                        TieneError = True
+                        Exit For
+                    Else
+                        If Not ObjA.UpdateEstatusAlmacen(dr("CveVentaDetalle").ToString.ToEntero, 0) Then
+                            TieneError = True
+                        End If
+                    End If
+                End If
+            Next
+            If Not TieneError Then
+                ObjFactura.CalculaTotales()
+                Dim Resp As New Modelos.Factura.MMensajeFactura
+                Resp = ObjFactura.EmitirFactura(False, Transac:=ObjA.IniciaTransacSQL)
+
+                If Resp.CveVenta > 0 Then
+                    Dim a As String = "a"
+                    StrAlerta.AppendFormat("<a href = '/Ventas/Ventas.aspx?CveVenta={0}' class='Texto'>{1}</a><br/>", Resp.CveVenta, Resp.SerieFolio)
+                    'Respuesta.CveVenta = Resp.CveVenta
+                    'Respuesta.SerieFolio = Resp.SerieFolio
+                    'Respuesta.dtdetalle = TmpDTMat
+                Else
+                    TieneError = True
+                End If
+            End If
+        Next
+
+        If Not TieneError Then
+            ObjA.Commit()
+            Alert("Se registraron las siguientes remisiones: <br/>" & StrAlerta.ToString)
+            CargaDatos()
+        Else
+            ObjA.RollBack()
+        End If
+
+    End Sub
 End Class