Reportes Cambiar Cliente y proveedor a dropdown lost, Compras Editar Fecha de compra, reg prepolizas s agregar IE cuando ya esta creada la poliza

App_Code/ClsCompras.vb

@@ -3182,6 +3182,24 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+
+    Public Function UpdateFechaCompra(CveCompra As Integer, Fecha As Date, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_ComprasFechaUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la fecha de la compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
     Public Function GetRepEvaluacionesProveedores(CveEmpresa As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, Evaluado As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_RepEvaluacionesProveedoresGet")
@@ -3338,7 +3356,6 @@ Public Class ClsCompras
     End Function
 
 
-
 End Class
 
 

App_Code/ClsContabilidad.vb

@@ -291,7 +291,7 @@ Public Class ClsContabilidad
 
     Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
                                             Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
-                                            Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1) As Boolean
+                                            Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -316,6 +316,8 @@ Public Class ClsContabilidad
             .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveIE", SqlDbType.Int).Value = CveIE
+
         End With
 
         Try

App_Code/ClsGenerales.vb

@@ -4059,7 +4059,7 @@ Public Class ClsGenerales
 
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet")
+        DataAdapter("PA_Inv_EntregaAlmacenRutaRepGet2")
 
         With SqlAdapter.SelectCommand.Parameters
 

Compras/Compras.aspx

@@ -288,32 +288,50 @@
                                 </div>
                             </div>
                             <div class="row">
-                                <div class="form-group whitoutcol" style="width: 280px;">
-                                    <span class="whitoutcol linewhitsize comprasdfleft" style="width: 85px; margin-top: 10px;">Fecha Factura:</span>
-                                    <div class="whitoutcol whitoutcol comprasdfleftvar">
-                                        <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy">
+                              
+                                    
+                                    
+                                    <table>
+                                        <tr>
+                                            <td align="Center" style="width: 100px">Fecha Factura:</td>
+                                            <td align="left" style="width: 100px">
+                                                
 
-                                            <asp:UpdatePanel runat="server">
-                                                <ContentTemplate>
-                                                    <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpGuardar" Width="100px" ClientIDMode="Static"></asp:TextBox>
-                                                    <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                    <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFecha" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                    <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                    <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                    <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                    <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                </ContentTemplate>
-                                            </asp:UpdatePanel>
-                                            <asp:HiddenField ID="HdnEjercicioAC" runat="server" Value="-1" />
-                                            <asp:Button Text="" ID="BtnCambiaFechaTC" OnClick="BtnCambiaFechaTC_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
-                                            <asp:Button Text="" ID="BtnCambiaFecha" OnClick="BtnCambiaFecha_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
+                                                    <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy">
 
-                                            <span class="input-group-btn ">
-                                                <asp:LinkButton runat="server" ID="ImgFecha" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
-                                            </span>
-                                        </div>
-                                    </div>
-                                </div>
+                                                        <asp:UpdatePanel runat="server">
+                                                            <ContentTemplate>
+                                                                <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpGuardar" Width="100px" ClientIDMode="Static"></asp:TextBox>
+                                                                <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                                <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFecha" PopupButtonID="ImgFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                                                <asp:RequiredFieldValidator ID="RFVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                                <asp:CompareValidator ID="CVFecha" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                                <ajax:ValidatorCalloutExtender ID="VCOFecha1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                                <ajax:ValidatorCalloutExtender ID="VCOFecha2" runat="server" HighlightCssClass="vco" TargetControlID="CVFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
+                                                        <asp:HiddenField ID="HdnEjercicioAC" runat="server" Value="-1" />
+                                                        <asp:Button Text="" ID="BtnCambiaFechaTC" OnClick="BtnCambiaFechaTC_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
+                                                        <asp:Button Text="" ID="BtnCambiaFecha" OnClick="BtnCambiaFecha_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
+
+                                                        <span class="input-group-btn ">
+                                                            <asp:LinkButton runat="server" ID="ImgFecha" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                                                        </span>
+                                                    </div>
+                                                 
+                                            </td>
+                                            <td align="left">
+                                                <asp:LinkButton runat="server" Visible="false" ID="LnkActualziarFechadecompra" OnClick="LnkActualziarFechadecompra_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar la fecha de la compra?"
+                                                    data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Fecha de compra" />
+                                            </td>
+                                        </tr>
+                                    </table>
+                                    
+                                    
+
+                                    
+
+                               
                                 <div class="form-group whitoutcol" style="width: 280px;">
                                     <span class="whitoutcol linewhitsize comprasdfleft">Descripción: </span>
                                     <div class="whitoutcol whitoutcol comprasdfleftvar">

Compras/Compras.aspx.vb

@@ -1899,6 +1899,8 @@ Partial Class Compras_Compras
                     ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
                     CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
 
+
+
                     TxtSubTotal.Enabled = False
                     TxtDescuento.Enabled = False
                     TxtSubTotal2.Enabled = False
@@ -2901,6 +2903,16 @@ Partial Class Compras_Compras
                 ImgFecha.Enabled = False
                 CEFecha.Enabled = False
 
+
+                If UsuarioActual.TienePermisoProceso(342) Then
+                    TxtFecha.Enabled = True
+                    ImgFecha.Enabled = True
+                    CEFecha.Enabled = True
+                    LnkActualziarFechadecompra.Visible = True
+                End If
+
+
+
                 DdlProveedor.Enabled = False
                 DdlProveedorSucursal.Enabled = False
                 DdlEstatus.Enabled = False
@@ -21142,6 +21154,21 @@ Partial Class Compras_Compras
     Private Sub ChkAliasFlexible_CheckedChanged(sender As Object, e As EventArgs) Handles ChkAliasFlexible.CheckedChanged
         TxtPSAlias.Enabled = ChkAliasFlexible.Checked
     End Sub
+
+    Protected Sub LnkActualziarFechadecompra_Click(sender As Object, e As EventArgs)
+
+
+        Dim ObjCompra As New ClsCompras
+
+
+        If ObjCompra.UpdateFechaCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then
+            Alert("Fecha Actualizada Correctamente")
+        End If
+
+
+        ObjCompra.Dispose()
+
+    End Sub
 End Class
 
 Public Class MMensajeDevolucion

Compras/RepPagado.aspx

@@ -61,8 +61,7 @@
                             </div>
                             <div class="col-md-1">Proveedor:</div>
                             <div class="col-md-2 ">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
-                                </asp:DropDownList>
+                                 <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>   
                             </div>
                             <div class="col-md-1">Fecha Inicial:</div>
                             <div class="col-md-1">

Compras/RepPagado.aspx.cs

@@ -42,9 +42,10 @@ public partial class Compras_RepPagado : ClsPaginas
         DdlMoneda.DataBind();
 
         //Carga Proveedor
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProveedor.DataBind();
+        DdlProveedores.setEsWebService(true);
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
+        DdlProveedores.SelectedText = "Todos";
+        DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
         DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
@@ -163,7 +164,7 @@ public partial class Compras_RepPagado : ClsPaginas
     private void CargaDatos()
     {
         ClsCompras ObjComp = new ClsCompras();
-        if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
+        if (ObjComp.GetRepPagado(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
             DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(),
             DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(),
             DdlMoneda.SelectedValue.ToEntero(),TxtFechaICompra.Text.ToDate(),TxtFechaFCompra.Text.ToDate(),CveTipoProveedor: DdlTipoProveedor.SelectedValue.ToEntero(), 
@@ -229,8 +230,8 @@ public partial class Compras_RepPagado : ClsPaginas
             StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.SelectedItem.Text);
         if (DdlGrupo.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
-        if (DdlProveedor.SelectedValue != "-1")
-            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text);
+        if (DdlProveedores.SelectedValue != "-1")
+            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedores.txtText.Value);
         if (DdlUsuario.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text);
         if (DdlResponsable.SelectedValue != "-1")
@@ -251,12 +252,14 @@ public partial class Compras_RepPagado : ClsPaginas
         }
 
         System.IO.FileInfo Imagen = new System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta));
