GDiaz Pendientes de implementación 2025-01-10

App_Code/ClsOC.vb

@@ -2241,7 +2241,7 @@ Public Class ClsOC
 #End Region
 
 #Region "   OC X VINCULAR COMPRA   "
-    Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1) As Boolean
+    Public Function GetPendietePorSurtirOC(FechaI As String, FechaF As String, CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveCliente As Integer, CveEmpresa As Integer, Optional CveOC As Integer = -1, Optional Gpo As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_OC_ComprasPendientesPorSurtirGet")
@@ -2255,6 +2255,7 @@ Public Class ClsOC
             .Add("@FechaF", SqlDbType.VarChar).Value = FechaF
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveOC", SqlDbType.Int).Value = CveOC
+            .Add("@Gpo", SqlDbType.Int).Value = Gpo
         End With
 
         Try

App_Code/ClsVentas.vb

@@ -602,7 +602,7 @@ Public Class ClsVentas
                                  Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1,
                                  Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1,
                                  Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha,
-                                 Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1") As Boolean
+                                 Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveCondicionEntrega As Integer = -1, Optional FolioRemision As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasUpdate")
@@ -643,6 +643,7 @@ Public Class ClsVentas
             .Add("@Episodio", SqlDbType.VarChar).Value = Episodio
             .Add("@CveCondicionEntrega", SqlDbType.Int).Value = CveCondicionEntrega
             .Add("@FolioRemision", SqlDbType.VarChar).Value = FolioRemision
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
         End With
 
         Try
@@ -657,7 +658,7 @@ Public Class ClsVentas
 
     Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String,
                                              Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1,
-                                             Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean
+                                             Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasObservacionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -678,6 +679,8 @@ Public Class ClsVentas
             .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir
             .Add("@Paciente", SqlDbType.VarChar).Value = Paciente
             .Add("@Episodio", SqlDbType.VarChar).Value = Episodio
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+
 
         End With
         Try
@@ -835,12 +838,13 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
-    Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date) As Boolean
+    Public Function UpdateFechaVencimientoVenta(CveVenta As Integer, FechaVencimiento As Date, CveUsuarioModifico As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasFechaVencimientoUpdate")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
         End With
         Try
             SqlAdapter.Fill(Data)

Bancos/ProveedoresAbonar.aspx

@@ -342,7 +342,9 @@
                             <asp:CheckBox Text=" No Validar ante SAT" ID="ChkNoValidaSAT" CssClass="md-checksd" runat="server" Checked="false" Visible="false" />
                             <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                             <asp:CheckBox Text="Descuento" ID="chkaplicaDescuento" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuento_CheckedChanged" AutoPostBack="true" Visible="false" />
-
+                            <asp:CheckBox Text="Descuento Masivo" ID="chkaplicaDescuentoMasivo" CssClass="md-checksd" runat="server" Checked="false" OnCheckedChanged="chkaplicaDescuentoMasivo_CheckedChanged" AutoPostBack="true" Visible="false" />
+                            <asp:TextBox runat="server" ID="TxtDescuenoMasivo" ClientIDMode="Static" onkeyup ="DescuenoMasivo(this)" Visible="false" Width="60px"></asp:TextBox>
+                            <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuenoMasivo" FilterType="Custom"  ValidChars="1234567890+"   />
                         </td>
 
                     </tr>
@@ -453,7 +455,7 @@
                     <asp:TemplateField Visible="false" ItemStyle-Width="60px">
                         <HeaderTemplate>% Desc.</HeaderTemplate>
                         <ItemTemplate>
-                            <asp:TextBox ID="TxtDescuento" Width="60px" runat="server" Style="text-align: right;" MaxLength="15"></asp:TextBox>
+                            <asp:TextBox ID="TxtDescuento" Width="60px" runat="server" Style="text-align: right;" MaxLength="15" CssClass="selDescuento"></asp:TextBox>
                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDescuento" ValidChars="1234567890+." FilterType="Custom" />
 
                         </ItemTemplate>
@@ -789,6 +791,10 @@
         }
 
 
