Merge branch 'master' of http://192.168.10.111:8383/SIG

Contabilidad/CatClasificacionPorcentaje.aspx

@@ -0,0 +1,97 @@
+<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatClasificacionPorcentaje.aspx.vb" Inherits="Contabilidad_CatClasificacionPorcentaje" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
+    Catálogo de Clasificacion Porcentaje
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+    <asp:UpdatePanel runat="server" ID="UpAgregar">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton runat="server" ID="BtnAgregarMotivoD" data-toggle="tooltip" data-placement="left" title="Agregar un Defecto" Text="<i class='fa fa-plus'></i>Agregar Clas. Porcentaje"></asp:LinkButton>
+            </li>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="Clasificacion,CveClasificacionPorcentaje,CveEmpresa,CveClasificacion,PorcentajeIVA,IdCtaIVAXAcreditar,IdCtaIVAAcreditable,IdCtaIVAXTrasladar,IdCtaIVATrasladado,IdCtaIVANoAcreditable" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
+                <Columns>
+                    <asp:BoundField DataField="Clasificacion" HeaderText="Clasificacion" />
+                    <asp:BoundField DataField="PorcentajeIVA" HeaderText="PorcentajeIVA" />
+                    <asp:BoundField DataField="IdCtaIVAXAcreditar" HeaderText="IdCtaIVAXAcreditar" />
+                    <asp:BoundField DataField="IdCtaIVAAcreditable" HeaderText="IdCtaIVAAcreditable" />
+                    <asp:BoundField DataField="IdCtaIVAXTrasladar" HeaderText="IdCtaIVAXTrasladar" />
+                    <asp:BoundField DataField="IdCtaIVATrasladado" HeaderText="IdCtaIVATrasladado" />
+                    <asp:BoundField DataField="IdCtaIVANoAcreditable" HeaderText="IdCtaIVANoAcreditable" />
+                    <asp:TemplateField HeaderText="Editar">
+                        <EditItemTemplate>
+                            <center>
+                                <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
+                                &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>"	 />
+                            </center>
+                        </EditItemTemplate>
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Eliminar">
+                        <ItemTemplate>
+                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                </Columns>
+                <RowStyle CssClass="Texto" />
+                <AlternatingRowStyle CssClass="TextoAlterno" />
+            </asp:GridView>
+
+            <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 450px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTituloModalTiposD" runat="server">Motivos de baja</asp:Literal></h4>
+                            </div>
+                            <div class="modal-body">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="MotivoTxt" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTiposD" runat="server" ControlToValidate="MotivoTxt" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpTiposD"></asp:RequiredFieldValidator>
+                                    <label for="MotivoTxt">Motivo:</label>
+                                    <i></i>
+                                </div>
+                                <br id="saltoDeLinea" runat="server" />
+                                <div id="CheckActiveSection" runat="server" class="form-group form-md-line-input input-iconright">
+                                    <label for="ChkEstatus">Activo:</label>&nbsp;
+                                    <asp:CheckBox ID="ChkEstatus" runat="server" CssClass="make-switchsd" data-size="small" Text=" " Checked="true" />
+                                    <i></i>
+                                </div>
+
+                            </div>
+                            <br />
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAgregarTiposDModal" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpTiposD" />
+                                <asp:Button ID="BtnEditarTiposDModal" runat="server" class="btn btn-success" Text="Confirmar" ValidationGroup="GrpTiposD" />
+                                <button id="Button3" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>

Contabilidad/CatClasificacionPorcentaje.aspx.vb

@@ -0,0 +1,24 @@
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Contabilidad_CatClasificacionPorcentaje
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaDatos()
+
+        End If
+    End Sub
+
+    Protected Sub CargaDatos()
+        Dim ObjGenerales As New ClsGenerales
+        If ObjGenerales.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, CveClasificacionPorcentaje:=-1, CveClasificacion:=-1, PorcentajeIVA:=-1, Opcion:=2) Then
+            GvDatos.DataSource = ObjGenerales.DtResultados
+        End If
+        ObjGenerales.Dispose()
+        GvDatos.DataBind()
+    End Sub
+End Class

Empresas/146/Formatos/Factura.rdlc

@@ -23,9 +23,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.37762in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.5cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <Style>
           <Border>
             <Style>Solid</Style>
@@ -73,9 +73,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.93484in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.5cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>1</ZIndex>
         <Style>
           <Border>
