Jump to content
Notícias do ACBr

click.png

click.png

click.png

logos

Texto.png

p200

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Validação registro C495 Sped Fiscal


Recommended Posts

Bom tarde,

Na procedure TBloco_C.WriteRegistroC495(RegC001: TRegistroC001) tem uma validação ao meu ver equivocada.
  if Assigned( RegC001.RegistroC495 ) then
  begin
     if (DT_INI >= EncodeDate(2014,01,01)) and
     ( FBloco_0.Registro0000.UF = 'BA') then
       Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.');

....

Porem ao criar o registro RegistroC001, cria a lista TRegistroC495List:
 FRegistroC495 := TRegistroC495List.Create. 

Assim o código acima sempre apresentara a imagem independente de informar informações de cupom ou não.

Link to post
Share on other sites

Entao, na verdade não sei bem como fazer. Sei que somente quando o RegistroC400.Count > 0 e o registroC425.count for = 0 e UF = BA dever aparecer a mensagem.

Só que o  RegistroC400 tem uma lista de RegistroC405 que tem uma lista de RegistroC420 que tem uma lista de RegistroC425. 

será que essa validação não deveria estar na procedure TBloco_C.WriteRegistroC425(RegC420: TRegistroC420) ?

 

Por hora como eu não emito cupom, portanto não preencho o C400, eu fiz assim:

  if Assigned( RegC001.RegistroC495 )
  and (RegC001.RegistroC400.Count > 0) then
  begin
     if (DT_INI >= EncodeDate(2014,01,01)) and
     ( FBloco_0.Registro0000.UF = 'BA') then
       Check(False, 'A partir de 01/01/2014, os contribuintes situados na Bahia obrigados a este registro devem apresentar o registro C425.');
           

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...