+        
         string logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);
         List<ReportParameter> para = new List<ReportParameter>();
         para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
         para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
         para.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
+
         if (Imagen.Exists)
         {
             para.Add(new ReportParameter("LogoPath", logouri));
@@ -265,6 +268,7 @@ public partial class Compras_RepPagado : ClsPaginas
         {
             para.Add(new ReportParameter("LogoPath", ""));
         }
+
         ImprimirPDF(RutaPDF,DtPagado, para, "RepPagado" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion);
     }
 

Compras/RepPagadoDetalle.aspx

@@ -48,8 +48,7 @@
                             </div>
                             <div class="col-md-1">Proveedor:</div>
                             <div class="col-md-2 ">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
-                                </asp:DropDownList>
+                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>   
                             </div>
                             <div class="col-md-1">Fecha Inicial:</div>
                             <div class="col-md-1">

Compras/RepPagadoDetalle.aspx.cs

@@ -47,9 +47,10 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         DdlMoneda.DataBind();
 
         //Carga Proveedor
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProveedor.DataBind();
+        DdlProveedores.setEsWebService(true);
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
+        DdlProveedores.SelectedText = "Todos";
+        DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
         DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
@@ -87,7 +88,9 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         DdlGrupo.SelectedValueExist(Request["Grupo"] == null ? "-1" : Request["Grupo"].ToString());
         DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
         DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
+        
         DdlProveedor.SelectedValueExist(Request["CveProveedor"] == null ? "-1" : Request["CveProveedor"].ToString());
+
         DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
         DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
         DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString());

Compras/RepPagadoPeriodo.aspx

@@ -64,8 +64,10 @@
                             </div>
                             <div class="col-md-1">Proveedor:</div>
                             <div class="col-md-2 ">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
-                                </asp:DropDownList>
+                              <%--  <asp:DropDownList ID="DdlProveedor" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                </asp:DropDownList>--%>
+
+                                <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>   
                             </div>
                             <div class="col-md-1">Fecha Inicial:</div>
                             <div class="col-md-1">

Compras/RepPagadoPeriodo.aspx.cs