@@ -108,9 +108,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>0.69525in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.60856cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>2</ZIndex>
         <Style>
           <Border>
@@ -143,9 +143,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.23676cm</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.5cm</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>3</ZIndex>
         <Style>
           <Border>
@@ -259,9 +259,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.13169in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.25114in</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>6</ZIndex>
         <Style>
           <Border>
@@ -295,9 +295,9 @@
         </Paragraphs>
         <rd:DefaultName>Textbox3</rd:DefaultName>
         <Top>1.57434in</Top>
-        <Left>5.662in</Left>
+        <Left>5.81465in</Left>
         <Height>0.25635in</Height>
-        <Width>2.24597in</Width>
+        <Width>2.09332in</Width>
         <ZIndex>7</ZIndex>
         <Style>
           <Border>
@@ -347,10 +347,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.98172in</Top>
-        <Left>1.48781in</Left>
-        <Height>0.65513in</Height>
-        <Width>2.06754in</Width>
+        <Top>0.99561in</Top>
+        <Left>0.05904in</Left>
+        <Height>0.62735in</Height>
+        <Width>1.9981in</Width>
         <ZIndex>8</ZIndex>
         <Style>
           <Border>
@@ -397,10 +397,10 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox10</rd:DefaultName>
-        <Top>0.98172in</Top>
-        <Left>3.64748in</Left>
-        <Height>0.65513in</Height>
-        <Width>1.93674in</Width>
+        <Top>1.00949in</Top>
+        <Left>2.05714in</Left>
+        <Height>0.62735in</Height>
+        <Width>1.76588in</Width>
         <ZIndex>9</ZIndex>
         <Style>
           <Border>
@@ -963,7 +963,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value>Régimen: Sociedad Anónima de  Capital Variable; Condiciones de pago: </Value>
+                <Value>Condiciones de pago: </Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -977,28 +977,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>; Método de Pago: </Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value)</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>; Num. Cta Pago:</Value>
-                <Style>
-                  <FontFamily>calibri</FontFamily>
-                  <FontSize>7pt</FontSize>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value)</Value>
+                <Value>; </Value>
                 <Style>
                   <FontFamily>calibri</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1104,7 +1083,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de Localización Precisa GPS de México SA de CV, a su vencimiento  el  </Value>
+                    <Value> Por éste pagare prometo (emos) pagar incondicionalmente a la orden de VICTOR MANUEL RAMIREZ CASTILLO, a su vencimiento  el  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -1128,7 +1107,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>, en Hermosillo, Sonora o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
+                    <Value>, en Tijuana, Baja California o en el domicilio señalado a elección del acreedor o tenedor la cantidad de $ </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -1176,7 +1155,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a Localización Precisa GPS de México SA de CV o tenedor, desde el día siguiente a cobrar el 10% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Hermosillo, Sonora a  </Value>
+                    <Value> ). Valor recibido a mi (nuestra) entera satisfacción. La falta de pago de éste documento a su vencimiento dará derecho a VICTOR MANUEL RAMIREZ CASTILLO o tenedor, desde el día siguiente a cobrar el 5% mensual de interes moratorios hasta su total liquidación y los gastos judiciales que se ocasionen. Lugar y Fecha de Suscripción: Tijuana, Baja California a  </Value>
                     <Style>
                       <FontStyle>Normal</FontStyle>
                       <FontFamily>calibri</FontFamily>
@@ -3113,99 +3092,6 @@
                 </TablixCell>
               </TablixCells>
             </TablixRow>
