RepCxC y Detalle Metas, entrga almacen correcion descarga PDF

2022-07-14 08:20:37 -07:00
parent 1edda56d1a
commit 5e6c246cb7
7 changed files with 100 additions and 13 deletions
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -2684,7 +2684,7 @@ Public Class ClsCompras
        Return Retorno
    End Function

-    Public Function AddRepCxCColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer) As Boolean
+    Public Function AddRepCxCColumnas(CveEmpresa As Integer, RangoInicial As Double, RangoFinal As Double, Tipo As Integer, Objetivo As Decimal) As Boolean
        Dim Retorno As Boolean = False
        DataAdapter("PA_Comp_RepCxCColumnasAdd")
        With SqlAdapter.SelectCommand.Parameters
@@ -2692,6 +2692,7 @@ Public Class ClsCompras
            .Add("@RangoInicial", SqlDbType.Float).Value = RangoInicial
            .Add("@RangoFinal", SqlDbType.Float).Value = RangoFinal
            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@Objetivo", SqlDbType.Money).Value = Objetivo
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -17,6 +17,7 @@ Public Class ClsMovimientos
    Private SqlTransacc As SqlTransaction
    Private SqlCommand As SqlCommand
    Private Data As DataTable
+    Private DS As DataSet

    'Atributos de la clase
    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
@@ -32,6 +33,12 @@ Public Class ClsMovimientos
        End Get
    End Property

+    Public ReadOnly Property DSResultados() As DataSet
+        Get
+            DSResultados = DS
+        End Get
+    End Property
+
    Public Property AlertaMensaje As New StringBuilder
 #End Region

@@ -329,6 +336,7 @@ Public Class ClsMovimientos
                                  Optional TipoCliente As Integer = -1, Optional CveMoneda As Integer = -1, Optional EstatusCliente As Integer = -1, Optional AplicaAnticiposPagados As Integer = 1) As Boolean

        Dim Retorno As Boolean = False
+        DS = New DataSet
        'Data = New DataTable
        'SqlAdapter = New SqlDataAdapter("PA_RepCxCDetalle", SqlConexion)
        'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
@@ -371,7 +379,7 @@ Public Class ClsMovimientos
        End With

        Try
-            SqlAdapter.Fill(Data)
+            SqlAdapter.Fill(DS)
            Retorno = True
        Catch ex As Exception
            OnError("Ocurrió un error al obtener el Reporte de CxC Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
--- a/CxC/RepCxC.aspx
+++ b/CxC/RepCxC.aspx
@@ -572,11 +572,12 @@
                                    <asp:GridView ID="GvPersonalizarRango" runat="server" AutoGenerateColumns="False"
                                        EmptyDataText="No se encontraron columnas" ToolTip="Listado de Columnas"
                                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
-                                        OnRowDataBound="GvPersonalizarRango_RowDataBound" GridLines="None" AllowPaging="False" DataKeyNames="Tipo,RangoInicial,RangoFinal">
+                                        OnRowDataBound="GvPersonalizarRango_RowDataBound" GridLines="None" AllowPaging="False" DataKeyNames="Tipo,RangoInicial,RangoFinal,Objetivo">
                                        <Columns>
                                            <asp:BoundField HeaderText="Tipo" DataField="TipoEscrito" ItemStyle-HorizontalAlign="Left" />
                                            <asp:BoundField HeaderText="Rango Incial" DataField="RangoInicial" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                            <asp:BoundField HeaderText="Rango Final" DataField="RangoFinal" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                            <asp:BoundField HeaderText="Objetivo" DataField="Objetivo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
                                                <ItemTemplate>
                                                    <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditar_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
@@ -649,6 +650,20 @@
                                            <asp:CheckBox ID="ChkMayor" AutoPostBack="true" OnCheckedChanged="ChkMayor_CheckedChanged" runat="server" />
                                        </div>
                                    </div>
+
+
+                                    <div class="row">
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input input-iconright">
+                                                <asp:TextBox ID="TxtRObjetivo" CssClass="form-control" runat="server"></asp:TextBox>
+                                                <asp:RequiredFieldValidator ID="RfvTxtRObjetivo" runat="server" ControlToValidate="TxtRObjetivo" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Objetivo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpRangoEditar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVRI"></ajax:ValidatorCalloutExtender>
+                                                <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender1" runat="server" TargetControlID="TxtRObjetivo" FilterType="Custom, Numbers" ValidChars="." />
+                                                <label for="<%= TxtRObjetivo.ClientID.ToString()%>">Objetivo:</label>
+                                            </div>
+                                        </div>
+                                    </div>
+
                                    </div>
                                </ContentTemplate>
                            </asp:UpdatePanel>
--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -811,6 +811,7 @@ Partial Class RepCxC
        DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo"))
        TxtRI.Text = gvRow.DataKey("RangoInicial")
        TxtRF.Text = gvRow.DataKey("RangoFinal")
+        TxtRObjetivo.Text = gvRow.DataKey("Objetivo").ToString.ToDecimal.ToString("###.00")
        If Not TxtRF.Text.ToDouble > 0 Then
            ChkMayor.Checked = True
            TxtRF.Enabled = False
@@ -825,6 +826,7 @@ Partial Class RepCxC
        DdlTipo.SelectedIndex = 0
        TxtRI.Text = ""
        TxtRF.Text = ""
+        TxtRObjetivo.Text = ""
        ChkMayor.Checked = False
        SoloNumeros2.Enabled = True
        TxtRF.Enabled = True
@@ -864,12 +866,14 @@ Partial Class RepCxC
            Dt("RangoFinal") = TxtRF.Text.ToDouble
            Dt("Tipo") = DdlTipo.SelectedValue
            Dt("TipoEscrito") = DdlTipo.SelectedItem.Text
+            Dt("Objetivo") = TxtRObjetivo.Text.ToDecimal
            DtPersonalizarRango.Rows.InsertAt(Dt, DtPersonalizarRango.Rows.Count)
        ElseIf Modalidad = "U" Then
            DtPersonalizarRango.Rows(Index)("RangoInicial") = TxtRI.Text.ToDouble
            DtPersonalizarRango.Rows(Index)("RangoFinal") = TxtRF.Text.ToDouble
            DtPersonalizarRango.Rows(Index)("Tipo") = DdlTipo.SelectedValue
            DtPersonalizarRango.Rows(Index)("TipoEscrito") = DdlTipo.SelectedItem.Text
+            DtPersonalizarRango.Rows(Index)("Objetivo") = TxtRObjetivo.Text.ToDecimal
            DtPersonalizarRango.AcceptChanges()
        End If
        DtPersonalizarRango = DtPersonalizarRango.FiltraParametros("", "Tipo,RangoInicial,RangoFinal")
@@ -914,7 +918,7 @@ Partial Class RepCxC
            ErrorTrans = True
        End If
        For Each Dr As DataRow In DtPersonalizarRango.Rows
-            If Not ObjComp.AddRepCxCColumnas(UsuarioActual.CveEmpresa, Dr("RangoInicial").ToString.ToDouble, Dr("RangoFinal").ToString.ToDouble, Dr("Tipo").ToString.ToEntero) Then
+            If Not ObjComp.AddRepCxCColumnas(UsuarioActual.CveEmpresa, Dr("RangoInicial").ToString.ToDouble, Dr("RangoFinal").ToString.ToDouble, Dr("Tipo").ToString.ToEntero, Dr("Objetivo").ToString.ToDecimal) Then
                ErrorTrans = True
            End If
        Next
--- a/CxC/RepCxCDetalle.aspx
+++ b/CxC/RepCxCDetalle.aspx
@@ -325,6 +325,26 @@
        </ContentTemplate>
    </asp:UpdatePanel>

+
+        <asp:UpdatePanel ID="UpCartera" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="row">
+                <div class="col-md-6" runat="server" id="DVCartera" visible="false">
+
+                    <asp:GridView ID="GvCartera" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron datos" ToolTip="Listado de Ventas" CssClass="ScrollAD table table-striped table-hover Widthall"  GridLines="None">
+                        <Columns>
+                            <asp:BoundField HeaderText="Rango Días" DataField="Rango" />
+                            <asp:BoundField HeaderText="Importe" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="%" DataField="Porcentaje" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Objetivo" DataField="Objetivo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                        </Columns>
+                    </asp:GridView>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
    <asp:UpdatePanel ID="UpCobranza" UpdateMode="Conditional" runat="server">
        <ContentTemplate>
            <div class="row">
--- a/CxC/RepCxCDetalle.aspx.vb
+++ b/CxC/RepCxCDetalle.aspx.vb
@@ -235,6 +235,11 @@ Partial Class RepCxCDetalle
            End If
            CargaAsignarCobranza()
            TxtFechaCobranza.Text = Now.ToShortDateString
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                DVCartera.Visible = True
+            End If
+
        End If

    End Sub
@@ -447,15 +452,28 @@ Partial Class RepCxCDetalle
                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0)) Then