+        function DescuenoMasivo(txt) {                        
+            $(".selDescuento").val(txt.value);
+            $(".selDescuento").trigger("keyup");
+        }
 
     </script>
 </asp:Content>

Bancos/ProveedoresAbonar.aspx.vb

@@ -324,6 +324,7 @@ Partial Class Bancos_ProveedoresAbonar
             If UsuarioActual.TienePermisoProceso(361) Then
                 'GvCxP.Columns(11).Visible = True
                 chkaplicaDescuento.Visible = True
+                chkaplicaDescuentoMasivo.Visible = True
             End If
 
 
@@ -1673,10 +1674,15 @@ Partial Class Bancos_ProveedoresAbonar
 
         GvCxP.Columns(11).Visible = chkaplicaDescuento.Checked
         UPCompras.Update()
-
     End Sub
 
 
+    Protected Sub chkaplicaDescuentoMasivo_CheckedChanged(sender As Object, e As EventArgs)
+
+        GvCxP.Columns(11).Visible = chkaplicaDescuentoMasivo.Checked
+        TxtDescuenoMasivo.Visible = chkaplicaDescuentoMasivo.Checked
+        UPCompras.Update()
+    End Sub
 
     Private Sub tmpValida()
 

Inventarios/Kardex.aspx.vb

@@ -315,7 +315,7 @@ Partial Class Inventarios_Kardex
         End If
         Dim ObjOC As New ClsOC
         If ObjOC.PendientesCompra(ddlProducto2.SelectedValue.ToEntero, tCveSubProyectos, UsuarioActual.CveEmpresa) Then
-            GvOC.DataSource = ObjOC.DtResultados.Copy
+            GvOC.DataSource = ObjOC.DtResultados.Copy.FiltraParametros("", "Fecha Desc")
             LnkIndicador_OC.Text = ObjOC.DtResultados.Copy.SUM("CantidadPendienteVincular").ToString()
         End If
         ObjOC.Dispose()

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -9,9 +9,23 @@ Imports Telerik.Web.UI
 Partial Class Inventarios_KardexAlmacenHorizontal
     Inherits ClsPaginas
 