@@ -50,9 +50,10 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         DdlMoneda.DataBind();
 
         //Carga Proveedor
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProveedor.DataBind();
+        DdlProveedores.setEsWebService(true);
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
+        DdlProveedores.SelectedText = "Todos";
+        DdlProveedores.SelectedValue = "-1";
 
         //Carga Usuarios
         DdlUsuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
@@ -278,8 +279,8 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
             StrFiltro.AppendFormat("&emsp;<b>SubProyecto</b>: {0}", DdlSubProyecto.SelectedItem.Text);
         if (DdlGrupo.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Grupo</b>: {0}", DdlGrupo.SelectedItem.Text);
-        if (DdlProveedor.SelectedValue != "-1")
-            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedor.SelectedItem.Text);
+        if (DdlProveedores.SelectedValue != "-1")
+            StrFiltro.AppendFormat("&emsp;<b>Proveedor</b>: {0}", DdlProveedores.txtText.Value);
         if (DdlUsuario.SelectedValue != "-1")
             StrFiltro.AppendFormat("&emsp;<b>Registro</b>: {0}", DdlUsuario.SelectedItem.Text);
         if (DdlResponsable.SelectedValue != "-1")
@@ -332,7 +333,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
     {
         if (RblTipoCambio.SelectedValue.ToEntero() == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; }
         ClsCompras ObjCompras = new ClsCompras();
-        if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedor.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
+        if(ObjCompras.GetRepPagadoPeriodo(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlProveedores.SelectedValue.ToEntero(), DdlProyecto.SelectedValue.ToEntero(),
             DdlSubProyecto.SelectedValue.ToEntero(), DdlUsuario.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero(),
             DdlResponsable.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, DdlBanco.SelectedValue.ToEntero(), DdlCuentaBancaria.SelectedValue.ToEntero(),
             DdlMoneda.SelectedValue.ToEntero(), TxtFechaICompra.Text.ToDate(), TxtFechaFCompra.Text.ToDate(), TipoCambio, TCEspecifico)){

Compras/eFacturas.aspx

@@ -69,9 +69,16 @@
             <li>
                 <asp:LinkButton ID="LnkBitacotaFacturas" runat="server" OnClick="LnkBitacotaFacturas_Click"><i class="fa fa-book"    ></i> Bitácora Facturas</asp:LinkButton>
             </li>
-              <li>
+            <li>
                 <asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="false" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>
             </li>
+
+            <li>                 
+                <asp:LinkButton ID="LnkPersonalizar" runat="server" OnClick="LnkPersonalizar_Click"  ><i class="fa fa-pencil"></i>  Personalizar</asp:LinkButton>
+            </li>
+
+
+            
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger  ControlID="LnkPdf"/>
@@ -196,6 +203,7 @@
                         <asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total"
                             EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
                             <Columns>
+
                                 <asp:TemplateField HeaderText="Tipo">
                                     <ItemTemplate>
                                         <asp:Label ID="LtTipoComprobante" runat="server" Text='<%# Eval("TipoComprobante") %>'></asp:Label>
@@ -260,6 +268,14 @@
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Center" />
                                 </asp:TemplateField>
+
+                                <%--Folio Fiscal 11--%>                               
+                                 <asp:TemplateField HeaderText="Folio Fiscal" Visible="false">
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
                                 <asp:TemplateField HeaderText="Agregar">
                                     <ItemTemplate>
                                         <%--<asp:Image ID="ImgAgregar" runat="server" Style="cursor: pointer;" Visible='<%# Eval("CveProveedor").ToString <> "" %>' ToolTip="Agregar Factura" ImageUrl="/Imagenes/Nota.gif" Height="18px" />--%>
@@ -372,6 +388,13 @@
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Center" />
                                     </asp:TemplateField>
+
+                                    <%--  Folio Fiscal 9 --%>
+                                   <asp:TemplateField HeaderText="Folio Fiscal" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Agregar">
                                         <ItemTemplate>
                                             <asp:HyperLink ID="HplAgregarP" runat="server" CssClass="btn btn-circle btn-sm green" Visible='<%# Eval("CveProveedor").ToString <> "" %>' data-toggle="tooltip" title="Agregar Factura" Target="_blank" rel="opener"><i class="fa fa-plus"></i></asp:HyperLink>
@@ -485,6 +508,12 @@
                                             <asp:LinkButton ID="ImgValidarCFDi" runat="server" CssClass="btn btn-xs btn-success" Text="Validar" Visible="false" CommandName="ValidarCFDi" CommandArgument='<%# Eval("CveFactura") %>' />
                                         </ItemTemplate>
                                         <ItemStyle HorizontalAlign="Center" />
+                                    </asp:TemplateField>
+                                      <%--  Folio Fiscal 9 --%>
+                                    <asp:TemplateField HeaderText="Folio Fiscal" Visible="false">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("UUID") %>'></asp:Literal>
+                                        </ItemTemplate>
                                     </asp:TemplateField>
                                     <asp:TemplateField HeaderText="Agregar">
                                         <ItemTemplate>
@@ -898,6 +927,36 @@
     </div>
 
 
+    <div id="DvmodalPersonalizar" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalPersonalizar" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H3" runat="server">
+                            <asp:Literal runat="server" ID="LtlModalPErsonalizarTitulo">Personalizar</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+
+                        <div class="row">
+
+                            <div class="col-md-4">
+                                <asp:CheckBox runat="server" ID="ChkModalPersonalzarFolioFiscal" Text="Folio Fiscal" TextAlign="Right" />
+                            </div>
+
+                        </div>
+
+                    </div>
+                    <div class="modal-footer">
+                        <asp:LinkButton ID="LnkModalPersonalizar" runat="server" CssClass="btn btn-primary"   OnClick="LnkModalPersonalizar_Click">Personalizar</asp:LinkButton>
+                        <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 
 
         <div id="DvModalVincularTrasaldo" class="modal ADS fade" role="dialog">
@@ -1142,6 +1201,12 @@
             </contenttemplate>
         </asp:UpdatePanel>
     </div>
+
+
+
+   
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript">

Compras/eFacturas.aspx.vb

@@ -710,6 +710,22 @@ Partial Class Compras_eFacturas
     End Property
 
 
+
+
+    Property DTTraslados As DataTable
+        Get
+            If ViewState("DTTraslados") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTTraslados"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTTraslados") = value
+        End Set
+    End Property
+
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -750,8 +766,8 @@ Partial Class Compras_eFacturas
             'If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(10).Visible = False
             'If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(5).Visible = True
 
-            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(12).Visible = True : GvD.Columns(13).Visible = True
-            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(11).Visible = False
+            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(13).Visible = True : GvD.Columns(14).Visible = True
+            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(12).Visible = False
             If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(6).Visible = True
 
 
@@ -773,6 +789,9 @@ Partial Class Compras_eFacturas
     End Sub
 
     Private Sub CargaDatos()
+
+        DTTraslados = New DataTable
+
         Dim Folio, RFC, Proveedor As String
         Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
         RFC = "-1" 'If(TxtRFC.Text.Trim.Length > 0, TxtRFC.Text.Trim, "-1")
@@ -792,7 +811,7 @@ Partial Class Compras_eFacturas
         End If
 
         Dim DtPagos As DataTable = Nothing
-        Dim DTTrasaldos As DataTable = Nothing
+        'Dim DTTrasaldos As DataTable = Nothing
 
         Dim ObjDatos As New ClsCompras
         If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa) Then
