-- registro de remisión al entregar!

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
-            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
+        '    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
     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