Pesquisar na Comunidade
Showing results for tags 'blocok'.
Encontrado 1 registro
-
Problemas na verificação de DT_INI e DT_FIN no WriteRegistroK100 -
um tópico no fórum postou Marcelo Ferreira Taquari ACBrSPEDFiscal
Estou fazendo a geração do Bloco K e estou tendo problemas com a validação de datas onde debugando, as condições retornam False e mesmo assim apresenta o Exception: A data inicial está fora do periodo do EFD!, já verifiquei se estava enviando hora e não é isso. procedure TBloco_K.WriteRegistroK100(RegK001: TRegistroK001); var intFor: integer; begin if Assigned(RegK001.RegistroK100) then begin for intFor := 0 to RegK001.RegistroK100.Count - 1 do begin with RegK001.RegistroK100.Items[intFor] do begin if (DT_INI < Bloco_0.DT_INI)or (DT_INI > Bloco_0.DT_FIN) then raise Exception.Create('A data inicial está fora do periodo do EFD!'); if (DT_FIN < Bloco_0.DT_INI)or (DT_FIN > Bloco_0.DT_FIN) then raise Exception.Create('A data final está fora do periodo do EFD!'); Atribuo a DT_INI e DT_FIN no ACBrSPEDFiscal, conforme código abaixo: with ACBrSPEDFiscal1 do begin DT_INI := DateOf(dtInicial.Date); DT_FIN := DateOf(dtFinal.Date); //DT_INI := StrToDate('01/01/2019'); //DT_FIN := StrToDate('31/01/2019'); end; No registro K100 estou atribuindo os valores assim: with RegistroK100New do begin DT_INI := DateOf(QrySelect.FieldByName('DT_INI').AsDateTime); DT_FIN := DateOf(QrySelect.FieldByName('DT_FIN').AsDateTime); ... end; Na Imagem abaixo podem ver no Watch List os valores e ver que mesmo retornando False ele entra no if: Alguma dica do que posso estar fazendo errado? Obrigado. Marcelo Ferreira