@@ -813,10 +832,9 @@ Partial Class Compras_eFacturas
             If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then
 
                 If ObjDatos.DtResultados.Rows.Count > 0 Then
-
-                    DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
-
+                    DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
                 End If
+
             End If
         End If
         LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
@@ -825,11 +843,10 @@ Partial Class Compras_eFacturas
             GvPagos.DataSource = DtPagos
         End If
 
-        If DTTrasaldos IsNot Nothing AndAlso DTTrasaldos.Rows.Count > 0 Then
-            GvTraslados.DataSource = DTTrasaldos
+        If DTTraslados IsNot Nothing AndAlso DTTraslados.Rows.Count > 0 Then
+            GvTraslados.DataSource = DTTraslados
         End If
 
-
         ObjDatos.Dispose()
 
         GvD.DataBind()
@@ -1427,7 +1444,7 @@ Partial Class Compras_eFacturas
         If dt IsNot Nothing Then
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1435,13 +1452,22 @@ Partial Class Compras_eFacturas
             params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file//:{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
 
-            ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+
+            If Tab.ActiveTabIndex = 2 Then
+
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", DTTraslados, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+            Else
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+            End If
+
+
         End If
 
     End Sub
@@ -4540,4 +4566,27 @@ Partial Class Compras_eFacturas
 
 #End Region
 
+
+    Protected Sub LnkModalPersonalizar_Click(sender As Object, e As EventArgs)
+
+        GvD.Columns(11).Visible = ChkModalPersonalzarFolioFiscal.Checked
+        GvPagos.Columns(9).Visible = ChkModalPersonalzarFolioFiscal.Checked
+        GvTraslados.Columns(9).Visible = ChkModalPersonalzarFolioFiscal.Checked
+
+
+        UpDatos.Update()
+        UpPagos.Update()
+        UpTraslados.Update()
+
+        RegistraScript("$('#DvmodalPersonalizar').modal('hide');")
+    End Sub
+
+
+
+
+    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#DvmodalPersonalizar').modal('show');")
+
+    End Sub
 End Class

Contabilidad/RegPrePolizaS.aspx

@@ -477,7 +477,7 @@
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
 
                         <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono,CveIE" Width="100%" >
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Movimiento</HeaderTemplate>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1156,22 +1156,61 @@ Partial Class ContabilidadC_RegPrePolizaS
             OcurrioError = True
         End If
 
+        Dim CveIEAgregado As Integer = -1
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                 If row.FCCheckBox("chkModificado").Checked Then
                     contador = contador + 1
+
+
+
+
+
+                    Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
+
+                    If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                        Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                        CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
+                                                   row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                                   False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                        If CveIEAgregado < 0 Then
+                            'MsgError = "No se pudo registrar movimiento bancario"
+                            OcurrioError = True
+                            Exit For
+                        End If
+                    End If
+
+
+
+
                     If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
