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/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
@@ -234,7 +234,12 @@ Partial Class RepCxCDetalle
                ChkCuentaContableReferencia.Visible = True
            End If
            CargaAsignarCobranza()
-            TxtFechaCobranza.Text = Now.ToShortDateString
+            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()
+        GvDatos.DataBind()
+
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            GvCartera.DataBind()
+        End If
+
+
        UPDatos.Update()
+        UpCartera.Update()

        Return dt