Ayven - Formato OC, tomando como base el de E72

Ventas/ClientesAbonar.aspx

@@ -346,7 +346,7 @@
                                <table>
                                    <td style="white-space: nowrap;">Fecha Emisión:</td>
                                    <td>
-                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px;">
                                            <asp:TextBox ID="TxtFechaEmision" runat="server" CssClass="form-control"></asp:TextBox>
                                            <span class="input-group-btn ">
                                                <asp:LinkButton runat="server" ID="LnkImgTxtFechaEmision" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>

Ventas/ClientesAbonar.aspx.vb

@@ -618,7 +618,7 @@ Partial Class Ventas_ClientesAbonar
 
         Dim FechaEmision As Date = MinFecha
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If ChkComplementoPago.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             FechaEmision = TxtFechaEmision.Text.ToDate
 
             If FechaEmision <= MinFecha Then

Ventas/RepRecuperacionDetalle.aspx

@@ -24,6 +24,16 @@
     <li>
         <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
     </li>
+    <asp:UpdatePanel runat="server"  UpdateMode="Conditional" ID="UpAccionezPersonalizar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkPErsonalizar" OnClick="LnkPErsonalizar_Click" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>    
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    
+    
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
@@ -210,7 +220,7 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
-                            <div class="row">
+                    <div class="row">
                                 <label id="lblEsDistribuidor" runat="server" visible="false" class="col-md-1 truncate">Es Distribuidor:</label>
                                 <div class="col-md-2" id="divEsDistribuidor" runat="server" visible="false">
                                    <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%">
@@ -269,10 +279,13 @@
                     </div>
                 </div>
             </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="99%" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" CssClass="ScrollAD table table-striped table-hover Widthall" data-heighterror="320" data-freezecols="0" data-freezerows="0" GridLines="None"
                 DataKeyNames="CveVenta">
                 <Columns>
@@ -291,10 +304,27 @@
                     <asp:BoundField HeaderText="Dias Pago" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,##0.##}" DataField="DiasPagados" />
                     <asp:BoundField HeaderText="Forma Pago"   DataField="TipoTransaccion" /> 
                     <asp:BoundField HeaderText="MSI"   DataField="MesesSinIntereses" /> 
+
+
+                    <asp:BoundField HeaderText="Sucursal Cliente"   DataField="SucursalCliente" /> 
+                    <asp:BoundField HeaderText="Observaciones"   DataField="Observaciones" /> 
+                    <asp:BoundField HeaderText="Descuento"   DataField="Descuento" DataFormatString="{0:N2}" /> 
+                    <asp:BoundField HeaderText="Vendedor"   DataField="Vendedor" /> 
+                    <asp:BoundField HeaderText="Codigo"   DataField="Codigo" /> 
+                    
+                    <asp:BoundField HeaderText="Limite Credito"   DataField="LimiteCredito" DataFormatString="{0:N2}" /> 
+                    <asp:BoundField HeaderText="Ret IVA"   DataField="RetIVA" DataFormatString="{0:N2}" /> 
+                    <asp:BoundField HeaderText="Ret ISR"   DataField="RetISR" DataFormatString="{0:N2}" /> 
+                    <asp:BoundField HeaderText="Sub Total"   DataField="SubTotal" DataFormatString="{0:N2}"  /> 
+                    <asp:BoundField HeaderText="T.C."   DataField="TipoCambio" DataFormatString="{0:N2}"  /> 
+                    <asp:BoundField HeaderText="DescripcionVenta"   DataField="DescripcionVenta" /> 
+
                 </Columns>
             </asp:GridView>
+
         </ContentTemplate>
     </asp:UpdatePanel>
+
      <asp:UpdatePanel runat="server" ID="UpTipoCambio" UpdateMode="Conditional">
         <ContentTemplate>
             <div id="DivTipoCambio" class="modal fade" role="dialog">