-                                                                   row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
-                                                                   row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
-                                                                   CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
-                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                                   CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                                                       row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
+                                                                       row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
+                                                                       CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
+                                                                       CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
+                                                                       CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
                         OcurrioError = True
                         Exit For
                     End If
                 End If
-            Else
+                Else
                 contador = contador + 1
+
+
+                Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
+
+                If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                    Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                    CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
+                                                   row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                                   False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    If CveIEAgregado < 0 Then
+                        'MsgError = "No se pudo registrar movimiento bancario"
+                        OcurrioError = True
+                        Exit For
+                    End If
+                End If
+
                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                             row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
                                                             row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
@@ -1180,7 +1219,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                                             ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                             row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
                                                             CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                            CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal) Then
+                                                            CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
                     OcurrioError = True
                     Exit For
                 End If
@@ -1252,6 +1291,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
         DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
 
+
         TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00")
 
         TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
@@ -1313,6 +1353,12 @@ Partial Class ContabilidadC_RegPrePolizaS
         End If
 
 
+        If DdlConceptosContablesE.SelectedValue.ToEntero = 30 AndAlso CvePrePoliza > 0 Then
+            DdlConceptosContablesE.Enabled = False
+        Else
+            DdlConceptosContablesE.Enabled = True
+        End If
+
         UpModalConcepto.Update()
 
     End Sub

Empresas/Grales/Formatos/RepFacturas.rdlc

@@ -16,7 +16,10 @@
                         <TextRuns>
                           <TextRun>
                             <Value>Tipo</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -27,12 +30,13 @@
                     <rd:DefaultName>Textbox3</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
                       <RightBorder>
                         <Style>None</Style>
                       </RightBorder>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -51,7 +55,10 @@
                         <TextRuns>
                           <TextRun>
                             <Value>Folio</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -62,12 +69,13 @@
                     <rd:DefaultName>Textbox28</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
                       <RightBorder>
                         <Style>None</Style>
                       </RightBorder>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -82,21 +90,24 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>2.36727cm</Width>
+              <Width>1.70632cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.23964cm</Width>
+              <Width>6.55172cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.57894cm</Width>
+              <Width>1.87355cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.34081cm</Width>
+              <Width>1.67935cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>5.52508cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
             <TablixRow>
-              <Height>0.6cm</Height>
+              <Height>0.33542cm</Height>
               <TablixCells>
                 <TablixCell>
                   <CellContents>
@@ -109,7 +120,7 @@
                             <TextRun>
                               <Value>=Fields!FechaFactura.Value</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>dd/MM/yyyy</Format>
                               </Style>
                             </TextRun>
@@ -143,7 +154,7 @@
                             <TextRun>
                               <Value>=Fields!NombreProveedor.Value</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
                               </Style>
                             </TextRun>
@@ -175,7 +186,7 @@
                             <TextRun>
                               <Value>=Fields!Total.Value</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
                               </Style>
                             </TextRun>
@@ -212,7 +223,7 @@ Fields!FueValidado.Value = "2","Cancelada",
 Fields!FueValidado.Value = "3","Omitida",
 1=1,"No validado")</Value>
                               <Style>
-                                <FontSize>9pt</FontSize>
+                                <FontSize>7pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
                               </Style>
                             </TextRun>
@@ -233,6 +244,37 @@ Fields!FueValidado.Value = "3","Omitida",
                     </Textbox>
                   </CellContents>
                 </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="UUID">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!UUID.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>UUID</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>
           </TablixRows>
@@ -241,7 +283,7 @@ Fields!FueValidado.Value = "3","Omitida",
           <TablixMembers>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox40">
                     <CanGrow>true</CanGrow>
@@ -251,7 +293,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>Fecha Fact.</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -262,9 +307,10 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox40</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -276,7 +322,7 @@ Fields!FueValidado.Value = "3","Omitida",
             </TablixMember>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox42">
                     <CanGrow>true</CanGrow>
@@ -286,7 +332,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>Proveedor</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -297,9 +346,10 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox42</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -311,7 +361,7 @@ Fields!FueValidado.Value = "3","Omitida",
             </TablixMember>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox44">
                     <CanGrow>true</CanGrow>
@@ -321,7 +371,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>Importe</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -332,9 +385,10 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox44</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -346,7 +400,7 @@ Fields!FueValidado.Value = "3","Omitida",
             </TablixMember>
             <TablixMember>
               <TablixHeader>
-                <Size>0.6cm</Size>
+                <Size>0.44125cm</Size>
                 <CellContents>
                   <Textbox Name="Textbox49">
                     <CanGrow>true</CanGrow>
@@ -356,7 +410,10 @@ Fields!FueValidado.Value = "3","Omitida",
                         <TextRuns>
                           <TextRun>
                             <Value>EstatusSAT</Value>
-                            <Style />
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
                           </TextRun>
                         </TextRuns>
                         <Style>
@@ -367,9 +424,49 @@ Fields!FueValidado.Value = "3","Omitida",
                     <rd:DefaultName>Textbox49</rd:DefaultName>
                     <Style>
                       <Border>
