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, 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, @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); @ConceptoIVA, @SubconceptoIVA, 0, @ProporcionDIOT, @DeducibleDIOT);
EXEC PA_UpdateId 'Id_MovimientoImpuesto'; 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 CveOrdenCompra As Integer
Public Property CveOrdenCompraLiga As Integer Public Property CveOrdenCompraLiga As Integer
Public Property FolioOC As String Public Property FolioOC As String
Public Property DescripcionOC As String
Public Property CvePS As Integer Public Property CvePS As Integer
Public Property CveEntregaForanea As Integer Public Property CveEntregaForanea As Integer
Public Property CvePaqueteriaGuia As Integer Public Property CvePaqueteriaGuia As Integer
@@ -852,6 +854,7 @@ Public Class ClsInventarios
CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero
CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero CveOrdenCompraLiga = dr("CveOrdenCompraLiga").ToString.ToEntero
FolioOC = dr("FolioOC").ToString FolioOC = dr("FolioOC").ToString
DescripcionOC = dr("DescripcionOC").ToString
FolioInterno = dr("VentaAnticipo").ToString FolioInterno = dr("VentaAnticipo").ToString
CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1) CveCliente = If(dr("CveCliente").ToString.ToEntero > 0, dr("CveCliente").ToString.ToEntero, -1)
CveClienteSucursal = If(dr("CveClienteSucursal").ToString.ToEntero > 0, dr("CveClienteSucursal").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 CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente") Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente")
Dim Ruta As String = "" Dim Ruta As String = ""
Dim Supervisor As String = "" Dim Supervisor As String = ""
@@ -2911,6 +2912,8 @@ Partial Class PopUpVerFactura
Dim CveMoneda As Integer = ObjInventarios.CveMoneda Dim CveMoneda As Integer = ObjInventarios.CveMoneda
Dim FolioVenta As String = ObjInventarios.FolioVenta Dim FolioVenta As String = ObjInventarios.FolioVenta
Dim FolioOC As String = ObjInventarios.FolioOC Dim FolioOC As String = ObjInventarios.FolioOC
Dim DescripcionOC As String = ObjInventarios.DescripcionOC
Dim FolioInterno As String = ObjInventarios.FolioInterno Dim FolioInterno As String = ObjInventarios.FolioInterno
Dim CveCliente As Integer = ObjInventarios.CveCliente Dim CveCliente As Integer = ObjInventarios.CveCliente
@@ -3091,7 +3094,7 @@ Partial Class PopUpVerFactura
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo, 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 End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera 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, 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, 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 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 Select Case CveConcepto
@@ -3159,7 +3163,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa.Contiene(4, 145) Then If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
End If 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("LogoPath", RutaImagenLogo))
params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
@@ -3172,12 +3176,16 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, ""))) params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
End If End If
If UsuarioActual.CveEmpresa.Contiene(13) Then
params.Add(New ReportParameter("DescripcionOC", DescripcionOC))
End If
Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN" Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN"
If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE" If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE"
If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL" If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH '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("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Concepto", ConceptoFormato)) params.Add(New ReportParameter("Concepto", ConceptoFormato))
params.Add(New ReportParameter("Almacen", Almacen)) 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"> <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> <Columns>
<%--0--%> <%--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--%> <%--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--%> <%--2--%>
<asp:TemplateField Visible="false" HeaderText="Folio Fiscal"> <asp:TemplateField Visible="false" HeaderText="Folio Fiscal">
<ItemTemplate> <ItemTemplate>
@@ -149,7 +149,7 @@
<%--3--%> <%--3--%>
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" />
<%--4--%> <%--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--%> <%--5--%>
<asp:HyperLinkField HeaderText="Folio" DataTextField="FolioIE" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" /> <asp:HyperLinkField HeaderText="Folio" DataTextField="FolioIE" DataNavigateUrlFields="CveIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" Target="_blank" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" />
<%--6--%> <%--6--%>

6
Compras/RepComplementoPago.aspx.vb
View File

@@ -105,9 +105,9 @@ Partial Class Compras_RepComplementoPago
GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked GvDatos.Columns(2).Visible = ChkFolioFiscal.Checked
If ChkFolioFiscal.Checked Then If ChkFolioFiscal.Checked Then
GvDatos.Columns(0).ItemStyle.Width = 15% 'GvDatos.Columns(0).ItemStyle.Width = 15%
Else Else
GvDatos.Columns(0).ItemStyle.Width = 30% 'GvDatos.Columns(0).ItemStyle.Width = 30%
End If End If
UpDatos.Update() UpDatos.Update()
@@ -240,7 +240,7 @@ Partial Class Compras_RepComplementoPago
SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto) 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 End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

2
RH/Personal.aspx
View File

@@ -5133,7 +5133,7 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" id="div3" runat="server"> <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> <label for="<%= ChkEstatusPagoE.ClientID.ToString()%>">Pago Electronico</label>
</div> </div>
</div> </div>

11
RH/Personal.aspx.vb
View File

@@ -3447,7 +3447,6 @@ Partial Class RH_Personal
Row("CLABE") = TxtCLABECB.Text.Trim Row("CLABE") = TxtCLABECB.Text.Trim
Row("SWIFT") = TxtSWIFT.Text Row("SWIFT") = TxtSWIFT.Text
Row("Plaza") = TxtPlaza.Text Row("Plaza") = TxtPlaza.Text
Row("Cuenta") = TxtNumeroSucursal.Text
Row("CIE") = TxtConvenioCIE.Text Row("CIE") = TxtConvenioCIE.Text
Row("Referencia") = TxtReferenciaC.Text Row("Referencia") = TxtReferenciaC.Text
Row("RefCrediProveedor") = TxtRefCrediProveedor.Text Row("RefCrediProveedor") = TxtRefCrediProveedor.Text
@@ -8455,13 +8454,13 @@ Partial Class RH_Personal
'End Sub '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 ' '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) ' ' 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 If
End Sub 'End Sub
End Class End Class