Jump to content

dev botao

Validação Registro C495


Go to solution Solved by Joas Vilas Boas Fernandes,
  • Este tópico foi criado há 1199 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia,

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.


uma sugestão seria:
  if Assigned( RegC001.RegistroC495 )
  and (RegC001.RegistroC400.Count > 0)
  and (RegC001.RegistroC425.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.');
            

Assim só quando informar registros dos cupons e não informar os registros C425 será criticado.


 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 1199 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

The popup will be closed in 10 seconds...