-                        <Color>DimGray</Color>
+                        <Color>Silver</Color>
                         <Style>Solid</Style>
                       </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
+                      <PaddingLeft>2pt</PaddingLeft>
+                      <PaddingRight>2pt</PaddingRight>
+                      <PaddingTop>2pt</PaddingTop>
+                      <PaddingBottom>2pt</PaddingBottom>
+                    </Style>
+                  </Textbox>
+                </CellContents>
+              </TablixHeader>
+            </TablixMember>
+            <TablixMember>
+              <TablixHeader>
+                <Size>0.44125cm</Size>
+                <CellContents>
+                  <Textbox Name="Textbox4">
+                    <CanGrow>true</CanGrow>
+                    <KeepTogether>true</KeepTogether>
+                    <Paragraphs>
+                      <Paragraph>
+                        <TextRuns>
+                          <TextRun>
+                            <Value>Folio Fiscal</Value>
+                            <Style>
+                              <FontSize>7pt</FontSize>
+                              <FontWeight>Bold</FontWeight>
+                            </Style>
+                          </TextRun>
+                        </TextRuns>
+                        <Style>
+                          <TextAlign>Center</TextAlign>
+                        </Style>
+                      </Paragraph>
+                    </Paragraphs>
+                    <rd:DefaultName>Textbox4</rd:DefaultName>
+                    <Style>
+                      <Border>
+                        <Color>Silver</Color>
+                        <Style>Solid</Style>
+                      </Border>
+                      <BackgroundColor>Silver</BackgroundColor>
                       <PaddingLeft>2pt</PaddingLeft>
                       <PaddingRight>2pt</PaddingRight>
                       <PaddingTop>2pt</PaddingTop>
@@ -398,7 +495,7 @@ Fields!FueValidado.Value = "3","Omitida",
                 </SortExpression>
               </SortExpressions>
               <TablixHeader>
-                <Size>2.16269cm</Size>
+                <Size>1.30938cm</Size>
                 <CellContents>
                   <Textbox Name="TipoComprobante">
                     <CanGrow>true</CanGrow>
@@ -412,7 +509,7 @@ Fields!TipoComprobante.Value="E","Egreso",
 Fields!TipoComprobante.Value="P","Pago"
 )</Value>
                             <Style>
-                              <FontSize>9pt</FontSize>
+                              <FontSize>7pt</FontSize>
                             </Style>
                           </TextRun>
                         </TextRuns>
@@ -435,7 +532,7 @@ Fields!TipoComprobante.Value="P","Pago"
               <TablixMembers>
                 <TablixMember>
                   <TablixHeader>
-                    <Size>2.33715cm</Size>
+                    <Size>1.96039cm</Size>
                     <CellContents>
                       <Textbox Name="SerieFolio">
                         <CanGrow>true</CanGrow>
@@ -446,7 +543,7 @@ Fields!TipoComprobante.Value="P","Pago"
                               <TextRun>
                                 <Value>=Fields!SerieFolio.Value</Value>
                                 <Style>
-                                  <FontSize>9pt</FontSize>
+                                  <FontSize>7pt</FontSize>
                                 </Style>
                               </TextRun>
                             </TextRuns>
@@ -473,8 +570,8 @@ Fields!TipoComprobante.Value="P","Pago"
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Left>0.06614cm</Left>
-        <Height>1.2cm</Height>
-        <Width>19.0265cm</Width>
+        <Height>0.77667cm</Height>
+        <Width>20.60579cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -482,10 +579,10 @@ Fields!TipoComprobante.Value="P","Pago"
         </Style>
       </Tablix>
     </ReportItems>
-    <Height>0.47244in</Height>
+    <Height>0.35786in</Height>
     <Style />
   </Body>
-  <Width>7.52397in</Width>
+  <Width>8.13855in</Width>
   <Page>
     <PageHeader>
       <Height>2.22362cm</Height>
@@ -505,12 +602,14 @@ Fields!TipoComprobante.Value="P","Pago"
                   </Style>
                 </TextRun>
               </TextRuns>
-              <Style />
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox1</rd:DefaultName>
           <Top>0.18521cm</Top>
-          <Left>2.8349cm</Left>
+          <Left>3.4699cm</Left>
           <Height>0.6cm</Height>
           <Width>12.60299cm</Width>
           <Style>
@@ -558,7 +657,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox2</rd:DefaultName>
           <Top>1.10271cm</Top>
-          <Left>3.80842cm</Left>
+          <Left>4.76092cm</Left>
           <Height>0.52945cm</Height>
           <Width>9.98771cm</Width>
           <ZIndex>1</ZIndex>
@@ -643,7 +742,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox13</rd:DefaultName>
           <Top>0.0259cm</Top>
-          <Left>15.579cm</Left>
+          <Left>17.07478cm</Left>
           <Height>2.18834cm</Height>
           <Width>3.53188cm</Width>
           <ZIndex>2</ZIndex>
@@ -679,7 +778,7 @@ Fields!TipoComprobante.Value="P","Pago"
       </Style>
     </PageHeader>
     <PageFooter>
