From 4af6943a4797813a405314b673a4c69cd1d393c3 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 29 Jul 2023 17:41:06 -0700 Subject: [PATCH] -- num cuenta pago --- App_Code/CFDITimbre.vb | 2 +- App_Code/LogicNominas.vb | 2 +- App_Code/Timbrado.vb | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 8de6639ec..b174a39cc 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -241,7 +241,7 @@ Public Class CFDIComprobante Public Property MetodoPago As String = "" Public Property Exportacion As String = "01" '01-No Aplica Public Property LugarExpedicion As String = "" - Public Property NumCuentaPago As String = "" + 'Public Property NumCuentaPago As String = "" Public Property Confirmacion As String = "" End Class diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 30212760e..41d0f19e8 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -474,7 +474,7 @@ Public Class LogicNominas cfdi.Comprobante.CondicionesdePago = "" '"CONTADO" cfdi.Comprobante.FormadePago = If(versionTimbre = VersionTimbradoEnum.Version4_0, "", "99") cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL - cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta + 'cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta '4.0 cfdi.Receptor.DomicilioFiscalReceptor = CodigoPostal cfdi.Receptor.RegimenFiscalReceptor = "605" diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index fd0e8afac..0f240b5af 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2327,7 +2327,7 @@ Public Class Timbrado Nom.Receptor.RiesgoPuestoSpecified = True Nom.Receptor.RiesgoPuesto = ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.TipoPeriodo - If ObjCFDITimbre.Nomina.Receptor.CodigoBanco <> "" Then + If ObjCFDITimbre.Nomina.Receptor.CodigoBanco <> "" AndAlso ObjCFDITimbre.Nomina.Receptor.NumeroCuenta <> "" Then Nom.Receptor.BancoSpecified = True Nom.Receptor.Banco = ObjCFDITimbre.Nomina.Receptor.CodigoBanco Nom.Receptor.CuentaBancaria = ObjCFDITimbre.Nomina.Receptor.NumeroCuenta