@@ -329,6 +359,108 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+
+
+
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div id="DivPersonalizar" class="modal fade" role="dialog">
+                <div class="modal-dialog">                    
+                    <div class="modal-content">
+                        <div class="modal-header">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="Label3" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                        </div>
+                        <div class="modal-body">
+
+                            <table class="table table-striped nobordertop table-advance table-hover">
+                                <tbody>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFolio" runat="server" Text="&nbsp;Folio" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkFecha" runat="server" Text="&nbsp;Fecha" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSubTotal" runat="server" Text="&nbsp;SubTotal" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkObservaciones" runat="server" Text="&nbsp;Observaciones" /></td>
+                                    </tr>                                
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDescuento" runat="server" Text="&nbsp;Descuento" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkVendedor" runat="server" Text="&nbsp;Vendedor" Checked="false" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursal" runat="server" Text="&nbsp;Sucursal" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCodigo" runat="server" Text="&nbsp;Código Cliente"/></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkLimiteCredito" runat="server" Text="&nbsp;Limite Credito" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkRetIVA" runat="server" Text="&nbsp;Ret. IVA" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkCliente" runat="server" Text="&nbsp;Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkRetISR" runat="server" Text="&nbsp;Ret. ISR" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="&nbsp;Sucursal Cliente" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTotal" runat="server" Text="&nbsp;Total" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDiasTranscurridos" runat="server" Text="&nbsp;Días Transcurridos" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkDiasPago" runat="server" Text="&nbsp;Dias Pago" /></td>
+                                    </tr>                                   
+                                    
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkTC" runat="server" Text="&nbsp;Tipo Cambio" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMostrarDescripcionVenta" runat="server" Text="&nbsp;Descripción Venta" Checked="false" /></td>                                        
+                                    </tr>
+
+                                  
+
+
+
+                                </tbody>
+                            </table>
+                            
+                        </div>
+                        <div class="modal-footer">
+
+                            <div class="row">
+                                <div class="col-md-6" style="text-align: left">
+                                    <asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
+                                </div>
+                                <div class="col-md-6">
+                                    <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                </div>
+                            </div>
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+    <asp:UpdatePanel runat="server"  ID="UpBtnPersonalizar" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:Button ID="BtnPersonalizar" Style="display: none" ClientIDMode="Static" runat="server" Text="Personalizar" class="btn btn-success" OnClick="BtnPersonalizar_Click" />
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -71,11 +71,22 @@ Partial Class Ventas_RepRecuperacionDetalle
         End Set
     End Property
 
+
+    Private Property Personalizo As Integer
+        Get
+            Return ViewState("Personalizo").ToString.ToEntero
+        End Get
+
+        Set(value As Integer)
+            ViewState("Personalizo") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
+            CargaPersonalizacion()
             CargaDatos()
         End If
     End Sub
@@ -373,5 +384,345 @@ Partial Class Ventas_RepRecuperacionDetalle
         Else
             LiEspecifico.Visible = False
         End If
