Clientes restriccion Forma de pago ,Portal Proveedores Descarga de comprobantes

CRM/EmpresaCRM.aspx.cs

@@ -292,10 +292,16 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             CargarTiposEventos();
             LimitaFechasAcercamiento();
             CargaDatos();
-            if (CveEncuestaCRM > 0)
+
-            {
+            //if( Request["CveEmpresaCRM"] != null)
-                CargaDatosTecnicos();
+            //{
-            }
+                if (CveEncuestaCRM > 0)
+                {
+                    CargaDatosTecnicos();
+                }
+           // }
+
+          
             VerificaPermisos();
             CargaClasificaciones();
             DdlPS.setEsWebService(true);
@@ -1476,8 +1482,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         var responseGenericGetDatosTecnicosEmpresaCRM = encuestaService.GetDatosTecnicosEmpresaCRM(new RequestDatosTecnicosEmpresaCRMGet() { CveEmpresa = UsuarioActual.Empresa.CveEmpresa, CveEncuesta = CveEncuestaCRM, CveEncuestaAplicada = CveEncuestaAplicada, CvePregunta = -1 });
         if (responseGenericGetDatosTecnicosEmpresaCRM.IsSuccess)
         {
-            GvDatosTecnicos.DataSource = responseGenericGetDatosTecnicosEmpresaCRM.Result;
+
-            if (responseGenericGetDatosTecnicosEmpresaCRM.Result.Count > 0)
+
+             var DTTemp = responseGenericGetDatosTecnicosEmpresaCRM.Result.ToDataTable();
+            GvDatosTecnicos.DataSource = DTTemp;
+            if (DTTemp.Rows.Count > 0)
             {
                 GvDatosTecnicos.Visible = true;
             }

Contabilidad/RegPrePolizaS.aspx.vb

@@ -3228,6 +3228,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim Bytes As Byte() = Nothing
 
         Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
+        Dim ConceptoPoliza As String = TxtConcepto.Text
 
 
         Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3257,6 +3258,10 @@ Partial Class ContabilidadC_RegPrePolizaS
             params.Add(New ReportParameter("CodigoPostal", ""))
 
             params.Add(New ReportParameter("UsuarioRegistro", TxtUsuarioElaboro.Text))
+            params.Add(New ReportParameter("ConceptoPoliza", ConceptoPoliza))
+
+
+
 
 
             If Logo.Exists Then

PortalProveedor/PortalProveedor.aspx

@@ -325,7 +325,8 @@
                                     </div>
                                     <asp:UpdatePanel runat="server" ID="UpGvBancos" UpdateMode="Conditional">
                                         <ContentTemplate>
-                                            <asp:GridView ID="GvBancos" ViewStateMode="Enabled" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial" CssClass="ScrollAD table table-striped table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
+                                            <asp:GridView ID="GvBancos" ViewStateMode="Enabled" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró Historial" CssClass="ScrollAD table table-striped table-advance table-hover Widthall" 
+                                                Style="text-align: center;" GridLines="None" DataKeyNames="Comprobante" >
                                                 <Columns>
                                                     <asp:BoundField DataField="SerieFolio" HeaderText="Factura" />
                                                     <asp:BoundField DataField="Fecha" DataFormatString="{0:d}" HeaderText="Fecha Venta" />

PortalProveedor/PortalProveedor.aspx.vb

@@ -592,16 +592,17 @@ Partial Class Portal_PortalProveedor
 
 
     Protected Sub GvBancos_comprobante(sender As Object, e As EventArgs)
-        Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
+
-        Dim Path As String = String.Format("{0}{1}{2}{3}", UsuarioActual.Empresa.Ruta, "IE\", Gvr.FCHiddenField("CveIe").Value, ".png")
+        Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Gvr.DataKey("Comprobante"))
+
         Dim Archivo As New System.IO.FileInfo(Path)
 
         If Archivo.Exists Then
             HttpContext.Current.Response.Clear()
             HttpContext.Current.Response.ClearContent()
-            HttpContext.Current.Response.ContentType = "application/png"
+            HttpContext.Current.Response.ContentType = "application/png"
-            HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=comprobante.png")
+            HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
             HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
             HttpContext.Current.Response.TransmitFile(Path)
             'HttpContext.Current.Response.Flush()

Ventas/Clientes.aspx

@@ -1111,7 +1111,8 @@
                                                 </div>
 
                                                 <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:DropDownList ID="DdlMetodoPago33" CssClass="form-control  select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
+                                                    <asp:DropDownList ID="DdlMetodoPago33" CssClass="form-control  select2me" runat="server" Width="250" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPagoSAT" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar" AutoPostBack="true"
+                                                        OnSelectedIndexChanged="DdlMetodoPago33_SelectedIndexChanged" >
                                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                     <label for="<%= DdlMetodoPago33.ClientID.ToString()%>">Método de Pago:</label>

Ventas/Clientes.aspx.vb

@@ -1656,7 +1656,8 @@ Partial Class Clientes
 
                 DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
                 DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
-                DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
+                'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
+                CargaFormaDePago(ObjClientes.CveFormaPago33)
                 If ObjClientes.CveRegimenFiscal > 0 Then DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
 
                 ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
@@ -10583,5 +10584,36 @@ Partial Class Clientes
         UpLineaAdicionalmodal.Update()
 
     End Sub
+
+    Protected Sub DdlMetodoPago33_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        CargaFormaDePago(-1)
+
+    End Sub
+
+    Private Sub CargaFormaDePago(Optional CveFormaPago As Integer = -1)
+
+        DdlFormaPago33.Items.Clear()
+
+        If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
+        Else
+            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
+        End If
+
+        DdlFormaPago33.DataBind()
+
+        If Not DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+            DdlFormaPago33.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        End If
+
+        If CveFormaPago > 0 Then
+            DdlFormaPago33.SelectedValueExist(CveFormaPago)
+        End If
+
+        UpFiscalContable.Update()
+
+    End Sub
+
 End Class