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

Correcion ClsContPaqi MovmientosImpuestos, correcion RH cuentas bancarias, formato Entrada 13

Browse Source
This commit is contained in:
rakcsle
2025-05-05 22:18:34 -07:00
parent 1a462e1da6
commit 563de5b37f
7 changed files with 28 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContPAQi.vb
View File

@@ -584,7 +584,7 @@ Public Class ClsContPAQi
VALUES (@IdMovDev, @RowVersion, @IdPoliza, ISNULL ((SELECT MAX (NumMovto) FROM MovimientosImpuestos WHERE IdPoliza = @IdPoliza), 0) + 1, @IdPersona, 0,YEAR(@FechaMov), MONTH(@FechaMov), @IdCuenta, 0, 1, 0,
@Serie, @Folio, @Referencia, @UUID, 2, 0, 1, @TipoMovimiento, 1, @Impuesto, 2,'', @TasaOCuota, @SubTotal,
@ImpImpuesto, @ImpImpuesto,0, @IVANoAcred, 0, 0, 0, 0, 0, @GuidMov, @GuidMovPadre, 0,
@ImpImpuesto, (@ImpImpuesto + @SubTotal),0, @IVANoAcred, 0, 0, 0, 0, 0, @GuidMov, @GuidMovPadre, 0,
@ConceptoIVA, @SubconceptoIVA, 0, @ProporcionDIOT, @DeducibleDIOT);
EXEC PA_UpdateId 'Id_MovimientoImpuesto';

3
App_Code/ClsInventarios.vb
View File

@@ -94,6 +94,8 @@ Public Class ClsInventarios
Public Property CveOrdenCompra As Integer
Public Property CveOrdenCompraLiga As Integer
Public Property FolioOC As String
Public Property DescripcionOC As String
Public Property CvePS As Integer
Public Property CveEntregaForanea As Integer
Public Property CvePaqueteriaGuia As Integer
@@ -852,6 +854,7 @@ Public Class ClsInventarios
CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero
CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero
FolioOC = dr("FolioOC").ToString
DescripcionOC = dr("DescripcionOC").ToString
FolioInterno = dr("VentaAnticipo").ToString
CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1)
CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").ToString.ToEntero, -1)

16
Compras/PopUpVerFactura.aspx.vb
View File

@@ -2888,6 +2888,7 @@ Partial Class PopUpVerFactura
Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente")
Dim Ruta As String = ""
Dim Supervisor As String = ""
@@ -2911,6 +2912,8 @@ Partial Class PopUpVerFactura
Dim CveMoneda As Integer = ObjInventarios.CveMoneda
Dim FolioVenta As String = ObjInventarios.FolioVenta
Dim FolioOC As String = ObjInventarios.FolioOC
Dim DescripcionOC As String = ObjInventarios.DescripcionOC
Dim FolioInterno As String = ObjInventarios.FolioInterno
Dim CveCliente As Integer = ObjInventarios.CveCliente
@@ -3091,7 +3094,7 @@ Partial Class PopUpVerFactura
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente)
Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente, DescripcionOC:=DescripcionOC)
End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3110,7 +3113,8 @@ Partial Class PopUpVerFactura
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "")
Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "",
Optional DescripcionOC As String = "")
Select Case CveConcepto
@@ -3159,7 +3163,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
End If
If UsuarioActual.CveEmpresa.Contiene(119, 199, 201) Then
If UsuarioActual.CveEmpresa.Contiene(119, 199, 201, 13) Then
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
@@ -3172,12 +3176,16 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
End If
If UsuarioActual.CveEmpresa.Contiene(13) Then
params.Add(New ReportParameter("DescripcionOC", DescripcionOC))
End If
Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN"
If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE"
If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201) Then
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201, 13) Then
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Concepto", ConceptoFormato))
params.Add(New ReportParameter("Almacen", Almacen))

6
Compras/RepComplementoPago.aspx
View File

@@ -136,9 +136,9 @@
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD" GridLines="None" data-sort="true">
<Columns>
<%--0--%>
<asp:HyperLinkField HeaderText="Proveedor" DataTextField="RazonSocial" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" Target="_blank" ItemStyle-Width="30%" />
<asp:HyperLinkField HeaderText="Proveedor" DataTextField="RazonSocial" DataNavigateUrlFields="CveProveedor" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" Target="_blank" />
<%--1--%>
<asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<asp:HyperLinkField HeaderText="SerieFolio" DataTextField="SerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
<%--2--%>
<asp:TemplateField Visible="false" HeaderText="Folio Fiscal">
<ItemTemplate>
@@ -149,7 +149,7 @@
<%--3--%>
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
<%--4--%>
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="100px" />
<%--5--%>
<asp:HyperLinkField HeaderText="Folio" DataTextField="FolioIE" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<%--6--%>

6
Compras/RepComplementoPago.aspx.vb
View File

@@ -105,9 +105,9 @@ Partial Class Compras_RepComplementoPago
GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked
If ChkFolioFiscal.Checked Then
GvDatos.Columns(0).ItemStyle.Width = 15%
'GvDatos.Columns(0).ItemStyle.Width = 15%
Else
GvDatos.Columns(0).ItemStyle.Width = 30%
'GvDatos.Columns(0).ItemStyle.Width = 30%
End If
UpDatos.Update()
@@ -240,7 +240,7 @@ Partial Class Compras_RepComplementoPago
SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatos.ExportToExcelGembox("RepComplementos_" & NowADS().ToShortDateString, UsuarioActual, "Reporte de Complementos Pago de Compras", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

2
RH/Personal.aspx
View File

@@ -5133,7 +5133,7 @@
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" id="div3" runat="server">
<asp:CheckBox ID="ChkEstatusPagoE" runat="server" AutoPostBack="true" OnCheckedChanged="ChkPagoElectronico_CheckedChanged"></asp:CheckBox>
<asp:CheckBox ID="ChkEstatusPagoE" runat="server" ></asp:CheckBox>
<label for="<%= ChkEstatusPagoE.ClientID.ToString()%>">Pago Electronico</label>
</div>
</div>

11
RH/Personal.aspx.vb
View File

@@ -3447,7 +3447,6 @@ Partial Class RH_Personal
Row("CLABE") = TxtCLABECB.Text.Trim
Row("SWIFT") = TxtSWIFT.Text
Row("Plaza") = TxtPlaza.Text
Row("Cuenta") = TxtNumeroSucursal.Text
Row("CIE") = TxtConvenioCIE.Text
Row("Referencia") = TxtReferenciaC.Text
Row("RefCrediProveedor") = TxtRefCrediProveedor.Text
@@ -8455,13 +8454,13 @@ Partial Class RH_Personal
'End Sub
Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
'Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs)
'If ChkEstatusPagoE.Checked Then
' Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia)
'End If
' 'If ChkEstatusPagoE.Checked Then
' ' Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la plataforma", TipoMensaje.MsgAdvertencia)
' 'End If
End Sub
'End Sub
End Class