JAM. Mejoras en lineas adicionales

CxC/RepCxCDetalle.aspx

@@ -537,6 +537,7 @@
                     <asp:BoundField HeaderText="Dias Trans" DataField="DiasTranscurridos" DataFormatString="{0}" Visible="false" />
                     <asp:BoundField HeaderText="T.C." DataField="TipoCambio" DataFormatString="{0}" Visible="false" />
                     <asp:BoundField HeaderText="Fecha Ejecución" DataField="FechaEjecucion" DataFormatString="{0:d}" Visible="false" />
+                    <asp:BoundField HeaderText="Linea Adicional" DataField="LineaAdicional" ItemStyle-HorizontalAlign="Center" Visible="false" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -660,6 +661,13 @@
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkTC" runat="server" Text="&nbsp;Tipo Cambio" /></td>
 
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMostrarLineaAdicional" runat="server" Text="&nbsp;Linea Adicional" Checked="false" /></td>
+                                        <td style="text-align: left;"></td>
+                                        <td style="text-align: left;"></td>
+                                        <td style="text-align: left;"></td>
 
                                     </tr>
                                 </tbody>

CxC/RepCxCDetalle.aspx.vb

@@ -847,6 +847,13 @@ Partial Class RepCxCDetalle
             GvDatos.Columns(44).Visible = False
         End If
 
+        If ChkMostrarLineaAdicional.Checked Then
+            GvDatos.Columns(45).Visible = True
+            SePersonalizo = 1
+        Else
+            GvDatos.Columns(45).Visible = False
+        End If
+
 
         If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True

Ventas/Clientes.aspx

@@ -6800,7 +6800,19 @@
 
 
                         <div class="row">
-                            <div class="col-md-4">
+                            <div class="col-md-6">
+                                <div class="form-group form-md-line-input input-iconright" runat="server" id="DvLineaAdicionalDiasVenciemientoModal" visible="false">
+                                    <asp:TextBox ID="TxtDiasVencimientoLineaAdicionalModal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true" Width="250px"></asp:TextBox>
+
+                                    <asp:RequiredFieldValidator ID="RfvTxtDiasVencimientoLineaAdicionalModal" runat="server" ControlToValidate="TxtDiasVencimientoLineaAdicionalModal" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpLineaAdicional"></asp:RequiredFieldValidator>
+                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDiasVencimientoLineaAdicionalModal" ValidChars="1234567890" FilterType="Custom" />
+                                    <label for="<%= TxtDiasVencimientoLineaAdicionalModal.ClientID.ToString()%>">Días de Vencimiento: </label>
+
+                                </div>
+
+                            </div>
+                            <div class="col-md-4" id="DvFechaVencimiento" runat="server">
 
                                 <div class="form-group form-md-line-input input-iconright date date-picker date date-picker">
                                     <asp:TextBox ID="TxtFechaVencimientoLineaAdicionalModal" CssClass="form-control" runat="server"></asp:TextBox>
@@ -6819,18 +6831,7 @@
                             </div>
                             <div class="col-md-2">
                             </div>
-                            <div class="col-md-6">
-                                <div class="form-group form-md-line-input input-iconright" runat="server" id="DvLineaAdicionalDiasVenciemientoModal" visible="false">
-                                    <asp:TextBox ID="TxtDiasVencimientoLineaAdicionalModal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true" Width="250px"></asp:TextBox>
                             
-                                    <asp:RequiredFieldValidator ID="RfvTxtDiasVencimientoLineaAdicionalModal" runat="server" ControlToValidate="TxtDiasVencimientoLineaAdicionalModal" CssClass="help-block errorimput"
-                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpLineaAdicional"></asp:RequiredFieldValidator>
-                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtDiasVencimientoLineaAdicionalModal" ValidChars="1234567890" FilterType="Custom" />
-                                    <label for="<%= TxtDiasVencimientoLineaAdicionalModal.ClientID.ToString()%>">Días de Vencimiento: </label>
-
-                                </div>
-
-                            </div>
                         </div>
 
 

Ventas/Clientes.aspx.vb

@@ -514,6 +514,20 @@ Partial Class Clientes
             ViewState("CveLineaAdicional") = value
         End Set
     End Property
+    Private Property FechaIngLineaAdicional As DateTime
+        Get
+            If ViewState("FechaIngLineaAdicional") Is Nothing Then
+                ViewState("FechaIngLineaAdicional") = MinFecha
+            End If
+
+            Return ViewState("FechaIngLineaAdicional").ToString().ToDateTime()
+
+        End Get
+        Set(value As DateTime)
+            ViewState("FechaIngLineaAdicional") = value
+        End Set
+    End Property
+
 
 
 
@@ -9889,14 +9903,12 @@ Partial Class Clientes
     End Sub
 
     Private Sub LnkUsadosReset_Click(sender As Object, e As EventArgs) Handles LnkUsadosReset.Click
-
         Dim Acum As New ClsAcumuladores
         Dim Puntos As Decimal = -GvUsadosResumen.Rows.Cast(Of GridViewRow).Where(Function(x) x.RowType = DataControlRowType.DataRow).FirstOrDefault(Function(gvr) gvr.RowIndex = 3).DataKey("Puntos").ToEntero()