+    Private Property TienePermisoKardex As Boolean
+        Get
+            If ViewState("TienePermisoKardex") Is Nothing Then
+                ViewState("TienePermisoKardex") = False
+            End If
+
+            Return Boolean.Parse(ViewState("TienePermisoKardex").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("TienePermisoKardex") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'TxtFechaI.Text =  NowADS().AddMonths(-1).ToShortDateString
+            TienePermisoKardex = If(UsuarioActual.TienePermisoPagina(224), True, False)
             TxtFechaF.Text = NowADS().ToShortDateString
             CargaCombos()
             ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -241,7 +255,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                 Dim Celda As String = Cells.Text
                 If IsNumeric(Celda) Then
                     Dim CveAlmacen2 As Integer = -1
-                    If Index >= 5 Then
+                    If Index >= 4 Then
                         Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
                         If Array.Length > 1 Then
                             CveAlmacen2 = Array(1).ToEntero
@@ -270,7 +284,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                             Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
                         Else
                             Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
-                            If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 Then
+                            If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 AndAlso TienePermisoKardex Then
                                 Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={txtFechaI.Text}&FechaF={TxtFechaF.Text}")
                                 Cells.Text = String.Format("<a target='_blank' href=""{1}"">{0}</a>", Celda.FormatoNumero(), Liga2)
                             End If

OC/OC.aspx.vb

@@ -734,6 +734,7 @@ Partial Class OC_OC
                 DdlSubProyectoGral.DataBind()
                 DdlSubProyectoGral.Items.Insert(0, New ListItem("-", "-1"))
                 DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
+                DdlSubProyectoEntrega.SelectedValueExist(UsuarioActual.CveSubProyecto)
                 ModalidadSubProyectoGeneral = True
                 TdProyectoSubPrpyectoDdl.Visible = False
                 TdProyectoSubPrpyecto.Visible = False
@@ -4117,7 +4118,8 @@ Partial Class OC_OC
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
+            'If TienePermisoKardex AndAlso e.Row.RowState = DataControlRowState.Normal Then
+            If TienePermisoKardex AndAlso (e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate) Then
                 e.Row.FCLabel("LblPS").Visible = False
                 e.Row.FCHyperLink("HlPS").Visible = True
                 e.Row.FCHyperLink("HLPS").NavigateUrl = $"../Inventarios/Kardex.aspx?CvePS={e.Row.DBCampo("CvePS").ToString}"

OC/RepOCxSurtir.aspx

@@ -10,6 +10,22 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+       <asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UppAcciones">
+   <ContentTemplate>
+  
+       <li>
+           <asp:LinkButton ID="LnkPdf" OnClick="LnkPdf_Click" runat="server"> <i class="fa fa-ad-pdf"></i>  Generar PDF</asp:LinkButton>
+       </li>
+       <li>
+           <asp:LinkButton ID="LnkExportar" runat="server">  <i class="fa fa-ad-excel"></i> Exportar Excel       </asp:LinkButton>
+       </li>    
+      
+       </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LnkPdf" />
+            <asp:PostBackTrigger ControlID="LnkExportar" />            
+        </Triggers>
+   </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
@@ -57,6 +73,13 @@
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="select2me Widthall"></asp:DropDownList>
                             </div>
+                            <div class="col-md-1" style="max-width: 110px;">Grupo:</div>
+                            <div class="col-md-1" >
+                                <asp:DropDownList runat="server" ID="DdlGrupo" CssClass="select2me">
+                                    <asp:ListItem Value="1">Detallado</asp:ListItem>
+                                    <asp:ListItem Value="2">Por Orden de Compra</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                         </div>
                     </div>
                 </div>
@@ -84,6 +107,7 @@
         <div class="col-md-12">
             <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
+
                     <asp:GridView ID="GvDatos" EmptyDataText="No se encontraron productos por surtir." CssClass="table table-striped table-hover Widthall ScrollAD" runat="server" AutoGenerateColumns="False" GridLines="None">
                         <Columns>
                             <asp:HyperLinkField DataTextField="Folio" HeaderText="Folio" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataNavigateUrlFields="CveOrdenCompra" Target="_blank" />
@@ -95,6 +119,18 @@
                             <asp:BoundField DataField="Pendiente" HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
                         </Columns>
                     </asp:GridView>
+
+                    <asp:GridView ID="GvDatosPorOC" EmptyDataText="No se encontraron productos por surtir." CssClass="table table-striped table-hover Widthall ScrollAD" runat="server" AutoGenerateColumns="False" GridLines="None">
+                        <Columns>
+                            <asp:HyperLinkField DataTextField="Folio" HeaderText="Folio" ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataNavigateUrlFields="CveOrdenCompra" Target="_blank" />
+                            <asp:BoundField DataField="FechaIng" HeaderText="Fecha" DataFormatString="{0:d}" />
+                            <asp:BoundField DataField="Descripcion" HeaderText="Descripción" />                            
+                            <asp:BoundField DataField="CantidadOC" HeaderText="CantidadOC" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
+                            <asp:BoundField DataField="CantidadCompra" HeaderText="Cantidad Compra" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
+                            <asp:BoundField DataField="Pendiente" HeaderText="Pendiente" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,###.####}" />
+                        </Columns>
+                    </asp:GridView>
+
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>

OC/RepOCxSurtir.aspx.vb

@@ -1,10 +1,41 @@
 Option Explicit On
 Option Strict On
 
+Imports System.Activities.Expressions
+Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+
 Partial Class OC_RepOCxSurtir
     Inherits ClsPaginas
 
+
+    Property DtDatos As DataTable
+        Get
+            If ViewState("DtDatos") Is Nothing Then
+                ViewState("DtDatos") = New DataTable
+            End If
+            Return DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+
+    Property DtDatosPorOC As DataTable
+        Get
+            If ViewState("DtDatosPorOC") Is Nothing Then
+                ViewState("DtDatosPorOC") = New DataTable
+            End If
+            Return DirectCast(ViewState("DtDatosPorOC"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatosPorOC") = value
+        End Set
+    End Property
+
+
     Protected Sub OC_RepOCxSurtir_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             InicializaValores()
@@ -71,20 +102,44 @@ Partial Class OC_RepOCxSurtir
     End Sub
     Private Sub CargaDatos()
         Dim ObjOC As New ClsOC
+        GvDatos.DataSource = Nothing
+        GvDatosPorOC.DataSource = Nothing
+        GvDatos.Visible = False
+        GvDatosPorOC.Visible = False
+        DtDatos = New DataTable
+        DtDatosPorOC = New DataTable
 
         Dim FechaI, FechaF As String
         FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
         FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
 
-        If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If ObjOC.GetPendietePorSurtirOC(FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, If(TxtFolio.Text = "", -1, TxtFolio.Text.ToEntero), DdlSubProyecto.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
-            GvDatos.DataSource = ObjOC.DtResultados
+                                        Gpo:=DdlGrupo.SelectedValue.ToEntero) Then
-        Else
+
-            GvDatos.DataSource = Nothing
+            If DdlGrupo.SelectedValue.ToEntero = 1 Then
+                GvDatos.DataSource = ObjOC.DtResultados
+                DtDatos = ObjOC.DtResultados
+                GvDatos.Visible = True
+            Else
+                GvDatosPorOC.DataSource = ObjOC.DtResultados
+                DtDatosPorOC = ObjOC.DtResultados
+                GvDatosPorOC.Visible = True
+            End If
+
+
         End If
 
-        GvDatos.DataBind()
         ObjOC.Dispose()
+        If DdlGrupo.SelectedValue.ToEntero = 1 Then
+            GvDatos.DataBind()
+        Else
+            GvDatosPorOC.DataBind()
+        End If
+
+
+
         UpDatos.Update()
+
     End Sub
 
     Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
@@ -103,7 +158,105 @@ Partial Class OC_RepOCxSurtir
         End If
     End Sub
 
+    Private Sub GvDatosPorOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosPorOC.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If e.Row.DBCampo("CveOrdenCompra") = "" Then
+                e.Row.CssClass = "Totales"
+                'e.Row.Cells(3).Visible = False
+                'e.Row.Cells(2).ColumnSpan = 2
+                'ElseIf e.Row.DBCampo("CodigoPS") = "" Then
+                '    e.Row.CssClass = "SubTotales2"
+            Else
+                'e.Row.Cells(0).Text = ""
+                'e.Row.Cells(1).Text = ""
+                'e.Row.Cells(2).Text = ""
+            End If
+        End If
+    End Sub
+
 #End Region
 
+
+#Region "   IMPRIMIR   "
+
+    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        'GvDatos.ExportToExcel("ReporteComprasDetalles" & NowADS().ToShortDateString)
+        GenerarPDF("EXCEL")
+    End Sub
+
+    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
+        GenerarPDF("PDF")
+    End Sub
+    Private Sub GenerarPDF(Opcion As String)
+        Dim FechaI = If(TxtFechaI.Text = "" Or TxtFechaI.Text = "__/__/____", "-1", TxtFechaI.Text)
+        Dim FechaF = If(TxtFechaF.Text = "" Or TxtFechaF.Text = "__/__/____", "-1", TxtFechaF.Text)
+        'Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
+        'Dim Capturo = If(DDlUsuarioCaptura.SelectedValue = "-1", "", $"&emsp;<b>Capturó:</b> {DDlUsuarioCaptura.SelectedItem.Text}")
+        Dim Grupo = DdlGrupo.SelectedItem.Text
+        Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {TxtFechaI.Text}"
+        Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {TxtFechaF.Text}"
+        If TxtFechaI.Text = "" Then FechaIn = ""
+        If TxtFechaF.Text = "" Then FechaFn = ""
+
+        'Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
+        'Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
+        'Dim TipoGasto = If(DdlTipoGasto.GetSelectedText = "", "", $"&emsp;<b>Tipo Gasto:</b> {DdlTipoGasto.GetSelectedText}")
+        'Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
+        'Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Documento:</b> {DdlTipoDocto.SelectedItem.Text}")
+
+        Dim FechaIF, FechaFF As String
+        FechaIF = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
+        FechaFF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
+        Dim FechaICapturaF, FechaFCapturaF As String
+        'FechaICapturaF = If(IsDate(TxtFechaICaptura.Text.Trim()), TxtFechaICaptura.Text.Trim(), "-1")
+        'FechaFCapturaF = If(IsDate(TxtFechaFCaptura.Text.Trim()), TxtFechaFCaptura.Text.Trim(), "-1")
+
+        'Dim FechaCIn As String = $"&emsp;<b>Fecha Inicio Captura:</b> {TxtFechaICaptura.Text.Trim()}"
+        'Dim FechaCFn As String = $"&emsp;<b>Fecha Fin Captura:</b> {TxtFechaFCaptura.Text.Trim()}"
+
+        'If Not IsDate(TxtFechaICaptura.Text.Trim()) Then FechaCIn = ""
+        'If Not IsDate(TxtFechaFCaptura.Text.Trim()) Then FechaCFn = ""
+
+        If DdlGrupo.SelectedValue.ToEntero = 1 Then
+
+        Else
+
+        End If
+
+        If (DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 1) Or (DtDatosPorOC IsNot Nothing AndAlso DtDatosPorOC.Rows.Count > 0 AndAlso DdlGrupo.SelectedValue.ToEntero = 2) Then
+
+            'For Each Dr As DataRow In DtDatos.Rows
+            '    Dr("Fecha") = Dr("Fecha").ToString.ToDate.ToShortDateString
+            'Next
+
+            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaInicio", FechaI))
+            params.Add(New ReportParameter("FechaFin", FechaF))
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
+            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{FechaIn}{FechaFn}"))
+            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+
+            Dim NombreArchivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepOCxSurtir.rdlc", "RepOCxSurtirPorOC.rdlc")
+
+            Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo))
+            If Archivo.Exists Then
+                ImprimirPDF(Archivo.FullName, If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular ", Opcion)
+            Else
+                ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", If(DdlGrupo.SelectedValue.ToEntero = 1, DtDatos, DtDatosPorOC), params, "OrdenesdeCompraporvincular", Opcion)
+            End If
+
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
+#End Region
+
+
 End Class
 

Ventas/Ventas.aspx.vb

@@ -24153,7 +24153,8 @@ Partial Class Ventas
                                           CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal,
                                           OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(),
                                           CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero,
-                                          FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(), FolioRemision:=TxtFolioRemision.Text.Trim) Then
+                                          FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text, CveCondicionEntrega:=DdlFormaEntrega.SelectedValue.ToEntero(), FolioRemision:=TxtFolioRemision.Text.Trim,
+                                          CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                 OcurrioError = True
             End If
 
@@ -33367,7 +33368,8 @@ Partial Class Ventas
                                   Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1),
                                   PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim.ToUpper(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(),
                                   CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal,
-                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero()) Then
+                                  TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(),
+                                  CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                 MensajeError = "Ocurrió un error al actualizar la información de la cotización"
                 OcurrioError = True
             End If
@@ -35365,7 +35367,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If Not ObjVentas.UpdateFechaVencimientoVenta(CveVenta, TxtFechaPago.Text.ToDate) Then
+        If Not ObjVentas.UpdateFechaVencimientoVenta(CveVenta, TxtFechaPago.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
             ErrorTrans = True
         End If
 
@@ -36876,7 +36878,7 @@ Partial Class Ventas
         If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text,
                                                 TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim,
                                                 CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text,
-                                                Episodio:=TxtEpisodio.Text) Then
+                                                Episodio:=TxtEpisodio.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
             TieneError = True
         End If