-      <Height>0.84667cm</Height>
+      <Height>0.76376cm</Height>
       <PrintOnFirstPage>true</PrintOnFirstPage>
       <PrintOnLastPage>true</PrintOnLastPage>
       <ReportItems>
@@ -703,8 +802,7 @@ Fields!TipoComprobante.Value="P","Pago"
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox3</rd:DefaultName>
-          <Top>0.08291cm</Top>
-          <Left>16.97887cm</Left>
+          <Left>18.56637cm</Left>
           <Height>0.68085cm</Height>
           <Width>2.06587cm</Width>
           <Style>
@@ -801,7 +899,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox10</rd:DefaultName>
           <Top>0.08291cm</Top>
-          <Left>6.93622cm</Left>
+          <Left>7.57122cm</Left>
           <Height>0.68085cm</Height>
           <Width>2.92333cm</Width>
           <ZIndex>3</ZIndex>
@@ -834,7 +932,7 @@ Fields!TipoComprobante.Value="P","Pago"
           </Paragraphs>
           <rd:DefaultName>Textbox11</rd:DefaultName>
           <Top>0.08291cm</Top>
-          <Left>9.84544cm</Left>
+          <Left>10.48044cm</Left>
           <Height>0.68085cm</Height>
           <Width>4.32745cm</Width>
           <ZIndex>4</ZIndex>
@@ -857,8 +955,8 @@ Fields!TipoComprobante.Value="P","Pago"
     </PageFooter>
     <PageHeight>29.7cm</PageHeight>
     <PageWidth>21cm</PageWidth>
-    <LeftMargin>0.5cm</LeftMargin>
-    <RightMargin>0.5cm</RightMargin>
+    <LeftMargin>0cm</LeftMargin>
+    <RightMargin>0cm</RightMargin>
     <TopMargin>1cm</TopMargin>
     <BottomMargin>1cm</BottomMargin>
     <ColumnSpacing>0.13cm</ColumnSpacing>
@@ -905,6 +1003,10 @@ Fields!TipoComprobante.Value="P","Pago"
           <DataField>NombreProveedor</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="UUID">
+          <DataField>UUID</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
       <rd:DataSetInfo>
         <rd:DataSetName>DataSet</rd:DataSetName>

General/SaldosIniciales.aspx.vb

@@ -1253,6 +1253,7 @@ Partial Class General_SaldosIniciales
                     Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
                     Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
                     Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
+                    Dim PorcentajeRetIVA As Decimal = If(dt.Columns.Contains("PorcentajeRetIVA"), Round(Row("PorcentajeRetIVA").ToString.ToDecimal, 4), 0)
 
                     Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString, "")
 
@@ -1309,7 +1310,7 @@ Partial Class General_SaldosIniciales
                             End If
                             CveVenta = ObjVentas.CveVenta
 
-                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA) Then
+                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA) Then
                                 ErrorVentas = True
                                 Exit For
                             End If

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -644,11 +644,25 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
             if (e.Row.DataKey("Estatus").ToEntero() == 1)
             {
                 LnkCancelaTimbre.Visible = UsuarioActual.TienePermisoProceso(338);
-
-                if (bool.Parse(e.Row.DataKey("AplicaCP")))
+                if (e.Row.DataKey("Tipo").ToString() == "I")
                 {
-                    if (e.Row.FCHyperLink("HplPDF") != null)
-                        e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
+                    LnkCancelaTimbre.Visible = false;
+                }
+
+
+                    if (bool.Parse(e.Row.DataKey("AplicaCP")))
+                {
+                    
+                    if(e.Row.DataKey("Tipo").ToString() == "I")
+                    {
+                        if (e.Row.FCHyperLink("HplPDF") != null)
+                            e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "PDF", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    }
+                    else
+                    {
+                        if (e.Row.FCHyperLink("HplPDF") != null)
+                            e.Row.FCHyperLink("HplPDF").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
+                    }
                 }
                 else
                 {
@@ -660,8 +674,16 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
                 if (File.Exists(ArchivoXML))
                 {
-                    if (e.Row.FCHyperLink("HplXML") != null)
-                        e.Row.FCHyperLink("HplXML").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    if (e.Row.DataKey("Tipo").ToString() == "I")
+                    {
+                        if (e.Row.FCHyperLink("HplXML") != null)                            
+                            e.Row.FCHyperLink("HplXML").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    }
+                    else
+                    {
+                        if (e.Row.FCHyperLink("HplXML") != null)
+                            e.Row.FCHyperLink("HplXML").NavigateUrl = "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto")));
+                    }
                 }
 
             }