-        If Acum.DistribuidorMovtosAdd(CveCliente, 1, 1, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Puntos, "Saldo Inicializado", Now) Then
+        If Acum.DistribuidorMovtosAdd(CveCliente, 1, 1, Puntos, 0, 0, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Puntos, "Saldo Inicializado", Now) Then
             Alert("Puntuación Inicializada")
         End If
         Acum.Dispose()
-
     End Sub
 #End Region
     Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -10406,6 +10418,8 @@ Partial Class Clientes
 
     Protected Sub LnkAgregarLineaAdicional_Click(sender As Object, e As EventArgs)
         CveLineaAdicional = -1
+        FechaIngLineaAdicional = Nothing
+
         RegistraScript("$('#DVLineasAdicionales').modal('show')")
         LtlLineasAdicionalesTotuloModal.Text = "Agregar Linea Adicional"
         AgregarLineaAdicionalLimpiarControles()
@@ -10437,11 +10451,13 @@ Partial Class Clientes
         '    Exit Sub
         'End If
 
-
         Dim ObjVentas As New ClsVentas
-
-
         If CveLineaAdicional > 0 Then
+
+            If DdlTipoLineaAdicionalModal.SelectedValue = "2" Then
+                TxtFechaVencimientoLineaAdicionalModal.Text = FechaIngLineaAdicional.AddDays(TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero()).ToString("dd/MM/yyyy")
+            End If
+
             If Not ObjVentas.UpdateLineasAdicionales(CveLineaAdicional, TxtLineaAdicionalModal.Text, CveCliente, DdlProveedorLineaAdicionalModal.SelectedValue.ToEntero, DdlTipoLineaAdicionalModal.SelectedValue.ToEntero, TxtImporteLineaAdicionalModal.Text.ToDecimal,
                                            DdlMonedaLineAdicionalModal.SelectedValue.ToEntero, TxtFechaVencimientoLineaAdicionalModal.Text.ToDate, UsuarioActual.CveUsuario, DdlCategoriaLineaAdicionalModal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
                                            DiasVencimiento:=TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero) Then
@@ -10450,6 +10466,10 @@ Partial Class Clientes
                 Alert("Linea Adicional Actualizada Correctamente")
             End If
         Else
+            If DdlTipoLineaAdicionalModal.SelectedValue = "2" Then
+                TxtFechaVencimientoLineaAdicionalModal.Text = Now.AddDays(TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero()).ToString("dd/MM/yyyy")
+            End If
+
             If Not ObjVentas.AddLineasAdicionales(TxtLineaAdicionalModal.Text, CveCliente, DdlProveedorLineaAdicionalModal.SelectedValue.ToEntero, DdlTipoLineaAdicionalModal.SelectedValue.ToEntero, TxtImporteLineaAdicionalModal.Text.ToDecimal,
                                             DdlMonedaLineAdicionalModal.SelectedValue.ToEntero, TxtFechaVencimientoLineaAdicionalModal.Text.ToDate, UsuarioActual.CveUsuario, DdlCategoriaLineaAdicionalModal.SelectedValue.ToEntero,
                                             DiasVencimiento:=TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero) Then
@@ -10476,6 +10496,7 @@ Partial Class Clientes
 
         CveLineaAdicional = GvRow.DataKey("CveLineaAdicional").ToEntero
 
+        FechaIngLineaAdicional = GvRow.DataKey("FechaIng").ToDateTime()
         TxtLineaAdicionalModal.Text = GvRow.DataKey("LineaAdicional")
         DdlProveedorLineaAdicionalModal.txtText.Value = GvRow.DataKey("Proveedor")
         DdlProveedorLineaAdicionalModal.txtValue.Value = GvRow.DataKey("CveProveedor")
@@ -10520,6 +10541,7 @@ Partial Class Clientes
     Protected Sub DdlTipoLineaAdicionalModal_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         DvLineaAdicionalDiasVenciemientoModal.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, True, False)
+        DvFechaVencimiento.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, False, True)
         UpLineaAdicionalmodal.Update()
 
     End Sub

Ventas/RepLineasAdicionales.aspx

@@ -136,8 +136,11 @@
                                     <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
                                     <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
                                     <asp:BoundField DataField="DiasVencimiento" HeaderText="Dias de Venc." ItemStyle-HorizontalAlign="Right"  />
+                                    <asp:BoundField DataField="DiasTranscurridos" HeaderText="D.Trans" ItemStyle-HorizontalAlign="Right"  />
+                                    <asp:BoundField DataField="FechaVenta" HeaderText="F. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
+                                    <asp:BoundField DataField="FechaVencimientoVenta" HeaderText="F. Venc. Venta" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                                     <asp:BoundField DataField="Estatus" HeaderText="Estatus" />
-                                  
+                                    <asp:BoundField DataField="FechaEnvio" HeaderText="F. Envío" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                                     <asp:TemplateField HeaderText="Opciones" ItemStyle-Width="100px"  HeaderStyle-Width="100px">
                                         <ItemTemplate>
                                             <div class="row" >