-            GvDatos.DataSource = ObjMovtos.DtResultados
-            dt = ObjMovtos.DtResultados
+            GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
+            dt = ObjMovtos.DSResultados.Tables(0)
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1)
+            End If
+
+
        Else
            GvDatos.DataSource = Nothing
        End If

        ObjMovtos.Dispose()
        GvDatos.DataBind()
+
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            GvCartera.DataBind()
+        End If
+
+
        UPDatos.Update()
+        UpCartera.Update()

        Return dt

--- a/Inventarios/EntregaAlmacenRuta.aspx.cs
+++ b/Inventarios/EntregaAlmacenRuta.aspx.cs
@@ -214,7 +214,17 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
                    {

                        MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
+
+                        if (ChkEmitirCartaPorte.Checked)
+                        {
                            MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre)));
+                        }
+                        else
+                        {                            
+                            MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre)));
+                        }
+                            
+
                        MensajeAlert.Append("<br/>");

                        DdlChofer.SelectedValueExist("-1");
@@ -358,8 +368,19 @@ public partial class Inventarios_EntregaAlmacenRuta : ClsPaginas
                        //if (System.IO.File.Exists(ArchivoXML))
                        // MensajeAlert.AppendFormat("<ul><li><a class='Texto' href='/Compras/PopUpVerFactura.aspx?P={0}'>Descargar XML</a></li></ul>", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
                        MensajeAlert.AppendFormat("Folio: <b>{0}</b> &nbsp;", ObjTimbres.ObjFactura.SerieFolio);
+                        
                        MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>XML &nbsp;<i class='fa fa-file'></i></i></a>&nbsp;&nbsp;", ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CveTimbre={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", cvetimbre, "XML", ObjTimbres.ObjFactura.SerieFolio, ObjTimbres.ObjFactura.TipoDocto)));
+
+                        if (ChkEmitirPorteRec.Checked) {
                            MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", cvetimbre)));
+                        }else{
+                            MensajeAlert.AppendFormat("<a class='texto' style='color:#337ab7' href='/Compras/PopUpVerFactura.aspx?P={0}' target='_blank'>PDF &nbsp;<i class='fa fa-ad-pdf'></i></i></i></a>&nbsp;", ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", cvetimbre)));
+                        }
+
+
+
+                        
+
                        MensajeAlert.Append("<br/>");
                        ////PDF
                        //string ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjTimbres.ObjFactura.TipoDocto, ObjTimbres.ObjFactura.SerieFolio);