@@ -680,6 +702,9 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
             switch (e.Row.DataKey("Tipo"))
             {
+                case "I":
+                    e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-success";
+                    break;
                 case "E":
                     e.Row.FCLabel("LtTipo").CssClass = "label label-sm label-success";
                     break;

Ventas/RepProductosServiciosPeriodo.aspx

@@ -202,9 +202,11 @@
                         </div>
                         <label class="col-md-1 ">Cliente:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                            <%--<asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>--%>
                         </div>
                         <label class="col-md-1 truncate">Fecha Mostrada:</label>
                         <div class="col-md-2">

Ventas/RepProductosServiciosPeriodo.aspx.cs

@@ -70,14 +70,18 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         {
             DdlTipoComprobante.SelectedValueExist(Opcion);
             DdlGrupo.SelectedValueExist("7");
-            DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty);
-            DdlEstatus.SelectedValue = "-1";
-        }
-    }
-
-    private void CargaCombos()
-    {
-        //CargaClientes
+            DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty);
+            DdlEstatus.SelectedValue = "-1";
+        }
+    }
+
+    private void CargaCombos()
+    {
+        ////CargaClientes
+        //ClsClientes ObjClientes = new ClsClientes();
+        //if (ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa))
+        //{
+        //    DdlClientes.DataSource = ObjClientes.DtResultados;
         //}
         //ObjClientes.Dispose();
         //DdlClientes.DataBind();
@@ -260,10 +264,10 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
         DdlGrupo.SelectedValueExist("8");
     }
 
-
+
     #endregion
 
-    #region SELECTED INDEX CHANGE
+    #region SELECTED INDEX CHANGE
 
     protected void DdlClienteClasificacion_SelectedIndexChanged(object sender, EventArgs e)
     {

Ventas/RepRecuperacionPeriodo.aspx

@@ -114,9 +114,10 @@
                         </div>
                         <div class="col-md-1 truncate">Cliente:</div>
                         <div class="col-md-2 ">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
+                            <%--<asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" CssClass="form-control  input-small input-sm select2me" Width="100%">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>--%>
                         </div>
                         <div class="col-md-1 truncate">Clasificación Cli.:</div>
                         <div class="col-md-2 ">

Ventas/RepRecuperacionPeriodo.aspx.cs

@@ -76,9 +76,16 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
         DdlBanco.Items.Insert(0, new ListItem("Todos", "-1"));
         DdlBanco.DataBind();
 
+        //Carga Clasificacion Cliente
         ClsClientes ObjCliente = new ClsClientes();
         if (ObjCliente.GetClienteClasificacion(UsuarioActual.CveEmpresa))
         {
+            DdlClienteClasificacion.DataSource = ObjCliente.DtResultados;
+        }
+        ObjCliente.Dispose();
+
+        DdlClienteClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlClienteClasificacion.DataBind();
 
 
         DdlClientes.setEsWebService(true);
@@ -92,7 +99,7 @@ public partial class Ventas_RepRecuperacionPeriodo : ClsPaginas
     }
 
     private void GenerarPDF(string Opcion)
-    {
+    {
         string FechaInicio, FechaFin, Sucursal, Grupo, Vendedor,Cliente, ClasificacionCliente,Banco,CuentaBancaria,TipoDocto,EstatusCliente,Registro,Responsable;
         if (txtFechaI.Text == "") { FechaInicio = ""; } else { FechaInicio = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"; }
         if (txtFechaF.Text == "") { FechaFin = ""; } else { FechaFin = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"; }

Ventas/RepVentasPeriodo.aspx

@@ -226,9 +226,11 @@
                         </div>
                         <label class="col-md-1 ">Cliente:</label>
                         <div class="col-md-2">
-                            <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+
+                            <%--<asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            </asp:DropDownList>--%>
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
                         </div>
                         <label title="Clasificación Cliente" data-toggle="tooltip" data-placement="top" class="col-md-1 ">Clasificacion Cli.:</label>
                         <div class="col-md-2">

Ventas/RepVentasPeriodo.aspx.vb

@@ -96,16 +96,20 @@ Partial Class RepVentasPeriodo
 
     End Sub
 
-    Private Sub CargaCombos()
-        'CargaClientes
-        Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlClientes.DataSource = ObjClientes.DtResultados
-        Else
-            DdlClientes.DataSource = Nothing
-        End If
-        ObjClientes.Dispose()
-        DdlClientes.DataBind()
+    Private Sub CargaCombos()
+        ''CargaClientes
+        'Dim ObjClientes As New ClsClientes
+        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+        '    DdlClientes.DataSource = ObjClientes.DtResultados
+        'Else
+        '    DdlClientes.DataSource = Nothing
+        'End If
+        'ObjClientes.Dispose()
+        'DdlClientes.DataBind()
+        DdlClientes.setEsWebService(True)
+        DdlClientes.Attributes.Add("data-metodo", "getcliente")
+        DdlClientes.SelectedText = "Todos"
+        DdlClientes.SelectedValue = "-1"
 
         'CargaSucursales
 
@@ -192,8 +196,10 @@ Partial Class RepVentasPeriodo
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
-        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
-
+        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+
+
+
         If ObjVentas.GetRepVentasPeriodos(FechaI, FechaF, FechaIEjec, FechaFEjec, DdlClientes.SelectedValue.ToEntero, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero,
                                   DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue,
                                   DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
@@ -408,11 +414,13 @@ Partial Class RepVentasPeriodo
         CargaClientes()
     End Sub
 
-    Private Sub CargaClientes()
-        DdlClientes.Items.Clear()
+    Private Sub CargaClientes()
+
+
+        DdlClientes.ddl.Items.Clear()
         DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1")
         DdlClientes.DataBind()
-        DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
 End Class