-            <TablixRow>
-              <Height>0.6cm</Height>
-              <TablixCells>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox15">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>Uso CFDI:</Value>
-                              <Style>
-                                <FontFamily>calibri</FontFamily>
-                                <FontSize>9pt</FontSize>
-                                <Color>White</Color>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Center</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox15</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Color>White</Color>
-                          <Style>None</Style>
-                        </Border>
-                        <TopBorder>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </TopBorder>
-                        <BottomBorder>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </BottomBorder>
-                        <LeftBorder>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </LeftBorder>
-                        <RightBorder>
-                          <Style>Solid</Style>
-                          <Width>1pt</Width>
-                        </RightBorder>
-                        <BackgroundColor>#ff1037</BackgroundColor>
-                        <VerticalAlign>Middle</VerticalAlign>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-                <TablixCell>
-                  <CellContents>
-                    <Textbox Name="Textbox17">
-                      <CanGrow>true</CanGrow>
-                      <KeepTogether>true</KeepTogether>
-                      <Paragraphs>
-                        <Paragraph>
-                          <TextRuns>
-                            <TextRun>
-                              <Value>=Parameters!UsoCFDI.Value</Value>
-                              <Style>
-                                <FontFamily>calibri</FontFamily>
-                                <FontSize>8pt</FontSize>
-                              </Style>
-                            </TextRun>
-                          </TextRuns>
-                          <Style>
-                            <TextAlign>Left</TextAlign>
-                          </Style>
-                        </Paragraph>
-                      </Paragraphs>
-                      <rd:DefaultName>Textbox17</rd:DefaultName>
-                      <Style>
-                        <Border>
-                          <Style>None</Style>
-                        </Border>
-                        <PaddingLeft>2pt</PaddingLeft>
-                        <PaddingRight>2pt</PaddingRight>
-                        <PaddingTop>2pt</PaddingTop>
-                        <PaddingBottom>2pt</PaddingBottom>
-                      </Style>
-                    </Textbox>
-                  </CellContents>
-                </TablixCell>
-              </TablixCells>
-            </TablixRow>
             <TablixRow>
               <Height>1.56188cm</Height>
               <TablixCells>
@@ -3469,13 +3355,12 @@
             <TablixMember />
             <TablixMember />
             <TablixMember />
-            <TablixMember />
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DsOC</DataSetName>
         <Top>6.91306cm</Top>
         <Left>0.11468cm</Left>
-        <Height>5.76188cm</Height>
+        <Height>5.16188cm</Height>
         <Width>14.34413cm</Width>
         <ZIndex>31</ZIndex>
         <Style>
@@ -4036,7 +3921,6 @@
         <Source>Embedded</Source>
         <Value>VISTAPREVIA22</Value>
         <Sizing>FitProportional</Sizing>
-        <Top>0cm</Top>
         <Left>19.87567cm</Left>
         <Height>18.27471cm</Height>
         <Width>0.33541cm</Width>
@@ -4056,7 +3940,7 @@
         <Sizing>FitProportional</Sizing>
         <Top>1.19556cm</Top>
         <Left>0.14361cm</Left>
-        <Height>1.67893cm</Height>
+        <Height>1.22745cm</Height>
         <Width>4.7959cm</Width>
         <ZIndex>35</ZIndex>
         <Style>
@@ -4115,11 +3999,108 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox14">
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Uso CFDI: </Value>
+                <Style>
+                  <FontFamily>Calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!UsoCFDI.Value</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Régime: </Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>Personas Físicas con Actividades Empresariales y Profesionales</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Método de Pago:</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=IIF(Parameters!MetodoPago.Value.ToString="","No Identificado",Parameters!MetodoPago.Value)</Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value xml:space="preserve"> </Value>
+                <Style>
+                  <FontFamily>calibri</FontFamily>
+                  <FontSize>7pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style>
+              <TextAlign>Center</TextAlign>
+            </Style>
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox10</rd:DefaultName>
+        <Top>0.99561in</Top>
+        <Left>3.82301in</Left>
+        <Height>0.62735in</Height>
+        <Width>1.99164in</Width>
+        <ZIndex>37</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <VerticalAlign>Top</VerticalAlign>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>25.59192cm</Height>
     <Style />
   </Body>
-  <Width>20.22041cm</Width>
+  <Width>20.21108cm</Width>
   <Page>
     <PageHeight>27.94cm</PageHeight>
     <PageWidth>21.59cm</PageWidth>

Ventas/Ventas.aspx.vb

@@ -5611,6 +5611,9 @@ Partial Class Ventas
 
                     'LO NO PERMITIDO MODIFICAR
                     e.Row.FCDropDownList("DdlUnidadMedida").Enabled = False
+                    If UsuarioActual.CveEmpresa = 119 Then
+                        e.Row.FCTextBox("TxtCantidad").Enabled = False
+                    End If
                     'e.Row.FCDropDownList("DdlClasificacion").Enabled = False
                     'e.Row.FCDropDownLost("DdlPS").Enabled = False
 
@@ -16265,7 +16268,7 @@ Partial Class Ventas
         Next
 
         'ACTIVA CAMBIO DE CLIENTE - SI NO TIENE NADA FACTURADO
