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

Parametros de cliente regimen fiscal para stimulsoft,productos relacionados web service E141, cambios visuales en prestamo personal, correciones en ventas, precio de usados en devolucion en base al documento original, permiso para regenerar pdf

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-04-16 12:14:31 -07:00
parent 57ad839f38
commit 802f450ea0
4 changed files with 24 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsPaginas.vb
View File

@@ -6326,6 +6326,10 @@ Public Class ClsPaginas
Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(Vta.DtDocumentosRelacionados IsNot Nothing, Vta.DtDocumentosRelacionados, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
lrds.Add(rds4)
If UsuarioActual.Empresa.Funcionalidad(707) = "1" OrElse UsarStimulsoft Then
If Vta.Cliente.CodigoRegimenFiscal.ToString.Length > 0 Then
params.Add(New ReportParameter("ClienteRegimenFiscal", $"{Vta.Cliente.CodigoRegimenFiscal}-{Vta.Cliente.RegimenFiscal}"))
End If
If Vta.DtDocumentosRelacionados IsNot Nothing AndAlso Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
params.Add(New ReportParameter("TieneDocumentosRelacionados", "True"))
Else

3
Ashx/E141.ashx
View File

@@ -1851,7 +1851,8 @@ Public Class E141 : Implements IHttpHandler
New JProperty("short_description", ""),
New JProperty("description", ""),
New JProperty("currency", 1),
New JProperty("promo_price", RowPS("PrecioPromocion"))
New JProperty("promo_price", RowPS("PrecioPromocion")),
New JProperty("product_related", RowPS("CodigosRelacionados"))
)
ArrayPS.Add(producto)

16
Bancos/PrestamoPersonal.aspx
View File

@@ -115,18 +115,18 @@
</div>
<div class="col-md-4" id="DivMovtoPermanente" runat="server" visible="false">
<div class="row">
<div class="col-md-3">
<div class="col-md-4 control-label">
<asp:Label runat="server" Text="Concep. Nom:"></asp:Label>
</div>
<div class="col-md-9">
<div class="col-md-8">
<asp:DropDownList ID="DdlConcepto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="row">
<div class="col-md-3">
<div class="col-md-4 control-label">
<asp:Label runat="server" Text="Tipo Desc.:"></asp:Label>
</div>
<div class="col-md-9">
<div class="col-md-8">
<asp:DropDownList ID="DdlTipoDescto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardarPrestamo">
<asp:ListItem Value="-1" Text="Seleccione" Enabled="true"></asp:ListItem>
<%-- <asp:ListItem Value="1" Text="Importe"></asp:ListItem>
@@ -137,18 +137,18 @@
</div>
</div>
<div class="row" id="DivImportePrestamo" runat="server" visible="false">
<div class="col-md-3">
<div class="col-md-4 control-label">
<asp:Label runat="server" Text="Importe prestamo:"></asp:Label>
</div>
<div class="col-md-9">
<div class="col-md-8">
<asp:Label runat="server" Text="" ID="LblPrestamo" ClientIDMode="Static"></asp:Label>
</div>
</div>
<div class="row" id="DivValor" runat="server">
<div class="col-md-3">
<div class="col-md-4 control-label">
<asp:Label runat="server" Text="Valor:"></asp:Label>
</div>
<div class="col-md-9">
<div class="col-md-8">
<asp:TextBox ID="TxtValor" CssClass="form-control input-sm" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTVValor" runat="server" TargetControlID="TxtValor" FilterType="Custom, Numbers" ValidChars="+-.," />
<asp:RequiredFieldValidator ID="RfvMontoLimite" runat="server" Display="None" ControlToValidate="TxtValor" CssClass="help-block errorimput"

14
Ventas/Ventas.aspx.vb
View File

@@ -9365,10 +9365,13 @@ Partial Class Ventas
If (Archivo.Exists Or Archivo2.Exists Or ArchivoSti.Exists Or ArchivoSti2.Exists Or ArchivoSti3.Exists) And IfNull(CveVenta, 0).ToString().ToEntero() > 0 Then
HplDownPDF.Visible = True
HplDownPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))
If UsuarioActual.CveRol = 1 Then
If UsuarioActual.TienePermisoProceso(359) Then
HplRenerarPDF.Visible = True
HplRenerarPDF.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&REGENERAR=1", CveVenta)))
End If
If UsuarioActual.CveRol = 1 Then
HplImprimirPDFStimulsoft.Visible = True
HplImprimirPDFStimulsoft.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=0&STIMULSOFT=1", CveVenta)))
End If
@@ -25278,9 +25281,9 @@ Partial Class Ventas
ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion
'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then
' ChkDevAlm.Checked = True
'End If
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Rem", "Dev") Then
ChkDevAlm.Checked = True
End If
If UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso ObjFacturaCancelacion.TipoDocto = "Rem" Then
ChkDevAlm.Checked = True
@@ -33429,6 +33432,9 @@ Partial Class Ventas
Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal
If DtUsadosDevolucion IsNot Nothing Then
Cargo = DtUsadosDevolucion.FiltroPrimeroValor("PU", $"CvePS = {CvePsTemp}").ToString().ToDecimal()
End If
If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then