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

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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-04-18 20:21:05 -07:00
parent 2db9d3828a 2c3bc02ab6
commit 6c8b6f24c3
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