-        If Not CantidadFacturadaRemision > 0 Then
+        If Not CantidadFacturadaRemision > 0 AndAlso UsuarioActual.TienePermisoProceso(284) Then
             HlCliente.Attributes.Remove("class")
             HlCliente.Attributes.Add("class", "Texto")
             TxtCodigo.ReadOnly = False

asmx/WSSIGApp.asmx

@@ -4170,28 +4170,63 @@ Public Class WSSIGApp
     End Function
 
     <WebMethod>
-    Public Function GetRepAcercamientosProcesos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
-        Dim Retorno = "[]"
-        Dim cveTipoProceso = -1
-        Dim idgrupo1 = 1
-        Dim idgrupo2 = 1
+    Public Function GetRepAcercamientosProcesos(CveEmpresa As Integer, AgrupadoPor As Integer, CveTipoProceso As Integer, CveVendedor As Integer, CveMedioCaptacion As Integer, CveProbabilidadAcercamiento As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
+        Dim Retorno As New JObject()
+        '            <asp:ListItem Value = "-1" Text="Ninguno" Selected="True"></asp: ListItem>
+        '  <asp:ListItem Value="1" Text="Vendedor"></asp:ListItem>
+        '<asp:ListItem Value = "2" Text="Medio Captacion"></asp: ListItem>
+        '  <asp:ListItem Value="3" Text="Probabilidad de Acercamiento"></asp:ListItem>
+        '<asp:ListItem Value = "4" Text="Fecha"></asp: ListItem>
+        Dim idgrupo2 = -1
         Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
-        Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
-        Dim cveMedioCaptacion = -1
-        Dim cveProbabilidadAcercamiento = -1
+        Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
+
+        Select Case AgrupadoPor
+            Case 1
+                Retorno("Agrupado") = "Vendedor"
+            Case 2
+                Retorno("Agrupado") = "Medio Captación"
+            Case 3
+                Retorno("Agrupado") = "Probabilidad de Acercamiento"
+            Case 4
+                Retorno("Agrupado") = "Fecha"
+        End Select
+
         Using ObjCRM As New ClsCRM
-            If ObjCRM.RepAcercamientosEtapas(CveEmpresa, cveTipoProceso, idgrupo1, idgrupo2, FechaI, FechaF, CveVendedor, cveMedioCaptacion, cveProbabilidadAcercamiento) Then
-                Retorno = ObjCRM.DtResultados.DataTableToJSONIPP()
+            If ObjCRM.RepAcercamientosEtapas(CveEmpresa, CveTipoProceso, AgrupadoPor, idgrupo2, FechaI, FechaF, CveVendedor, CveMedioCaptacion, cveProbabilidadAcercamiento) Then
+                Dim Reporte = JArray.Parse(ObjCRM.DSResultados.Tables(0).DataTableToJSONIPP())
+                Dim Etapas = JArray.Parse(ObjCRM.DSResultados.Tables(1).DataTableToJSONIPP())
+
+                Dim Visible1 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 0)
+                Dim Visible2 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 1)
+                Dim Visible3 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 2)
+                Dim Visible4 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 3)
+                Dim Visible5 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 4)
+                Dim Visible6 As Boolean = Etapas.Any(Function(etapa) etapa("Orden").ToString().ToEntero() = 5)
+
+                For Each Rep As JObject In Reporte
+                    Rep("Visible1") = Visible1
+                    Rep("Visible2") = Visible2
+                    Rep("Visible3") = Visible3
+                    Rep("Visible4") = Visible4
+                    Rep("Visible5") = Visible5
+                    Rep("Visible6") = Visible6
+                Next
+
+                Retorno("Reporte") = Reporte
+                Retorno("Etapas") = Etapas
             End If
+
         End Using
-        Return Retorno
+
+        Return Retorno.ToString()
     End Function
     <WebMethod>
     Public Function GetRepAcercamientosRechazos(CveEmpresa As Integer, CveVendedor As Integer, FechaInicio As DateTime, FechaFin As DateTime) As String
         Dim Retorno = "[]"
         Dim cveTipoProceso = -1
         Dim idgrupo1 = 1
-        Dim idgrupo2 = 1
+        Dim idgrupo2 = -1
         Dim FechaI = FechaInicio.ToString("yyyy/MM/dd")
         Dim FechaF = FechaFin.ToString("yyyy/MM/dd")
         Dim cveMedioCaptacion = -1