AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Clientes restriccion Forma de pago ,Portal Proveedores Descarga de comprobantes

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-01-23 12:00:19 -07:00
parent b129de0176
commit 11b90a6367
6 changed files with 63 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
CRM/EmpresaCRM.aspx.cs
View File

@@ -292,10 +292,16 @@ public partial class CRM_EmpresaCRM : ClsPaginas
CargarTiposEventos();
LimitaFechasAcercamiento();
CargaDatos();
if (CveEncuestaCRM > 0)
{
CargaDatosTecnicos();
}
//if( Request["CveEmpresaCRM"] != null)
//{
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;
}

5
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -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

3
PortalProveedor/PortalProveedor.aspx
View File

@@ -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" />

11
PortalProveedor/PortalProveedor.aspx.vb
View File

@@ -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 Path As String = String.Format("{0}{1}{2}{3}", UsuarioActual.Empresa.Ruta, "IE\", Gvr.FCHiddenField("CveIe").Value, ".png")
Dim Gvr As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
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.AppendHeader("Content-disposition", "attachment; filename=comprobante.png")
HttpContext.Current.Response.ContentType = "application/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()

3
Ventas/Clientes.aspx
View File

@@ -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>

34
Ventas/Clientes.aspx.vb
View File

@@ -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