-    End Sub
+    End Sub
+
+
+#Region "PERSONALIZAR"
+
+    Protected Sub LnkPErsonalizar_Click(sender As Object, e As EventArgs)
+        ChkGuardarPersonalizacion.Checked = False
+        RegistraScript("$('#DivPersonalizar').modal('show')")
+    End Sub
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs)
+
+        If ChkGuardarPersonalizacion.Checked Then
+            GuardaPersonalizacion()
+        End If
+
+        Personaliza()
+        CargaDatos()
+        'GvDatosDataBind()
+    End Sub
+
+
+    Private Sub Personaliza()
+
+        GvDatos.Columns(0).Visible = True
+        GvDatos.Columns(1).Visible = ChkFecha.Checked
+        GvDatos.Columns(2).Visible = ChkFolio.Checked
+        GvDatos.Columns(3).Visible = True
+        GvDatos.Columns(4).Visible = ChkTotal.Checked
+        GvDatos.Columns(5).Visible = True
+        GvDatos.Columns(6).Visible = ChkSucursal.Checked
+        GvDatos.Columns(7).Visible = True
+        GvDatos.Columns(8).Visible = ChkCliente.Checked
+        GvDatos.Columns(9).Visible = True
+        GvDatos.Columns(10).Visible = True
+        GvDatos.Columns(11).Visible = ChkDiasTranscurridos.Checked
+        GvDatos.Columns(12).Visible = ChkDiasPago.Checked
+        GvDatos.Columns(13).Visible = True
+        GvDatos.Columns(14).Visible = True
+
+        GvDatos.Columns(15).Visible = ChkSucursalCliente.Checked
+        GvDatos.Columns(16).Visible = ChkObservaciones.Checked
+        GvDatos.Columns(17).Visible = ChkDescuento.Checked
+        GvDatos.Columns(18).Visible = ChkVendedor.Checked
+        GvDatos.Columns(19).Visible = ChkCodigo.Checked
+
+        GvDatos.Columns(20).Visible = ChkLimiteCredito.Checked
+        GvDatos.Columns(21).Visible = ChkRetIVA.Checked
+        GvDatos.Columns(22).Visible = ChkRetISR.Checked
+        GvDatos.Columns(23).Visible = ChkSubTotal.Checked
+        GvDatos.Columns(24).Visible = ChkTC.Checked
+        GvDatos.Columns(25).Visible = ChkMostrarDescripcionVenta.Checked
+
+
+        Personalizo = 1
+        If Personalizo = 1 Then
+            'ImgExcelPersonalizado.Visible = True
+        Else
+            'ImgExcelPersonalizado.Visible = False
+        End If
+
+        UpDatos.Update()
+    End Sub
+
+    Private Sub GuardaPersonalizacion()
+        Dim objUsuario As New ClsSisUsuarios
+        Dim ListPersonalizada As New List(Of String)
+
+        If ChkFolio.Checked Then
+            ListPersonalizada.Add("Folio")
+        End If
+
+        If ChkFecha.Checked Then
+            ListPersonalizada.Add("Fecha")
+        End If
+
+        If ChkSubTotal.Checked Then
+            ListPersonalizada.Add("SubTotal")
+        End If
+
+        If ChkObservaciones.Checked Then
+            ListPersonalizada.Add("Observaciones")
+        End If
+
+        If ChkDescuento.Checked Then
+            ListPersonalizada.Add("Descuento")
+        End If
+
+        If ChkVendedor.Checked Then
+            ListPersonalizada.Add("Vendedor")
+        End If
+
+        If ChkSucursal.Checked Then
+            ListPersonalizada.Add("Sucursal")
+        End If
+
+        If ChkCodigo.Checked Then
+            ListPersonalizada.Add("Codigo")
+        End If
+
+        If ChkLimiteCredito.Checked Then
+            ListPersonalizada.Add("LimiteCredito")
+        End If
+
+        If ChkRetIVA.Checked Then
+            ListPersonalizada.Add("RetIVA")
+        End If
+
+        If ChkCliente.Checked Then
+            ListPersonalizada.Add("Cliente")
+        End If
+
+        If ChkRetISR.Checked Then
+            ListPersonalizada.Add("RetISR")
+        End If
+
+        If ChkSucursalCliente.Checked Then
+            ListPersonalizada.Add("SucursalCliente")
+        End If
+
+        If ChkTotal.Checked Then
+            ListPersonalizada.Add("Total")
+        End If
+
+        If ChkDiasTranscurridos.Checked Then
+            ListPersonalizada.Add("DiasTranscurridos")
+        End If
+
+        If ChkDiasPago.Checked Then
+            ListPersonalizada.Add("DiasPago")
+        End If
+
+        If ChkTC.Checked Then
+            ListPersonalizada.Add("TC")
+        End If
+
+        If ChkMostrarDescripcionVenta.Checked Then
+            ListPersonalizada.Add("MostrarDescripcionVenta")
+        End If
+
+        If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepRecuperacionDetalle.aspx", String.Join("|", ListPersonalizada)) Then
+            'Alert("Personalizacion guardada")
+        End If
+
+        objUsuario.Dispose()
+    End Sub
+
+    Private Sub CargaPersonalizacion()
+        Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("RepRecuperacionDetalle.aspx")
+
+        If strBasePersonalizacion.Trim.Length > 0 Then
+
+
+            Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
+
+            For Each personalizacion As String In Personalizaciones
+                Select Case personalizacion
+                    Case "Folio"
+                        ChkFolio.Checked = True
+                    Case "Fecha"
+                        ChkFecha.Checked = True
+                    Case "SubTotal"
+                        ChkSubTotal.Checked = True
+                    Case "Observaciones"
+                        ChkObservaciones.Checked = True
+                    Case "Descuento"
+                        ChkDescuento.Checked = True
+                    Case "Vendedor"
+                        ChkVendedor.Checked = True
+                    Case "Sucursal"
+                        ChkSucursal.Checked = True
+                    Case "Codigo"
+                        ChkCodigo.Checked = True
+                    Case "LimiteCredito"
+                        ChkLimiteCredito.Checked = True
+                    Case "RetIVA"
+                        ChkRetIVA.Checked = True
+                    Case "Cliente"
+                        ChkCliente.Checked = True
+                    Case "RetISR"
+                        ChkRetISR.Checked = True
+                    Case "SucursalCliente"
+                        ChkSucursalCliente.Checked = True
+                    Case "Total"
+                        ChkTotal.Checked = True
+                    Case "DiasTranscurridos"
+                        ChkDiasTranscurridos.Checked = True
+                    Case "DiasPago"
+                        ChkDiasPago.Checked = True
+                    Case "TC"
+                        ChkTC.Checked = True
+                    Case "MostrarDescripcionVenta"
+                        ChkMostrarDescripcionVenta.Checked = True
+                    Case Else
+                        ' Do nothing
+                End Select
+            Next
+
+            Personaliza()
+        Else
+            PersonalizaDefault()
+        End If
+        UPPersonalizar.Update()
+    End Sub
+
+    Private Sub PersonalizaDefault()
+        ChkFolio.Checked = True
+        ChkFecha.Checked = True
+        ChkTotal.Checked = True
+        ChkSucursal.Checked = True
+        ChkCliente.Checked = True
+        ChkDiasTranscurridos.Checked = True
+        ChkDiasPago.Checked = True
+
+
+        ChkSucursalCliente.Checked = False
+        ChkSubTotal.Checked = False
+        ChkObservaciones.Checked = False
+        ChkDescuento.Checked = False
+        ChkVendedor.Checked = False
+        ChkCodigo.Checked = False
+        ChkLimiteCredito.Checked = False
+        ChkRetIVA.Checked = False
+        ChkRetISR.Checked = False
+        ChkTC.Checked = False
+        ChkMostrarDescripcionVenta.Checked = False
+
+        GvDatos.Columns(0).Visible = True
+        GvDatos.Columns(1).Visible = True
+        GvDatos.Columns(2).Visible = True
+        GvDatos.Columns(3).Visible = True
+        GvDatos.Columns(4).Visible = True
+        GvDatos.Columns(5).Visible = True
+        GvDatos.Columns(6).Visible = True
+        GvDatos.Columns(7).Visible = True
+        GvDatos.Columns(8).Visible = True
+        GvDatos.Columns(9).Visible = True
+        GvDatos.Columns(10).Visible = True
+        GvDatos.Columns(11).Visible = True
+        GvDatos.Columns(12).Visible = True
+        GvDatos.Columns(13).Visible = True
+        GvDatos.Columns(14).Visible = True
+        GvDatos.Columns(15).Visible = False
+        GvDatos.Columns(16).Visible = False
+        GvDatos.Columns(17).Visible = False
+        GvDatos.Columns(18).Visible = False
+        GvDatos.Columns(19).Visible = False
+        GvDatos.Columns(20).Visible = False
+        GvDatos.Columns(21).Visible = False
+        GvDatos.Columns(22).Visible = False
+        GvDatos.Columns(23).Visible = False
+        GvDatos.Columns(24).Visible = False
+        GvDatos.Columns(25).Visible = False
+
+    End Sub
+
+
+    'Private Sub GuardaPersonalizacion()
+
+    '    Dim objUsuario As New ClsSisUsuarios
+    '    Dim ListPersonalizada As New List(Of String)
+
+    '    If ChkCantidad.Checked Then
+    '        ListPersonalizada.Add("Cantidad")
+    '    End If
+
+    '    If ChkSubTotal.Checked Then
+    '        ListPersonalizada.Add("Subtotal")
+    '    End If
+
+    '    If ChkDescuentos.Checked Then
+    '        ListPersonalizada.Add("Descuentos")
+    '    End If
+
+    '    If ChkIVA.Checked Then
+    '        ListPersonalizada.Add("IVA")
+    '    End If
+
+    '    If ChkTotal.Checked Then
+    '        ListPersonalizada.Add("Total")
+    '    End If
+
+    '    If ChkSubTotal2.Checked Then
+    '        ListPersonalizada.Add("SubTotal2")
+    '    End If
+    '    If ChkIEPS.Checked Then
+    '        ListPersonalizada.Add("IEPS")
+    '    End If
+    '    If ChkRetIVA.Checked Then
+    '        ListPersonalizada.Add("RetIVA")
+    '    End If
+    '    If ChkRetISR.Checked Then
+    '        ListPersonalizada.Add("RetISR")
+    '    End If
+    '    If ChkImpLoc.Checked Then
+    '        ListPersonalizada.Add("ImpLoc")
+    '    End If
+    '    If ChkMinSub.Checked Then
+    '        ListPersonalizada.Add("MinSub")
+    '    End If
+    '    If ChkAVGSub.Checked Then
+    '        ListPersonalizada.Add("AVGSub")
+    '    End If
+    '    If ChkMaxSub.Checked Then
+    '        ListPersonalizada.Add("MaxSub")
+    '    End If
+    '    If ChkMaxTot.Checked Then
+    '        ListPersonalizada.Add("MaxTot")
+    '    End If
+    '    If ChkAvgTot.Checked Then
+    '        ListPersonalizada.Add("AvgTot")
+    '    End If
+    '    If ChkMinTot.Checked Then
+    '        ListPersonalizada.Add("MinTot")
+    '    End If
+    '    If CheckRefacturado.Checked Then
+    '        ListPersonalizada.Add("CheckRefacturado")
+    '    End If
+
+    '    If ChkCantidad.Checked Then
+    '        ListPersonalizada.Add("Cantidad")
+    '    End If
+
+
+    '    If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentas.aspx", String.Join("|", ListPersonalizada)) Then
+    '        'Alert("Personalizacion guardada")
+    '    End If
+
+    '    objUsuario.Dispose()
+
+    'End Sub
+
+    Private Sub GvDatosDataBind()
+
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+#End Region
 End Class