From ef8288854cc7f8ca918af669012281dc84fe3ec2 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 1 Feb 2023 19:32:44 -0700 Subject: [PATCH 01/38] EMD. Quitar leyenda de cfdi version en la parte inferior --- Empresas/13/Formatos/Factura.rdlc | 44 +------------------------------ 1 file changed, 1 insertion(+), 43 deletions(-) diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc index c5b2ba6c6..a096913df 100644 --- a/Empresas/13/Formatos/Factura.rdlc +++ b/Empresas/13/Formatos/Factura.rdlc @@ -3479,50 +3479,8 @@ 2pt - - true - true - - - - - VERSION - - - - =Parameters!CFDIVersion.Value - - - - - - - Textbox5 - 14.03578cm - 16.60468cm - 0.65292cm - 3.68516cm - 50 - - - 2pt - 2pt - 2pt - 2pt - - - 14.6887cm + 14.00096cm - - - - - - - - Cliente: - - - - =Parameters!ClienteCodigo.Value - - - - - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Calle: - - - - - - - - =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,"")) - - - - - - - - - Colonia: - - - - - - - - =Parameters!ClienteColonia.Value - - - - - - - - - Ciudad: - - - - =Parameters!ClienteCiudad.Value - - - - - - - - Estado: - - - - - - - - =Parameters!ClienteEstado.Value - - - - - - - - - Municipio y/o Delegación: - - - - =Parameters!ClienteMunicipio.Value - - - - - - - - - - - - - Pais: - - - - =Parameters!ClientePais.Value - - - - - - - - CP: - - - - - - - - =Parameters!ClienteCP.Value - - - - - - - - - Reg.fiscal: - - - - - - - - =Parameters!RegimenFiscalCodigo.Value - - - - - - - Textbox2 - 0.05159in - 4.36025cm - 1.46225in - 3.20861in - - - 2pt - 2pt - 2pt - 2pt - - - - - - true - true - - - - - "Este documento es una representación impresa de un CFDI" - - - - - - - - - Folio fiscal: - - - - =Parameters!FolioFiscal.Value - - - - - - - =Parameters!FechaCertificacion.Value - - - - Número de serie del Certificado de Sello Digital: - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - External - =Parameters!QR.Value - FitProportional - 0.0444in - 6.56374in - 1.13974in - 1.53682in - 1 - - - - - - true - 3.82538in - 0.05395in - 1.21305in - 8.22763in - 1 - - - - - - true - true - - - - - Domicilio fiscal: - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - = IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO") - - - - - - - - - - - - - Serie: - - - - =Parameters!Serie.Value - - - - - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - - - Fecha: - - - - - - - - =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") - - - - - - - - - Moneda: - - - - - - - - =Parameters!MonedaAbreviatura.Value - - - - - - - - - Vencimiento - - - - : - - - - =Parameters!Vencimiento.Value - - - - - - - - - - - - - Forma de pago: - - - - =Parameters!FormaPago.Value - - - - - - - - - Método de pago: - - - - =Parameters!MetodoPago.Value - - - - - - - - - Uso CFDI: - - - - =Parameters!UsoCFDI.Value - - - - - - - - - Régimen fiscal: - - - - Regimen General de Ley Personas Morales - - - - - - - - - - - Textbox4 - 0.05022in - 5.03983in - 1.62345in - 3.24175in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en - - - - : - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - - - BBD021220APA - - - - - - - - - - - - - - - - - - Vendedor: - - - - =Parameters!VendedorNombre.Value - - - - - - - Textbox40 - 4.25cm - 13.31398cm - 1.42163cm - 7.72123cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 0.54927in - - - 0.826in - - - 0.8527in - - - 3.41945in - - - 0.57354in - - - 0.59047in - - - 0.61967in - - - 0.79194in - - - - - 0.19645in - - - - - true - true - - - - - CANT - - - - - - - Textbox22 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UNIDAD - - - - - - - Textbox15 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CLAVE SAT - - - - - - - Textbox29 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PU - - - - - - - Textbox3 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESC. - - - - - - - Textbox8 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IVA - - - - - - - Textbox2 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TOTAL - - - - - - - Textbox1 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =(Fields!UM.Value & "-" & Fields!UnidadMedida.Value) - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!SATClaveProdServ.Value - - - - - - - SATClaveProdServ - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!ImporteIVA.Value - - - - - - - ImporteIVA - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 2.25503in - 0.05854in - 0.34081in - 8.22304in - 5 - - - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 3.05676in - 2.30237in - 0.18861in - 5.97921in - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.99824cm - - - - - 0.48004cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.93858cm - - - true - true - - - - - =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - DataSet1 - 6.99203cm - 15.09838cm - 0.48004cm - 5.93682cm - 12 - - - - - - - - true - true - - - - - CFDI Relacionados - - - - - - - Textbox5 - 0.14926cm - 0.07193cm - 0.54004cm - 20.7077cm - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Tipo Relación: - - - - - - - Textbox29 - 0.83025cm - 4.78817cm - 0.41981cm - 5.31841cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!TipoRelacionTexto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.42456cm - - - 2.05585cm - - - 3.03631cm - - - 7.7847cm - - - - - 0.44125cm - - - - - true - true - - - - - Folio - - - - - - - Textbox10 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Fecha - - - - - - - Textbox12 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Importe - - - - - - - Textbox21 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Folio Fiscal - - - - - - - Textbox11 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.41479cm - - - - - true - true - - - - - =Fields!SerieFolio.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Fecha.Value - - - - - - - Fecha - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!FolioFiscal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet4 - 1.39643cm - 3.28643cm - 0.85604cm - 15.30142cm - 3 - - - - - - true - true - - - - - VERSION 4.0 - - - - - - - Textbox5 - 2.32303cm - 17.39754cm - 0.6cm - 3.32021cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - true - 14.89676cm - 0.13702cm - 2.97096cm - 20.89818cm - 13 - - =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) - - - - - - - - - - 0.78719in - - - 0.58129in - - - 0.71694in - - - - - 0.19645in - - - - - true - true - - - - - IMPUESTO - - - - - - - Textbox22 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TASA - - - - - - - Textbox15 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IMPORTE - - - - - - - Textbox29 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Impuesto.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!tasa.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - After - - - - - - - DataSet3 - 2.75704in - 0.05854in - 0.34081in - 2.08542in - 14 - - - - - - true - true - - - - - "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA. - - - - - - - - - TODA DEVOLUCIÓN NO REALIZADA EL DÍA DE LA COMPRA CAUSARÁ EL 10% DE CARGO" - - - - - - - Textbox1 - 8.39473cm - 1.07794cm - 20.85477cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - FitProportional - 0.12756cm - 0.15969cm - 2.38455cm - 3.48217cm - 16 - - - - - - true - true - - - - - Banco: - - - - BBVA BANCOMER SA - - - - - - - 0160660639 - - - - - - - 012760001606606397 - - - - - - - pagos@bdhbaterias.com - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 14.16139cm - 14.38124cm - 0cm - 6.65396cm - 18 - - - - - - true - true - - - - - Nombre - - - - - - - Textbox39 - 14.33778cm - 14.38124cm - 0.47784cm - 6.65396cm - 19 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Recibí Producto - - - - - - - Textbox38 - 13.25486cm - 14.38124cm - 0.4148cm - 6.65396cm - 20 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - BDH - - - - Baterias Distribuciones de Hermosillo SA de CV - - - - - - - Textbox16 - 2.16641cm - 0.13011cm - 1.21002cm - 4.23014cm - 21 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - 20.4cm - - - - - 5cm - - - - - - - true - true - - - - - Serie: - - - - - - - - =Parameters!Serie.Value - - - - - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - Textbox81 - 0.01788in - 4.70028in - 0.18682in - 2.8585in - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - Fit - 0.23694in - 1.40934cm - 2.57947cm - 1 - - - - - - true - true - - - - - - - - - Cliente: - - - - =Parameters!ClienteCodigo.Value - - - - - - - - - =Parameters!ClienteNombre.Value - - - - - - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Domicilio: - - - - =Parameters!ClienteDireccion.Value - - - - , - - - - =Parameters!ClienteCiudad.Value - - - - , - - - - =Parameters!ClienteEstado.Value - - - - - - - Textbox36 - 0.55521cm - 3.35769cm - 0.85414cm - 14.87889cm - 2 - - - 2pt - 2pt - 2pt - 2pt - - - - 1.44462cm - 0cm - 20.4cm - 3 - - - - - - true - true - - - - - POR ESTE - - - - PAGARÉ - - - - PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE - - - - BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV - - - - , EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, LA CANTIDAD DE - - - - $ - - - - - - - - =Parameters!Total.Value - - - - *** - - - - SON - - - - =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) - - - - *** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU VENCIMIENTO - - - - =Parameters!Vencimiento.Value - - - - , DE NO PAGARSE CAUSARÍA UN - - - - INTERÉS MORATORIO - - - - DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO. - - - - - - - 4.51022cm - 6.8587cm - 0cm - 6.65396cm - 5 - - - - - - true - true - - - - - ACEPTO (AMOS) DE CONFORMIDAD - - - - - - - Textbox39 - 4.43261cm - 6.8587cm - 0.46771cm - 6.65396cm - 6 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Obligado - - - - - - - Textbox38 - 3.82594cm - 6.8587cm - 0.38834cm - 6.65396cm - 7 - - - 2pt - 2pt - 2pt - 2pt - - - - - Start - - true - - =iif(Parameters!AplicaPagare.Value="0",True,False) - - - - - - - - - - - - - - - - - - - - - - DsOC - 1.3095cm - 0.26694cm - 5cm - 20.4cm - - - 10pt - - - - 0.85886cm - 0.45412cm - 0cm - 20.17719cm - 1 - - - - - - Embedded - TijerasRedimencionada - FitProportional - 0.33044cm - 0.75436cm - 1.2769cm - 2 - - - - - - true - 18.18344cm - 6.3095cm - 21.01663cm - 22 - - - - - - 24.49294cm - - - - - 21.1673cm - - - 0.5327cm - true - true - - - true - true - - - - - Fecha Impresión: - - - - =Parameters!FechaImpresion.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - ="Página " & Globals.PageNumber & " de " & Globals.TotalPages - - - - - - - Textbox35 - 0.11289cm - 18.41665cm - 0.41981cm - 2.5cm - 1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - + + + + + + + + Cliente: + + + + =Parameters!ClienteCodigo.Value + + + + - + + + + =Parameters!ClienteNombre.Value + + + + + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Calle: + + + + + + + + =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,"")) + + + + + + + + + Colonia: + + + + + + + + =Parameters!ClienteColonia.Value + + + + + + + + + Ciudad: + + + + =Parameters!ClienteCiudad.Value + + + + + + + + Estado: + + + + + + + + =Parameters!ClienteEstado.Value + + + + + + + + + Municipio y/o Delegación: + + + + =Parameters!ClienteMunicipio.Value + + + + + + + + + + + + + Pais: + + + + =Parameters!ClientePais.Value + + + + + + + + CP: + + + + + + + + =Parameters!ClienteCP.Value + + + + + + + + + Reg.fiscal: + + + + + + + + =Parameters!RegimenFiscalCodigo.Value + + + + + + + Textbox2 + 0.05159in + 4.36025cm + 1.46225in + 3.20861in + + + 2pt + 2pt + 2pt + 2pt + + + + + + true + true + + + + + "Este documento es una representación impresa de un CFDI" + + + + + + + + + Folio fiscal: + + + + =Parameters!FolioFiscal.Value + + + + + + + =Parameters!FechaCertificacion.Value + + + + Número de serie del Certificado de Sello Digital: + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!QR.Value + FitProportional + 0.0444in + 6.56374in + 1.13974in + 1.53682in + 1 + + + + + + true + 3.82538in + 0.05395in + 1.21305in + 8.22763in + 1 + + + + + + true + true + + + + + Domicilio fiscal: + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + = IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO") + + + + + + + + + + + + + Serie: + + + + =Parameters!Serie.Value + + + + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Fecha: + + + + + + + + =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") + + + + + + + + + Moneda: + + + + + + + + =Parameters!MonedaAbreviatura.Value + + + + + + + + + Vencimiento + + + + : + + + + =Parameters!Vencimiento.Value + + + + + + + + + + + + + Forma de pago: + + + + =Parameters!FormaPago.Value + + + + + + + + + Método de pago: + + + + =Parameters!MetodoPago.Value + + + + + + + + + Uso CFDI: + + + + =Parameters!UsoCFDI.Value + + + + + + + + + Régimen fiscal: + + + + Regimen General de Ley Personas Morales + + + + + + + + + + + Textbox4 + 0.05022in + 5.03983in + 1.62345in + 3.24175in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en + + + + : + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + + + BBD021220APA + + + + + + + + + + + + + + + + + + Vendedor: + + + + =Parameters!VendedorNombre.Value + + + + + + + Textbox40 + 4.25cm + 13.31398cm + 1.42163cm + 7.72123cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.54927in + + + 0.74976in + + + 0.76555in + + + 3.107in + + + 0.63292in + + + 0.57354in + + + 0.59047in + + + 0.45526in + + + 0.79194in + + + + + 0.19645in + + + + + true + true + + + + + CANT + + + + + + + Textbox22 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UNIDAD + + + + + + + Textbox15 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CLAVE SAT + + + + + + + Textbox29 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Obj. Imp. + + + + + + + Textbox22 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PU + + + + + + + Textbox3 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESC. + + + + + + + Textbox8 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IVA + + + + + + + Textbox2 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TOTAL + + + + + + + Textbox1 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.167in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =(Fields!UM.Value & "-" & Fields!UnidadMedida.Value) + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SATClaveProdServ.Value + + + + + + + SATClaveProdServ + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!CodigoObjetoImpuesto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!ImporteIVA.Value + + + + + + + ImporteIVA + + + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + true + + + + + =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value + Fields!ImporteIVA.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.25503in + 0.05854in + 0.36345in + 8.21572in + 5 + + + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 3.05676in + 2.30237in + 0.18861in + 5.97921in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.99824cm + + + + + 0.48004cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.93858cm + + + true + true + + + + + =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 6.99203cm + 15.09838cm + 0.48004cm + 5.93682cm + 12 + + + + + + + + true + true + + + + + CFDI Relacionados + + + + + + + Textbox5 + 0.14926cm + 0.07193cm + 0.54004cm + 20.7077cm + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Tipo Relación: + + + + + + + Textbox29 + 0.83025cm + 4.78817cm + 0.41981cm + 5.31841cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!TipoRelacionTexto.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.42456cm + + + 2.05585cm + + + 3.03631cm + + + 7.7847cm + + + + + 0.44125cm + + + + + true + true + + + + + Folio + + + + + + + Textbox10 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox21 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Folio Fiscal + + + + + + + Textbox11 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.41479cm + + + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!FolioFiscal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet4 + 1.39643cm + 3.28643cm + 0.85604cm + 15.30142cm + 3 + + + + + + true + true + + + + + VERSION 4.0 + + + + + + + Textbox5 + 2.32303cm + 17.39754cm + 0.6cm + 3.32021cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 14.89676cm + 0.13702cm + 2.97096cm + 20.89818cm + 13 + + =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) + + + + + + + + + + 0.78719in + + + 0.58129in + + + 0.71694in + + + + + 0.19645in + + + + + true + true + + + + + IMPUESTO + + + + + + + Textbox22 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TASA + + + + + + + Textbox15 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IMPORTE + + + + + + + Textbox29 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Impuesto.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!tasa.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet3 + 2.75704in + 0.05854in + 0.34081in + 2.08542in + 14 + + + + + + true + true + + + + + "REVISAR SU FACTURA Y SUS PRODUCTOS AL MOMENTO DE RECIBIRLAS, YA QUE NO SE REALIZARAN CAMBIOS EN FACTURA. + + + + + + + + + TODA DEVOLUCIÓN NO REALIZADA EL DÍA DE LA COMPRA CAUSARÁ EL 10% DE CARGO" + + + + + + + Textbox1 + 8.39473cm + 1.07794cm + 20.85477cm + 15 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + FitProportional + 0.12756cm + 0.15969cm + 2.38455cm + 3.48217cm + 16 + + + + + + true + true + + + + + Banco: + + + + BBVA BANCOMER SA + + + + + + + 0160660639 + + + + + + + 012760001606606397 + + + + + + + pagos@bdhbaterias.com + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 14.16139cm + 14.38124cm + 0cm + 6.65396cm + 18 + + + + + + true + true + + + + + Nombre + + + + + + + Textbox39 + 14.33778cm + 14.38124cm + 0.47784cm + 6.65396cm + 19 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Recibí Producto + + + + + + + Textbox38 + 13.25486cm + 14.38124cm + 0.4148cm + 6.65396cm + 20 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + BDH + + + + Baterias Distribuciones de Hermosillo SA de CV + + + + + + + Textbox16 + 2.16641cm + 0.13011cm + 1.21002cm + 4.23014cm + 21 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 20.4cm + + + + + 5cm + + + + + + + true + true + + + + + Serie: + + + + + + + + =Parameters!Serie.Value + + + + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + Textbox81 + 0.01788in + 4.70028in + 0.18682in + 2.8585in + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + Fit + 0.23694in + 1.40934cm + 2.57947cm + 1 + + + + + + true + true + + + + + + + + + Cliente: + + + + =Parameters!ClienteCodigo.Value + + + + - + + + + =Parameters!ClienteNombre.Value + + + + - + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Domicilio: + + + + =Parameters!ClienteDireccion.Value + + + + , + + + + =Parameters!ClienteCiudad.Value + + + + , + + + + =Parameters!ClienteEstado.Value + + + + + + + Textbox36 + 0.55521cm + 3.35769cm + 0.85414cm + 14.87889cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 1.44462cm + 0cm + 20.4cm + 3 + + + + + + true + true + + + + + POR ESTE + + + + PAGARÉ + + + + PROMETO(EMOS), Y ME (NOS) OBLIGO (AMOS) A PAGAR INCONDICIONALMENTE A LA ORDEN DE + + + + BDH BATERIAS DISTRIBUCIONES DE HERMOSILLO SA DE CV + + + + , EN LA CIUDAD DE HERMOSILLO, SONORA, O CUALQUIER OTRA CIUDAD QUE DESIGNE EL TITULAR DEL DOCUMENTO, LA CANTIDAD DE + + + + $ + + + + + + + + =Parameters!Total.Value + + + + *** + + + + SON + + + + =Microsoft.VisualBasic.Strings.UCase(Parameters!ImporteLetra.Value) + + + + *** VALOR QUE RECONOZCO (EMOS) ADEUDARLE OBLIGÁNDOME (NOS) A CUBRIR A SU VENCIMIENTO + + + + =Parameters!Vencimiento.Value + + + + , DE NO PAGARSE CAUSARÍA UN + + + + INTERÉS MORATORIO + + + + DEL 10% POR CIENTO MENSUAL, POR EL TIEMPO QUE PERMANEZCA INSOLUTO EL ADEUDO EXISTENTE, QUEDANDO EXPRESAMENTE CONVENIDO QUE LA FALTA DE PAGO OPORTUNO OCASIONA AL DEUDOR GASTOS DE COBRO JUDICIALES O EXTRAJUDICIALES Y LOS QUE SE OCASIONEN, RENUNCIANDO EL DEUDOR AL FUERO DE SU DOMICILIO QUE PUDIERA CORRESPONDERLE, ESTE PAGARÉ ES MERCANTIL Y ESTÁ PROTEGIDO POR LA LEY GENERAL DE TÍTULOS Y OPERACIONES DE CRÉDITO. + + + + + + + 4.51022cm + 6.8587cm + 0cm + 6.65396cm + 5 + + + + + + true + true + + + + + ACEPTO (AMOS) DE CONFORMIDAD + + + + + + + Textbox39 + 4.43261cm + 6.8587cm + 0.46771cm + 6.65396cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Obligado + + + + + + + Textbox38 + 3.82594cm + 6.8587cm + 0.38834cm + 6.65396cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + + Start + + true + + =iif(Parameters!AplicaPagare.Value="0",True,False) + + + + + + + + + + + + + + + + + + + + + + DsOC + 1.3095cm + 0.26694cm + 5cm + 20.4cm + + + 10pt + + + + 0.85886cm + 0.45412cm + 0cm + 20.17719cm + 1 + + + + + + Embedded + TijerasRedimencionada + FitProportional + 0.33044cm + 0.75436cm + 1.2769cm + 2 + + + + + + true + 18.18344cm + 6.3095cm + 21.01663cm + 22 + + + + + + 24.49294cm + + + + + 21.03521cm + + + 0.5327cm + true + true + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.11289cm + 18.41665cm + 0.41981cm + 2.5cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + - - - - =Parameters!CP.Value - - - - - Textbox10 0.53358in @@ -5423,6 +5408,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 45514ef77..9c3b88a19 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -315,10 +315,10 @@ Partial Class Ventas_Promociones ButBtnEliminar.Visible = True - If CvePromocionPadre > 0 Then - BtnGuardar.Enabled = False - ButBtnEliminar.Enabled = False - End If + 'If CvePromocionPadre > 0 Then + ' BtnGuardar.Enabled = False + ' ButBtnEliminar.Enabled = False + 'End If ObjVentas.Dispose() End Sub From dcfc1b273354adfb4d6545a5df8370b31082a744 Mon Sep 17 00:00:00 2001 From: MLopez Date: Thu, 9 Feb 2023 19:47:36 -0700 Subject: [PATCH 26/38] =?UTF-8?q?Fix=20error=20compilaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Clientes.aspx.vb | 2 -- 1 file changed, 2 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index bd06ab0dd..ff59d73be 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1301,7 +1301,6 @@ Partial Class Clientes Private Sub CargaCombos() - CargaSubProyectoss() CargaMetodosPago() CargaPrecioLista() CargaVendedores() @@ -1504,7 +1503,6 @@ Partial Class Clientes ' CargaDocs() CargaCombos() CargaDocumentacionCliente() - CargaSubProyectosSuscursales() 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() From a24bc5d0861b5482d5ac770ea4fa62289675b44c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Feb 2023 09:32:54 -0700 Subject: [PATCH 27/38] - --- Nomina/FiniquitoOld.aspx | 516 ------------------------------------ Nomina/FiniquitoOld.aspx.cs | 515 ----------------------------------- Nomina/FiniquitoOld.aspx.vb | 462 -------------------------------- 3 files changed, 1493 deletions(-) delete mode 100644 Nomina/FiniquitoOld.aspx delete mode 100644 Nomina/FiniquitoOld.aspx.cs delete mode 100644 Nomina/FiniquitoOld.aspx.vb diff --git a/Nomina/FiniquitoOld.aspx b/Nomina/FiniquitoOld.aspx deleted file mode 100644 index df6cee227..000000000 --- a/Nomina/FiniquitoOld.aspx +++ /dev/null @@ -1,516 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="FiniquitoOld.aspx.cs" Inherits="Nomina_Finiquito" %> - - - - - - - - Finiquito - - - - - - - -
  • - Cambiar Empleado
    • -
  • - ReCalcular
    • -
  • - done_allAutorizar
    • -
  • - Timbrar
    • -
  • - Formato Renuncia
    • -     -     -     - - - - - - -
    -
    - -
    -
    -
    - - Datos del Empleado -
    -
    - - -
    -
    -
    -
    -
    Empleado:
    -
    - -
    -
    -
    -
    Estatus
    -
    - -
    -
    -
    -
    Motivo Baja
    -
    - -
    -
    -
    -
    Fecha Baja
    -
    - -
    -
    -
    -
    Perido Finiquito
    -
    - -
    -
    -
    -
    -
    - -
    - - - - - -
    - -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -
    -     -     - - -
    - -
    -
    -
    -
    -
    $
    -
    -
    -
    Aguinaldo ejercicio completo
    -
    -
    -
    -
    -
    $
    -
    -
    -
    Aguinaldo
    -
    -
    -
    -
    -
    -
    -
    -
    Aguinaldo Pagado
    -
    -
    -
    -
    -
    -
    -
    -
    Aguinaldo por pagar
    -
    -
    -
    -
    -
    -
    -
    -
    -
    -
    Dias Ejercicio
    -
    -
    -
    -
    -
    -
    -
    -
    Dias Laborados
    -
    -
    -
    -
    -
    -
    -
    -
    Dias pago Aguinaldo
    -
    -
    -
    -
    - -
    -     -     - - -
    - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    - -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    - - -
    -
    -
    -
    -
    -     -     -     - - - - - -     -     -     - - <%--" PercepcionesDeducciones "--%> - - diff --git a/Nomina/FiniquitoOld.aspx.cs b/Nomina/FiniquitoOld.aspx.cs deleted file mode 100644 index 95eeedff3..000000000 --- a/Nomina/FiniquitoOld.aspx.cs +++ /dev/null @@ -1,515 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Linq; -using Microsoft.VisualBasic; -using System.Data; -using Extensiones; -using System.Web.UI.WebControls; - -partial class Nomina_Finiquito : ClsPaginas -{ - private class NConcepto - { - //Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD - - - - public string NoConceptoP { get; set; } - public string ConceptoP { get; set; } - public string LabelValorP { get; set; } - public int CveConceptoP { get; set; } - public double ImporteP { get; set; } - public double ValorP { get; set; } - public int EstatusP { get; set; } - public bool isEditedP { get; set; } - - - public string NoConceptoD { get; set; } - public string ConceptoD { get; set; } - public string LabelValorD { get; set; } - public int CveConceptoD { get; set; } - public double ImporteD { get; set; } - public double ValorD { get; set; } - public int EstatusD { get; set; } - public bool isEditedD { get; set; } - } - - private class ConceptosPersonal - { - public ConceptosPersonal() - { - Concepto = ""; - ConceptoD = ""; - CveConcepto = 0; - CveConceptoD = 0; - Estatus = 0; - Estatus = 0; - } - public string Concepto { get; set; } - public int CveConcepto { get; set; } - public decimal Importe { get; set; } - public int Estatus { get; set; } - - public string ConceptoD { get; set; } - public int CveConceptoD { get; set; } - public decimal ImporteD { get; set; } - public int EstatusD { get; set; } - } - #region Propiedades - private int CvePersonal - { - get { return ViewState["CvePersonal"] != null ? ViewState["CvePersonal"].ToString().ToEntero() : 0; } - set { ViewState["CvePersonal"] = value; } - } - private int CveTipoPeriodo - { - get { return ViewState["CveTipoPeriodo"] != null ? ViewState["CveTipoPeriodo"].ToString().ToEntero() : 0; } - set - { - ViewState["CveTipoPeriodo"] = value; - } - } - private int CvePeriodoFiniquito - { - get { return ViewState["CvePeriodoFiniquito"] != null ? ViewState["CvePeriodoFiniquito"].ToString().ToEntero() : 0; } - set { ViewState["CvePeriodoFiniquito"] = value; } - } - - private int GCEstatus - { - get { return ViewState["GCEstatus"] != null ? ViewState["GCEstatus"].ToString().ToEntero() : 0; } - set { ViewState["GCEstatus"] = value; } - } - private int GCCveConcepto - { - get { return ViewState["GCCveConcepto"] != null ? ViewState["GCCveConcepto"].ToString().ToEntero() : 0; } - set { ViewState["GCCveConcepto"] = value; } - } - private decimal GCImporte - { - get { return ViewState["GCImporte"] != null ? ViewState["GCImporte"].ToString().ToDecimal() : 0; } - set { ViewState["GCImporte"] = value; } - } - - - private DataTable DTConceptosPersonal - { - get { return ViewState["DTConceptosPersonal"] != null ? (DataTable)ViewState["DTConceptosPersonal"] : null; } - set { ViewState["DTConceptosPersonal"] = value; } - } - private DataTable DTConceptos - { - get { return ViewState["DTConceptos"] != null ? (DataTable)ViewState["DTConceptos"] : null; } - set { ViewState["DTConceptos"] = value; } - } - private bool esLiquidacion - { - get { return ViewState["esLiquidacion"] != null ? System.Convert.ToBoolean(ViewState["esLiquidacion"]) : false; } - set { ViewState["esLiquidacion"] = value; } - } - #endregion - - private List ConceptsPersonas - { - get - { - List listaconceptos = new List(); - decimal TotalP = 0; - decimal TotalD = 0; - if ((!Information.IsNothing(DTConceptosPersonal) && DTConceptosPersonal.Rows.Count > 0)) - { - DataTable dtP = DTConceptosPersonal.FiltraParametros("Tipo=1"); - DataTable dtD = DTConceptosPersonal.FiltraParametros("Tipo=2"); - var noP = dtP.Rows.Count; - var noD = dtD.Rows.Count; - var max = noP > noD ? noP : noD; - TotalP = dtP.SUM("Importe").ToString().ToDecimal(); - TotalD = dtD.SUM("Importe").ToString().ToDecimal(); - for (int index = 0; index <= max; index++) - { - ConceptosPersonal obj = new ConceptosPersonal(); - if (index < noP) - { - obj.Importe = dtP.Rows[index]["Importe"].ToString().ToDecimal(); - obj.CveConcepto = dtP.Rows[index]["CveConcepto"].ToString().ToEntero(); - obj.Concepto = dtP.Rows[index]["Concepto"].ToString(); - obj.Estatus = dtP.Rows[index]["Estatus"].ToString().ToEntero(); - } - else if (index == noP) - { - obj.Estatus = -1; - obj.Concepto = "Agregar"; - } - if (index < noD) - { - obj.ImporteD = dtD.Rows[index]["Importe"].ToString().ToDecimal(); - obj.CveConceptoD = dtD.Rows[index]["CveConcepto"].ToString().ToEntero(); - obj.ConceptoD = dtD.Rows[index]["Concepto"].ToString(); - obj.EstatusD = dtD.Rows[index]["Estatus"].ToString().ToEntero(); - } - else if (index == noD) - { - obj.EstatusD = -1; - obj.ConceptoD = "Agregar"; - } - listaconceptos.Add(obj); - } - } - listaconceptos.Add(new ConceptosPersonal()); - - - ConceptosPersonal objST = new ConceptosPersonal(); - objST.Importe = TotalP; - objST.CveConcepto = 0; - objST.Concepto = "Total Percepciones"; - objST.Estatus = -2; - objST.ImporteD = TotalD; - objST.CveConceptoD = 0; - objST.ConceptoD = "Total Deducciones"; - objST.EstatusD = -2; - - listaconceptos.Add(objST); - - ConceptosPersonal objT = new ConceptosPersonal(); - - objT.CveConcepto = 0; - objT.Concepto = ""; - objT.Estatus = -3; - objT.ImporteD = objST.Importe + objST.ImporteD; - objT.CveConceptoD = 0; - objT.ConceptoD = "Total"; - objT.EstatusD = -3; - listaconceptos.Add(objT); - return listaconceptos; - } - } - - protected void Page_Load(object sender, EventArgs e) - { - if (!Page.IsPostBack) - { - CargaDdlPersonal(); - CargaMotivoBaja(); - CvePeriodoFiniquito = 0; - if (Request["CvePersonal"] != null && Request["CvePersonal"].ToString().ToEntero() > 0) - { - CvePersonal = Request["CvePersonal"].ToString().ToEntero(); - } - else - { - CvePersonal = -1; - } - if (!CargaDatosFiniquito()) - { - } - RegistraScript("$('#ModalEmpleados').modal();"); - } - - if (CvePersonal > 0 & CvePeriodoFiniquito > 0) - { - LtlEmpleadoCancelar.Visible = true; - } - } - - private void CargaMotivoBaja() - { - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); - DdlMotivoBaja.DataBind(); - } - private void CargaDdlPersonal() - { - ClsRH ObjPersonal = new ClsRH(); - if (ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)) - { - DdlPersonal.DataSource = ObjPersonal.DtResultados; - DdlPersonal.DataBind(); - } - ObjPersonal.Dispose(); - } - - private bool CargaDatosFiniquito() - { - bool retorno = true; - if (CvePersonal > 0) - { - DdlPersonal.SelectedValueExist(CvePersonal.ToString()); - string Nombre = ""; - string FechaBaja = ""; - string EstatusPersonal = ""; - CvePeriodoFiniquito = 0; - CveTipoPeriodo = 0; - esLiquidacion = false; - pnlupValoresFiniquito.Visible = false; - DdlMotivoBaja.SelectedValue = "-1"; - using (ClsRH ObjPersonal = new ClsRH()) - { - if (ObjPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) && ObjPersonal.DtResultados.Rows.Count > 0) - { - DataRow prow = ObjPersonal.DtResultados.Rows[0]; - Nombre = prow["Nombre"].ToString(); - FechaBaja = string.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja); - EstatusPersonal = string.Format("{0}", prow["EstatusPersonal"]); - CveTipoPeriodo = prow["CveTipoPeriodo"].ToString().ToEntero(); - } - if (ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) - { - DataRow prow = ObjPersonal.DtResultados.Rows[0]; - CvePeriodoFiniquito = prow["CvePeriodoFiniquito"].ToString().ToEntero(); - FechaBaja = string.Format("{0:dd/MM/yyyy}", prow["FechaFin"]); - DdlMotivoBaja.SelectedValueExist(prow["CveMotivoBaja"].ToString().ToEntero()); - var stringesliquidacion = prow["esLiquidacion"].ToString(); - esLiquidacion = (stringesliquidacion == "True" || stringesliquidacion == "1"); - ChkesLiquidacion.Checked = esLiquidacion; - } - } - Timbrado tr; - if (DdlMotivoBaja.SelectedValue.ToEntero() > 0) - LblMotivoBaja.Text = DdlMotivoBaja.SelectedItem.Text; - else - LblMotivoBaja.Text = ""; - HypEmpleado.Text = Nombre; - HypEmpleado.NavigateUrl = string.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal); - LblFechaBaja.Text = FechaBaja; - LblEstatus.Text = EstatusPersonal; - TxtFechaBaja.Text = FechaBaja; - DdlTipoPeriodo_SelectedIndexChanged(null, null); - LblPerido.Text = DdlPeriodo.SelectedItem.Text; - if (CvePeriodoFiniquito <= 0) - retorno = false; - pnlupValoresFiniquito.Visible = true; - using (ClsNominas ObjNom = new ClsNominas()) - { - if (ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa)) - { - DataRow finrow = ObjNom.DtResultados.Rows[0]; - TxtAntiguedad.Text = $"{finrow["Antiguedad"]}"; - TxtdiasVacaciones.Text = $"{finrow["Diasvacaciones"]}"; - TxtDiasLaborados.Text = $"{finrow["diaslaborados"]}"; - TxtDiasProporcion.Text = $"{finrow["diasProporcion"]}"; - - TxtVaciones.Text = $"{finrow["Vacaciones"]}"; - TxtDiasPago.Text = $"{finrow["Diasvacaciones"]}"; - TxtDiasPendientes.Text = $"{finrow["diasporpagar"]}"; - TxtVacacionesporPagar.Text = $"{finrow["VacacionesporPagar"]}"; - - TxtPorcentjePrima.Text = $"{finrow["PrimaPorcentaje"]}"; - TxtPrimaVacacional.Text = $"{finrow["PrimaVacacional"]}"; - TxtPrimaPagada.Text = $"{finrow["PrimaPagada"]}"; - TxtPrimaPorPagar.Text = $"{finrow["PrimaVacacionalPorPagar"]}"; - } - if (ObjNom.DTSetResultados.Tables.Count > 5) - { - DataTable dtconceptos = ObjNom.DTSetResultados.Tables[1]; - DataTable dtconpersonal = ObjNom.DTSetResultados.Tables[5]; - - int maxFila = dtconpersonal.MAX("Fila", "Tipo<3").ToEntero(); - List lfin = new List(); - - if (maxFila > 0) - { - DataRow conPerrow; - DataRow conrow; - NConcepto sr; - - for (int i = 1; i <= maxFila; i++) - { - sr = new NConcepto(); - conPerrow = dtconpersonal.FiltroPrimero(string.Format("Tipo=1 AND Fila ={0}", i)); - if (conPerrow != null) - { - sr.CveConceptoP = conPerrow["CveConcepto"].ToString().ToEntero(); - conrow = dtconceptos.FiltroPrimero(string.Format("CveConcepto ={0}", sr.CveConceptoP)); - sr.ConceptoP = conrow["Concepto"].ToString(); - sr.ValorP = conPerrow["Valor"].ToString().ToDouble(); - sr.ImporteP = conPerrow["Importe"].ToString().ToDouble(); - sr.NoConceptoP = conrow["Codigo"].ToString(); - } - - - conPerrow = dtconpersonal.FiltroPrimero(string.Format("Tipo=2 AND Fila ={0}", i)); - if (conPerrow != null) - { - sr.CveConceptoD = conPerrow["CveConcepto"].ToString().ToEntero(); - conrow = dtconceptos.FiltroPrimero(string.Format("CveConcepto ={0}", sr.CveConceptoD)); - sr.ConceptoD = conrow["Concepto"].ToString(); - sr.ValorD= conPerrow["Valor"].ToString().ToDouble(); - sr.ImporteD = conPerrow["Importe"].ToString().ToDouble(); - sr.NoConceptoD = conrow["Codigo"].ToString(); - } - - - - lfin.Add(sr); - } - } - GvConceptos.DataSource = lfin; - GvConceptos.DataBind(); - } - } - //GvConceptos.DataSource = ConceptsPersonas; - //GvConceptos.DataBind(); - } - else - retorno = false; - return retorno; - } - - - protected void LnkCampiarEmpleado_Click(object sender, EventArgs e) - { - CvePersonal = DdlPersonal.SelectedValue.ToEntero(); - - - using (ClsRH ObjPersonal = new ClsRH()) - { - if (ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0) - { - } - } - if (pnlupValoresFiniquito.Visible) - { - } - if (!CargaDatosFiniquito()) - RegistraScript("$('#ModalEmpleados').modal('hide');"); - upDatos.Update(); - } - protected void LnkCalcular_Click(object sender, EventArgs e) - { - } - protected void LnkAutorizar_Click(object sender, EventArgs e) - { - } - protected void LnkTimbrar_Click(object sender, EventArgs e) - { - } - protected void LnkFormatoRenuncia_Click(object sender, EventArgs e) - { - } - protected void DdlPersonal_SelectedIndexChanged(object sender, EventArgs e) - { - Response.Redirect($"/Nomina/Finiquito.aspx?CvePersonal={DdlPersonal.SelectedValue}"); - } - protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e) - { - int CveTipoPeriodoactual = DdlTipoPeriodo.SelectedValue.ToEntero() > 0 ? DdlTipoPeriodo.SelectedValue.ToEntero() : CveTipoPeriodo; - string fechabaja = TxtFechaBaja.Text; - DataTable dtperiodos = new DataTable(); - ClsNominas ObjPeriodos = new ClsNominas(); - if (ObjPeriodos.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, -1)) - { - dtperiodos = ObjPeriodos.DtResultados; - if (Information.IsNothing(sender) && CvePeriodoFiniquito > 0) - { - DataRow row = dtperiodos.FiltroPrimero(string.Format("CvePeriodo={0} ", CvePeriodoFiniquito)); - if (!Information.IsNothing(row)) - { - CveTipoPeriodoactual = row["CveTipoPeriodo"].ToString().ToEntero(); - DdlTipoPeriodo.SelectedValueExist(CveTipoPeriodoactual == 6 ? "6" : "-1"); - } - } - dtperiodos = ObjPeriodos.DtResultados.FiltraParametros(string.Format("(Estatus IN (1,2,3,4) AND CveTipoPeriodo={0}) ", CveTipoPeriodoactual)); - // FechaInicio, P.FechaFin - DdlPeriodo.Items.Clear(); - DdlPeriodo.Items.Add(new ListItem("Seleccione", "-1")); - DdlPeriodo.SelectedValue = "-1"; - DdlPeriodo.DataSource = dtperiodos; - } - else - DdlPeriodo.DataSource = null; - ObjPeriodos.Dispose(); - DdlPeriodo.DataBind(); - if (fechabaja.Length > 0 && dtperiodos.Rows.Count > 0) - { - if ((CvePeriodoFiniquito > 0) && Information.IsNothing(sender)) - DdlPeriodo.SelectedValueExist(CvePeriodoFiniquito); - else - { - DataRow row = dtperiodos.FiltroPrimero(string.Format("(FechaInicio<='{0:yyyy/MM/dd}' AND FechaFin>='{0:yyyy/MM/dd}') ", fechabaja.ToDate())); - if (!Information.IsNothing(row)) - DdlPeriodo.SelectedValueExist(row["CvePeriodo"]); - } - } - } - - protected void GvConceptos_RowDataBound(object sender, GridViewRowEventArgs e) - { - if (e.Row.RowType == DataControlRowType.DataRow) - { - // Datakeys - // Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD - int CveConcepto = e.Row.DataKey("CveConceptoP").ToEntero(); - int CveConceptoD = e.Row.DataKey("CveConceptoD").ToEntero(); - // Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal() - // Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal() - int Estatus = e.Row.DataKey("EstatusP").ToEntero(); - int EstatusD = e.Row.DataKey("EstatusD").ToEntero(); - - // Controles - Label LtlConcepto = e.Row.FCLabel("LtlConcepto"); - LinkButton LnkConcepto = e.Row.FCLinkButton("LnkConcepto"); - Label LtlConceptoD = e.Row.FCLabel("LtlConceptoD"); - LinkButton LnkConceptoD = e.Row.FCLinkButton("LnkConceptod"); - Label LtlImporte = e.Row.FCLabel("LtlImporte"); - LinkButton LnkImporte = e.Row.FCLinkButton("LnkImporte"); - Label LtlImporteD = e.Row.FCLabel("LtlImporteD"); - LinkButton LnkImporteD = e.Row.FCLinkButton("LnkImporteD"); - - if (Estatus < -1 | EstatusD < -1) - e.Row.CssClass = "ConceptosTotales"; - if (CveConcepto == 0 && (Estatus == 0 || Estatus == -1 || Estatus == -3)) - LtlImporte.Text = ""; - - if (CveConceptoD == 0 && (EstatusD == 0 || EstatusD == -1)) - LtlImporteD.Text = ""; - - if (Estatus == -1) - LtlConcepto.Visible = false; - else if (Estatus > 0) - LtlImporte.Visible = false; - - if (EstatusD == -1) - LtlConceptoD.Visible = false; - else if (EstatusD > 0) - LtlImporteD.Visible = false; - - - LnkConcepto.Visible = !LtlConcepto.Visible; - LnkConceptoD.Visible = !LtlConceptoD.Visible; - LnkImporte.Visible = !LtlImporte.Visible; - LnkImporteD.Visible = !LtlImporteD.Visible; - } - } - - protected void LnkConcepto_Click(object sender, EventArgs e) - { - GridViewRow gvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - GCEstatus = gvRow.DataKey("Estatus").ToEntero(); - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero(); - GCImporte = gvRow.DataKey("Importe").ToDecimal(); - OpenModalConceptos(1); - } - protected void LnkConceptoD_Click(object sender, EventArgs e) - { - GridViewRow gvRow = (GridViewRow)((LinkButton)sender).NamingContainer; - GCEstatus = gvRow.DataKey("Estatus").ToEntero(); - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero(); - GCImporte = gvRow.DataKey("Importe").ToDecimal(); - OpenModalConceptos(2); - } - - private void OpenModalConceptos(int Tipo) - { - if (GCEstatus == -1) - { - } - else - { - } - RegistraScript("$('#ModalConceptos').modal();"); - } - - protected void LnkAceptarConceptos_Click(object sender, EventArgs e) - { - RegistraScript("$('#ModalConceptos').modal('hide');"); - } -} diff --git a/Nomina/FiniquitoOld.aspx.vb b/Nomina/FiniquitoOld.aspx.vb deleted file mode 100644 index 18c1cda0f..000000000 --- a/Nomina/FiniquitoOld.aspx.vb +++ /dev/null @@ -1,462 +0,0 @@ -Option Strict On - -Imports System.Data -Imports Extensiones - -Partial Class Nomina_FiniquitoVB - Inherits ClsPaginas - Private Class ConceptosPersonal - Public Sub New() - Concepto = "" - ConceptoD = "" - CveConcepto = 0 - CveConceptoD = 0 - Estatus = 0 - Estatus = 0 - End Sub - Public Property Concepto As String - Public Property CveConcepto As Integer - Public Property Importe As Decimal - Public Property Estatus As Integer - - Public Property ConceptoD As String - Public Property CveConceptoD As Integer - Public Property ImporteD As Decimal - Public Property EstatusD As Integer - End Class -#Region "Propiedades" - - Private Property CvePersonal As Integer - Get - If Not IsNothing(ViewState("CvePersonal")) Then - Return ViewState("CvePersonal").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set(value As Integer) - ViewState("CvePersonal") = value - End Set - End Property - Private Property CveTipoPeriodo As Integer - Get - If Not IsNothing(ViewState("CveTipoPeriodo")) Then - Return ViewState("CveTipoPeriodo").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set(value As Integer) - ViewState("CveTipoPeriodo") = value - End Set - End Property - Private Property CvePeriodoFiniquito As Integer - Get - If Not IsNothing(ViewState("CvePeriodoFiniquito")) Then - Return ViewState("CvePeriodoFiniquito").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set(value As Integer) - ViewState("CvePeriodoFiniquito") = value - End Set - End Property - - Private Property GCEstatus As Integer - Get - If Not IsNothing(ViewState("GCEstatus")) Then - Return ViewState("GCEstatus").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set - ViewState("GCEstatus") = Value - End Set - End Property - Private Property GCCveConcepto As Integer - Get - If Not IsNothing(ViewState("GCCveConcepto")) Then - Return ViewState("GCCveConcepto").ToString().ToEntero() - Else - Return 0 - End If - End Get - Set - ViewState("GCCveConcepto") = Value - End Set - End Property - Private Property GCImporte As Decimal - Get - If Not IsNothing(ViewState("GCImporte")) Then - Return ViewState("GCImporte").ToString().ToDecimal() - Else - Return 0 - End If - End Get - Set - ViewState("GCImporte") = Value - End Set - End Property - Private ReadOnly Property ConceptsPersonas As List(Of ConceptosPersonal) - Get - Dim listaconceptos As New List(Of ConceptosPersonal) - Dim TotalP As Decimal = 0 - Dim TotalD As Decimal = 0 - If (Not IsNothing(DTConceptosPersonal) AndAlso DTConceptosPersonal.Rows.Count > 0) Then - Dim dtP As DataTable = DTConceptosPersonal.FiltraParametros("Tipo=1") - Dim dtD As DataTable = DTConceptosPersonal.FiltraParametros("Tipo=2") - Dim noP = dtP.Rows.Count() - Dim noD = dtD.Rows.Count() - Dim max = If(noP > noD, noP, noD) - TotalP = dtP.SUM("Importe").ToString().ToDecimal() - TotalD = dtD.SUM("Importe").ToString().ToDecimal() - For index = 0 To max - Dim obj As New ConceptosPersonal() - If index < noP Then - obj.Importe = dtP.Rows(index)("Importe").ToString().ToDecimal() - obj.CveConcepto = dtP.Rows(index)("CveConcepto").ToString().ToEntero() - obj.Concepto = dtP.Rows(index)("Concepto").ToString() - obj.Estatus = dtP.Rows(index)("Estatus").ToString().ToEntero() - ElseIf index = noP Then - obj.Estatus = -1 - obj.Concepto = "Agregar" - End If - If index < noD Then - obj.ImporteD = dtD.Rows(index)("Importe").ToString().ToDecimal() - obj.CveConceptoD = dtD.Rows(index)("CveConcepto").ToString().ToEntero() - obj.ConceptoD = dtD.Rows(index)("Concepto").ToString() - obj.EstatusD = dtD.Rows(index)("Estatus").ToString().ToEntero() - ElseIf index = noD Then - obj.EstatusD = -1 - obj.ConceptoD = "Agregar" - End If - listaconceptos.Add(obj) - Next - End If - listaconceptos.Add(New ConceptosPersonal()) - - - Dim objST As New ConceptosPersonal() - objST.Importe = TotalP - objST.CveConcepto = 0 - objST.Concepto = "Total Percepciones" - objST.Estatus = -2 - objST.ImporteD = TotalD - objST.CveConceptoD = 0 - objST.ConceptoD = "Total Deducciones" - objST.EstatusD = -2 - - listaconceptos.Add(objST) - - Dim objT As New ConceptosPersonal() - - objT.CveConcepto = 0 - objT.Concepto = "" - objT.Estatus = -3 - objT.ImporteD = objST.Importe + objST.ImporteD - objT.CveConceptoD = 0 - objT.ConceptoD = "Total" - objT.EstatusD = -3 - listaconceptos.Add(objT) - Return listaconceptos - End Get - End Property - - Private Property DTConceptosPersonal As DataTable - Get - If Not IsNothing(ViewState("DTConceptosPersonal")) Then - Return DirectCast(ViewState("DTConceptosPersonal"), DataTable) - Else - Return Nothing - End If - End Get - Set - ViewState("DTConceptosPersonal") = Value - End Set - End Property - Private Property DTConceptos As DataTable - Get - If Not IsNothing(ViewState("DTConceptos")) Then - Return DirectCast(ViewState("DTConceptos"), DataTable) - Else - Return Nothing - End If - End Get - Set - ViewState("DTConceptos") = Value - End Set - End Property - - - Private Property esLiquidacion As Boolean - Get - If Not IsNothing(ViewState("esLiquidacion")) Then - Return CBool(ViewState("esLiquidacion")) - Else - Return False - End If - End Get - Set - ViewState("esLiquidacion") = Value - End Set - End Property -#End Region - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - - CargaDdlPersonal() - CargaMotivoBaja() - CvePeriodoFiniquito = 0 - If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then - ViewState("CvePersonal") = Request("CvePersonal") - Else - CvePersonal = -1 - End If - If Not CargaDatosFiniquito() Then - End If - RegistraScript("$('#ModalEmpleados').modal();") - - End If - - If CvePersonal > 0 And CvePeriodoFiniquito > 0 Then - LtlEmpleadoCancelar.Visible = True - End If - End Sub - - Private Sub CargaMotivoBaja() - DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - DdlMotivoBaja.DataBind() - End Sub - Private Sub CargaDdlPersonal() - Dim ObjPersonal As New ClsRH - If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then - DdlPersonal.DataSource = ObjPersonal.DtResultados - DdlPersonal.DataBind() - End If - ObjPersonal.Dispose() - End Sub - - Private Function CargaDatosFiniquito() As Boolean - Dim retorno As Boolean = True - If CvePersonal > 0 Then - - DdlPersonal.SelectedValueExist(CvePersonal.ToString()) - Dim Nombre As String = "" - Dim FechaBaja As String = "" - Dim EstatusPersonal As String = "" - CvePeriodoFiniquito = 0 - CveTipoPeriodo = 0 - esLiquidacion = False - pnlupValoresFiniquito.Visible = False - DdlMotivoBaja.SelectedValue = "-1" - Using ObjPersonal As New ClsRH() - If ObjPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then - Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString() - FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja) - EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal")) - CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero() - End If - If ObjPersonal.GetPersonalAltas(CvePersonal) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then - CvePeriodoFiniquito = ObjPersonal.DtResultados.Rows(0)("CvePeriodoFiniquito").ToString().ToEntero() - FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.DtResultados.Rows(0)("FechaFin")) - DdlMotivoBaja.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveMotivoBaja").ToString().ToEntero()) - Dim stringesliquidacion = ObjPersonal.DtResultados.Rows(0)("esLiquidacion").ToString() - esLiquidacion = (stringesliquidacion = "True" OrElse stringesliquidacion = "1") - ChkesLiquidacion.Checked = esLiquidacion - End If - End Using - If DdlMotivoBaja.SelectedValue.ToEntero() > 0 Then - LblMotivoBaja.Text = DdlMotivoBaja.SelectedItem.Text - Else - LblMotivoBaja.Text = "" - End If - HypEmpleado.Text = Nombre - HypEmpleado.NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal) - LblFechaBaja.Text = FechaBaja - LblEstatus.Text = EstatusPersonal - TxtFechaBaja.Text = FechaBaja - DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing) - LblPerido.Text = DdlPeriodo.SelectedItem.Text - If CvePeriodoFiniquito <= 0 Then - retorno = False - End If - pnlupValoresFiniquito.Visible = True - Using ObjNom As New ClsNominas() - 'If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then - ' DTConceptosPersonal = ObjNom.DtResultados - 'Autoriza nomina - 'Finiquita Liquidación - 'Rep Nomina - 'RepInversion de nomina - 'Alertas Altas /Bajas - ' - 'End If - End Using - GvConceptos.DataSource = ConceptsPersonas - GvConceptos.DataBind() - Else - retorno = False - End If - Return retorno - End Function - - - Protected Sub LnkCampiarEmpleado_Click(sender As Object, e As EventArgs) - CvePersonal = DdlPersonal.SelectedValue.ToEntero() - - - Using ObjPersonal As New ClsRH() - If ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then - - End If - End Using - If pnlupValoresFiniquito.Visible Then - - End If - If Not CargaDatosFiniquito() Then - - RegistraScript("$('#ModalEmpleados').modal('hide');") - End If - upDatos.Update() - End Sub - Protected Sub LnkCalcular_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub LnkAutorizar_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub LnkTimbrar_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub LnkFormatoRenuncia_Click(sender As Object, e As EventArgs) - - End Sub - Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs) - Response.Redirect($"/Nomina/Finiquito.aspx?CvePersonal={DdlPersonal.SelectedValue}") - 'Alert($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')") - 'RegistraScript($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')") - End Sub - Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim CveTipoPeriodoactual As Integer = If(DdlTipoPeriodo.SelectedValue.ToEntero() > 0, DdlTipoPeriodo.SelectedValue.ToEntero(), CveTipoPeriodo) - Dim fechabaja As String = TxtFechaBaja.Text - Dim dtperiodos As New DataTable - Dim ObjPeriodos As New ClsNominas - If ObjPeriodos.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, -1) Then - dtperiodos = ObjPeriodos.DtResultados - If IsNothing(sender) AndAlso CvePeriodoFiniquito > 0 Then - Dim row As DataRow = dtperiodos.FiltroPrimero(String.Format("CvePeriodo={0} ", CvePeriodoFiniquito)) - If Not IsNothing(row) Then - CveTipoPeriodoactual = row("CveTipoPeriodo").ToString().ToEntero() - DdlTipoPeriodo.SelectedValueExist(If(CveTipoPeriodoactual = 6, "6", "-1")) - End If - End If - dtperiodos = ObjPeriodos.DtResultados.FiltraParametros(String.Format("(Estatus IN (1,2,3,4) AND CveTipoPeriodo={0}) ", CveTipoPeriodoactual)) - 'FechaInicio, P.FechaFin - DdlPeriodo.Items.Clear() - DdlPeriodo.Items.Add(New ListItem("Seleccione", "-1")) - DdlPeriodo.SelectedValue = "-1" - DdlPeriodo.DataSource = dtperiodos - Else - DdlPeriodo.DataSource = Nothing - End If - ObjPeriodos.Dispose() - DdlPeriodo.DataBind() - If fechabaja.Length > 0 AndAlso dtperiodos.Rows.Count > 0 Then - If (CvePeriodoFiniquito > 0) AndAlso IsNothing(sender) Then - DdlPeriodo.SelectedValueExist(CvePeriodoFiniquito) - Else - Dim row As DataRow = dtperiodos.FiltroPrimero(String.Format("(FechaInicio<='{0:yyyy/MM/dd}' AND FechaFin>='{0:yyyy/MM/dd}') ", fechabaja.ToDate())) - If Not IsNothing(row) Then - DdlPeriodo.SelectedValueExist(row("CvePeriodo")) - End If - End If - - End If - End Sub - -#Region "Conceptos" - Protected Sub GvConceptos_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - 'Datakeys - 'Concepto,CveConcepto,Importe,Estatus,ConceptoD,CveConceptoD,ImporteD,EstatusD - Dim CveConcepto As Integer = e.Row.DataKey("CveConcepto").ToEntero() - Dim CveConceptoD As Integer = e.Row.DataKey("CveConceptoD").ToEntero() - 'Dim Importe As Decimal = e.Row.DataKey("Importe").ToDecimal() - 'Dim ImporteD As Decimal = e.Row.DataKey("ImporteD").ToDecimal() - Dim Estatus As Integer = e.Row.DataKey("Estatus").ToEntero() - Dim EstatusD As Integer = e.Row.DataKey("EstatusD").ToEntero() - - 'Controles - Dim LtlConcepto As Label = e.Row.FCLabel("LtlConcepto") - Dim LnkConcepto As LinkButton = e.Row.FCLinkButton("LnkConcepto") - Dim LtlConceptoD As Label = e.Row.FCLabel("LtlConceptoD") - Dim LnkConceptoD As LinkButton = e.Row.FCLinkButton("LnkConceptod") - Dim LtlImporte As Label = e.Row.FCLabel("LtlImporte") - Dim LnkImporte As LinkButton = e.Row.FCLinkButton("LnkImporte") - Dim LtlImporteD As Label = e.Row.FCLabel("LtlImporteD") - Dim LnkImporteD As LinkButton = e.Row.FCLinkButton("LnkImporteD") - - If Estatus < -1 Or EstatusD < -1 Then - e.Row.CssClass = "ConceptosTotales" - End If - If CveConcepto = 0 AndAlso (Estatus = 0 OrElse Estatus = -1 OrElse Estatus = -3) Then - LtlImporte.Text = "" - End If - - If CveConceptoD = 0 AndAlso (EstatusD = 0 OrElse EstatusD = -1) Then - LtlImporteD.Text = "" - End If - - If Estatus = -1 Then - LtlConcepto.Visible = False - ElseIf Estatus > 0 Then - LtlImporte.Visible = False - End If - - If EstatusD = -1 Then - LtlConceptoD.Visible = False - ElseIf EstatusD > 0 Then - LtlImporteD.Visible = False - End If - - - LnkConcepto.Visible = Not LtlConcepto.Visible - LnkConceptoD.Visible = Not LtlConceptoD.Visible - LnkImporte.Visible = Not LtlImporte.Visible - LnkImporteD.Visible = Not LtlImporteD.Visible - - End If - End Sub - - Protected Sub LnkConcepto_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - GCEstatus = gvRow.DataKey("Estatus").ToEntero() - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero() - GCImporte = gvRow.DataKey("Importe").ToDecimal() - OpenModalConceptos(1) - End Sub - Protected Sub LnkConceptoD_Click(sender As Object, e As EventArgs) - Dim gvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - GCEstatus = gvRow.DataKey("Estatus").ToEntero() - GCCveConcepto = gvRow.DataKey("CveConcepto").ToEntero() - GCImporte = gvRow.DataKey("Importe").ToDecimal() - OpenModalConceptos(2) - End Sub - - Private Sub OpenModalConceptos(Tipo As Integer) - If GCEstatus = -1 Then - Else - - End If - RegistraScript("$('#ModalConceptos').modal();") - End Sub - - Protected Sub LnkAceptarConceptos_Click(sender As Object, e As EventArgs) - - RegistraScript("$('#ModalConceptos').modal('hide');") - End Sub - -#End Region -End Class From b0ab32496c97441fb734e3e9edec959e3f4dce1d Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Feb 2023 13:28:07 -0700 Subject: [PATCH 28/38] =?UTF-8?q?--=20correcci=C3=B3n=20pago=20intermediar?= =?UTF-8?q?io?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 19d47eaed..ac6acc141 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -824,7 +824,7 @@ Partial Class Ventas_ClientesAbonar If DdlCuenta.SelectedValue > 0 Then CveMoneda = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCuenta = {DdlCuenta.SelectedValue.ToEntero}").ToEntero Else - CveMoneda = If(Request("CveMoneda").ToString.ToEntero > 0, Request("CveMoneda").ToString.ToEntero, 1) + CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero End If CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) @@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL Dim IdCtaContable As Integer = 0 - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, VentaActual.SerieFolio, 134, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then MsgError = "No se pudo insertar la póliza" End If End If From 93ded478fc7ea7cc86ed9c13d722595c06c00599 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 10 Feb 2023 13:28:47 -0700 Subject: [PATCH 29/38] =?UTF-8?q?--=20correccii=C3=B3n=20llamado=20a=20fun?= =?UTF-8?q?ciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Clientes.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index bd06ab0dd..b7f88b4ed 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1300,8 +1300,8 @@ Partial Class Clientes End Sub - Private Sub CargaCombos() - CargaSubProyectoss() + Private Sub CargaCombos() + CargaMetodosPago() CargaPrecioLista() CargaVendedores() @@ -1504,7 +1504,7 @@ Partial Class Clientes ' CargaDocs() CargaCombos() CargaDocumentacionCliente() - CargaSubProyectosSuscursales() + 'CargaSubProyectosSucursales() 'CargaMetodosPago33() 'CargaFormaPago33() 'CargaComboCFDI() From e6994d9f458ef102d6d2592b56f52eeef906c1f8 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Fri, 10 Feb 2023 16:49:54 -0700 Subject: [PATCH 30/38] OC Bloquear cancelacion cuando exista movimiento de almacen --- Compras/Compras.aspx | 2 +- OC/OC.aspx.vb | 21 +++++++++++++++++++++ 2 files changed, 22 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index cd7e217ee..be2e48980 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -875,7 +875,7 @@ Anticipos/NC Vinculados - diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 0c1b1972b..959542ab0 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -922,10 +922,31 @@ Partial Class OC_OC MostrarUsuarioAsignado() + ValidaCancelacionConAlamcen() + Me.Form.DefaultButton = "" End Sub + Private Sub ValidaCancelacionConAlamcen() + + ' BtnCancelarPrevio.Visible = True + ' BtnCancelarPrevio.Enabled = True + + If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then + + + 'BtnCancelarPrevio.Attributes.Remove("onclick") + BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip") + BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.") + BtnCancelarPrevio.OnClientClick = "return false;" + 'BtnCancelarPrevio.Attributes.Add("onclick", "$('#DivCancelarCompra').modal('hide')") + + End If + + + End Sub + #Region " PERMISOS PAGINA " Private Sub PermisosPagina() ActivarIVAEditable() From b57f4712292f523677a50bdb7c92d3d1a1799e0d Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 10 Feb 2023 17:19:23 -0700 Subject: [PATCH 31/38] E119 Filtros Lineas Adicionales -Por Comercializador -Por Estatus CAMBIOS BD: -PA_Vta_LineasAdicionalesGet en SIG_Resp_MLR y Ventas + @CveProveedor = -1 --- App_Code/ClsVentas.vb | 3 ++- Ventas/Clientes.aspx | 30 +++++++++++++++++++++++++++- Ventas/Clientes.aspx.vb | 44 ++++++++++++++++++++++++++++++++++++----- 3 files changed, 70 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 454d6d5c8..c64f9bbda 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5528,12 +5528,13 @@ Public Class ClsVentas End Function - Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean + Public Function GetLineasAdicionales(CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 26a2963a6..6cc3bcfc3 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4535,7 +4535,35 @@ - + + +
    +
    +
    + + +
    +
    +
    + +
    + +
    + +
    + + + + + +
    +
    +
    +
    +
    +     +
    diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f3820c77b..82de53a46 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -452,7 +452,16 @@ Partial Class Clientes Set(value As DataTable) ViewState("DtAnticipoHistorial") = value End Set + End Property + Private Property DtLineaAdicional As DataTable + Get + Return CType(ViewState("DtLineaAdicional"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtLineaAdicional") = value + End Set End Property + 'Private Property EstatusAnteriorCliente As Boolean ' Get ' If ViewState("EstatusAnteriorCliente") Is Nothing Then @@ -10318,6 +10327,11 @@ Partial Class Clientes Private Sub CargaCombosLineasAdicionales() + DdlProveedorLineaAdicional.setEsWebService(True) + DdlProveedorLineaAdicional.Attributes.Add("data-metodo", "getproveedores") + DdlProveedorLineaAdicional.SelectedText = "-" + DdlProveedorLineaAdicional.SelectedValue = "-1" + DdlProveedorLineaAdicionalModal.setEsWebService(True) DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores") DdlProveedorLineaAdicionalModal.SelectedText = "-" @@ -10326,22 +10340,42 @@ Partial Class Clientes DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoriaLineaAdicionalModal.DataBind() DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1")) - + End Sub + Protected Sub BtnConsultarLineas_Click(sender As Object, e As EventArgs) + FiltrarLineasAdicionales() + End Sub + + Protected Sub FiltrarLineasAdicionales() + Dim ObjVentas As New ClsVentas + If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, DdlEstatusLineaAdicional.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvLineasAdicionales.DataSource = ObjVentas.DtResultados + End If + ObjVentas.Dispose() + GvLineasAdicionales.DataBind() + UpLineasAdicionales.Update() + End Sub + 'Protected Sub DdlProveedorLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedorLineaAdicional.selectedindexchange + ' FiltrarLineasAdicionales() + 'End Sub + + 'Protected Sub DdlEstatusLineasAdicionales_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusLineaAdicional.SelectedIndexChanged + ' FiltrarLineasAdicionales() + 'End Sub + Private Sub GetLineasAdicionales() Dim ObjVentas As New ClsVentas - If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then + If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa) Then GvLineasAdicionales.DataSource = ObjVentas.DtResultados End If - ObjVentas.Dispose() + GvLineasAdicionales.DataBind() + FiltrarLineasAdicionales() UpLineasAdicionales.Update() - - End Sub Protected Sub LnkAgregarLineaAdicional_Click(sender As Object, e As EventArgs) From b1024883dcb9cff9304bb323016e54e990169ebb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 10 Feb 2023 18:18:59 -0700 Subject: [PATCH 32/38] ECONO. lista de precios de prioritaria --- Ventas/Ventas.aspx.vb | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c554e418e..4b27113f2 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -17643,6 +17643,11 @@ Partial Class Ventas End If + 'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE + If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then + CvePrecioListaPS = Me.CvePrecioListaCliente + End If + End If If CvePrecioListaPS > 0 Then @@ -36150,6 +36155,11 @@ Partial Class Ventas If CvePrecioListaPS <= 0 Then CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() End If + + 'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE + If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then + CvePrecioListaPS = Me.CvePrecioListaCliente + End If End If If CvePrecioListaPS > 0 Then From 3e2535aa1a563c3ae00eafefd962e1c722770531 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 10 Feb 2023 18:19:56 -0700 Subject: [PATCH 33/38] Correcion de saldos de usados, funcionalidad para lista de precios, aplicacion de concepto 150 con porcentaje IVA por partida --- Ventas/Ventas.aspx | 10 +++++----- Ventas/Ventas.aspx.vb | 23 ++++++++++++++--------- 2 files changed, 19 insertions(+), 14 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 758c175b2..3fb93897b 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -8454,7 +8454,7 @@ TxtImporte.value = FormatoNumero(Saldo, 2); } } else { - if (SaldoMaximoUtilizable > 0) { + if (SaldoMaximoUtilizable <= 0) { TxtImporte.value = ""; Chk.checked = false; } else { @@ -8498,7 +8498,7 @@ if (Importe > 0) { } else { - if (SaldoMaximoUtilizable > 0) { + if (SaldoMaximoUtilizable <= 0) { Importe = 0; Chk.checked = false; } else { @@ -8565,7 +8565,7 @@ if (Importe > 0) { } else { - if (SaldoMaximoUtilizable > 0) { + if (SaldoMaximoUtilizable <= 0) { Importe = 0; Chk.checked = false; } else { @@ -8632,7 +8632,7 @@ if (Importe > 0) { } else { - if (SaldoMaximoUtilizable > 0) { + if (SaldoMaximoUtilizable <= 0) { Importe = 0; Chk.checked = false; } else { @@ -8862,7 +8862,7 @@ TxtImporte.value = FormatoNumero(Saldo, 2); } } else { - if (SaldoMaximoUtilizable > 0) { + if (SaldoMaximoUtilizable <= 0) { TxtImporte.value = ""; Chk.checked = false; } else { diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 4b27113f2..85c6acfb6 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14758,8 +14758,8 @@ Partial Class Ventas 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString() + If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then + TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString() End If End If @@ -17640,12 +17640,14 @@ Partial Class Ventas CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() If CvePrecioListaPS <= 0 Then CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() - End If - 'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE - If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then - CvePrecioListaPS = Me.CvePrecioListaCliente + If Me.CvePrecioListaCliente > 0 Then + Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray()) + 'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS + If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then + CvePrecioListaPS = Me.CvePrecioListaCliente + End If End If End If @@ -36156,9 +36158,12 @@ Partial Class Ventas CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() End If - 'SI EL CLIENTE TIENE LISTA DE PRECIO DEBE TOMAR DE ESTE - If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CvePrecioListaCliente > 0 Then - CvePrecioListaPS = Me.CvePrecioListaCliente + If Me.CvePrecioListaCliente > 0 Then + Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray()) + 'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS + If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then + CvePrecioListaPS = Me.CvePrecioListaCliente + End If End If End If From 788f3aa4665f73a9aca637a938ced60226aad9e9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 10 Feb 2023 18:20:54 -0700 Subject: [PATCH 34/38] Visualizar beneficiario --- Bancos/IE.aspx.vb | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index dad351faf..893d1bfd0 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1020,6 +1020,12 @@ Partial Class Bancos_IE DdlPersonal.Enabled = False End If + 'SI TIENE EL DATO DEBE MOSTRALO + If UsuarioActual.CveEmpresa = 119 AndAlso LblPagueseA.Text = "Beneficiario" AndAlso Not String.IsNullOrEmpty(ObjIE.PagueseA) Then + LblPagarA.Visible = True + LblPagarA.Text = ObjIE.PagueseA + End If + IDPoliza = ObjIE.IDPoliza IDCtaContable = ObjIE.IdCtaContable From 7ff86b07b2016066d347fe7c26d588679df6977f Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 10 Feb 2023 18:26:15 -0700 Subject: [PATCH 35/38] Cancelacion del traspaso por cantidad especificada --- Inventarios/TraspasoAlmacen.aspx.vb | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index e651739bc..2394c7a2c 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1647,9 +1647,9 @@ Partial Class Inventarios_TraspasoAlmacen 'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR If CvePS > 0 Then CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToEntero - Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal + Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal - If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal + 'If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToDecimal If CveMovimientoDetalleSalida <= 0 Then @@ -1657,7 +1657,16 @@ Partial Class Inventarios_TraspasoAlmacen TextoError = "Ocurrió un error al guardar los movimientos de salida" Exit For End If - If Cantidad <> 0 Then + + Dim cantidadDisponibleValidacion As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal + + If cantidadDisponibleValidacion < 0 Then + ErrorMovInv = True + TextoError = $"La cantidad a cancelar del producto '{GvRow.DataKey("Codigo")}-{GvRow.DataKey("PS")}' excede la del traspaso" + Exit For + End If + + If Cantidad > 0 Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then ErrorMovInv = True TextoError = "Ocurrió un error al guardar los movimientos de entrada" From e1c62fff5d8a54e964b236671e705c22f9adcac7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 10 Feb 2023 18:27:20 -0700 Subject: [PATCH 36/38] Correcion en cancelaciones --- App_Code/ClsPaginas.vb | 2 +- App_Code/Modelos.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 71f9a5e21..20bf6e0f8 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -2124,7 +2124,7 @@ Public Class ClsPaginas 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjClientes As New ClsClientes - If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados + If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados.Copy() ObjClientes.Dispose() End If diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index ca48d9f8c..e1c7f11b5 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3381,8 +3381,8 @@ Namespace Modelos 'se excluyen las clasificaciones anteriores para que se asignen las de ingreso If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then - If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then - TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString + If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then + TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString End If End If From 83491b49d61fee9889eb3f5f9fa8272fcc4e0252 Mon Sep 17 00:00:00 2001 From: RPimienta Date: Fri, 10 Feb 2023 23:48:46 -0600 Subject: [PATCH 37/38] Arreglos en centros de costos en reportes --- Contabilidad2/RepAnexoCatalogo.aspx.vb | 2 +- Contabilidad2/RepEstadoActividades.aspx.vb | 2 +- Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 2c528d53d..616d9d695 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -201,7 +201,7 @@ Partial Class AC2_RepAnexoCatalogo DdlCuentas.DataBind() - CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto) End Sub diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 9fd2fe7a7..e14be48d4 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -117,7 +117,7 @@ Partial Class AC_RepEstadoActividades End If DdlPeriodo.SelectedValue = Now.Month.ToString - CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto) End Sub diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb index 395451537..eaa7625c1 100644 --- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb +++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb @@ -228,7 +228,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo ObjTipoCuenta.Dispose() DdlCuentas.DataBind() - CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto) End Sub From ac14be1345aa4bca3574d2ba79d54b6437c408e5 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:14:28 -0700 Subject: [PATCH 38/38] . Concepto NC en ME --- Ventas/Ventas.aspx.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c71fc445f..0b0f5c41f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13939,7 +13939,10 @@ Partial Class Ventas Dim ImporteConcepto12 As Decimal = 0 Dim ImporteAcumulado91 As Decimal = 0 Dim CveUltimaVenta As Integer = 0 - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambio > 1 Then + Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + ConceptoContable = 293 + End If If tipoCambio = 1 Then IdCtaContable = ObjFactura.Cliente.IdCtaContClientes ElseIf UsaComplementariaClientes Then @@ -25906,7 +25909,7 @@ Partial Class Ventas If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero() Else CveMarca = DdlMarca.SelectedValue.ToEntero() Dim ObjProductosServicios As New ClsProductosServicios() - If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero()) > 0 Then + If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero(), CveObjetoImpuesto:=2) > 0 Then DdlClasificacion.SelectedValueExist(DdlClasificacionPS.SelectedValue.ToEntero()) DdlClasificacion_SelectedIndexChanged(DdlClasificacionPS, e)