Marcelo Ferreira Taquari

Postamos com diferença de alguns minutos e eu realmente não apesar de ter procurado e não achado, então peço desculpas por isso, vou atualizar e colocar para funcionar. Obrigado por avisar.

Sim, eu verifiquei ele sim, mas também verifiquei que ele é nível 2 e 1:N e usando os exemplos de valores da documentação eu percebi que seriam 2 linhas de Q200 e com o componente eu não consegui fazer isso, ai na outra postagem o Willian Hübner mencionou que o Q200 seria totalizado automaticamente e que iria dar uma olhada nisso, olhando o código fonte percebi que ainda não está terminado mesmo então só fiz o alerta e coloquei aqui para que todos pudessem participar. Segue abaixo o trecho da documentação referente ao Registro Q200: Registro Q200: Resumo Mensal do Demonstrativo do Resultado da Atividade Rural Bloco preenchido com base nas informações do Bloco Q100. O campo Q200.SLD_FIN registra o saldo cumulativo até o mês, ou seja, registra o saldo dos lançamentos do mês acrescido do saldo final do mês imediatamente anterior da declaração. Exemplo: Q200|012019|10000000| 8500000| 1500000|PQ200|022019|7000000| 6000000| 2500000|P REGISTRO Q200: RESUMO MENSAL DO DEMONSTRATIVO DO RESULTADO DA ATIVIDADE RURAL Nível Hierárquico – 2 Ocorrência – 0:N Nº Campo Descrição Tipo Tamanho Decimal Valores Válidos Obrigatório 1 REG Texto fixo contendo a identificação do registro (Q200). C 4 - [Q200] Sim 2 MÊS Mês/ano da entrada ou da saída dos recursos. N 6 - - Sim 3 VL_ENTRADA Valor total de entrada dos recursos no mês. N 19 2 - Sim 4 VL_SAIDA Valor total de saída dos recursos no mês. N 19 2 - Sim 5 SLD_FIN Saldo Final até o mês N 19 2 - Sim 6 NAT_SLD_FIN Natureza do Saldo Final do mês (Negativo ou Positivo) C 1 - [N:P] Sim Q200|012019|10000000| 8500000| 1500000|P Q200|022019|9000000| 9300000| 1200000|P Q200: Identificação do tipo do registro. |012019: Mês de entrada/saída dos recursos (janeiro de 2019). |100000,00: Valor de entrada (R$ 100.000,00). |8500000: Valor de saída (R$ 85.000,00). |1500000: Saldo do mês (R$ 15.000,00). |P : indicador de que o saldo é positivo Q200: Identificação do tipo do registro. |022019: Mês de entrada/saída dos recursos (fevereiro de 2019). |90000,00: Valor de entrada (R$ 90.000,00). |9300000: Valor de saída (R$ 93.000,00). |1200000: Saldo do mês (-R$ 3000,00 do mês + 15.000,00 do saldo final de janeiro). |P : indicador de que o saldo é positivo

Boa tarde, O Registro Q200, não está atualizando corretamente os totais de acordo com o que analisei, na documentação indica que ele é nivel 2 e relação 1:N, fiz o teste com dados do documento e não foi totalizado. 0000|LCDPR|0001|11111111191|JOSÉ DA SILVA|0|0|29102019|01012019|31012019|CRLF 0010|0|CRLF 0030|RUA TESTE|1234|BLOCO Z SALA 301|BAIRRO LCDPR|DF|5300108|71000000|6133333333|[email protected]|CRLF 0040|1|BR|BRL|12345678|12345678901234|12345678901234|Fazenda Tudo Certo|Rodovia BR 999, Km 3000|||Distrito do Meio|DF|5300108|71000000|0|5000|CRLF 0045|1|1|12345678912|JOÃO DE SOUSA|520|CRLF 0050|1|BR|999|Banco LCDPR|1234|0000000123456789|CRLF Q100|02012019|1|1|2|3|Venda de 100 sacas de milho|12345678912|1|100000000|000|110000000|P|CRLF Q100|02012019|1|1|3|1|Pagamento de sementes e outros insumos|12345678000121|2|000|50000000|60000000|P|CRLF Q200|||000|000|000||CRLF 9999||||||9|CRLF

Legal Willian, vou fazer um teste aqui também com dados mais concretos, estou só iniciando. Obrigado e parabéns.

Bom dia, Estou usando o componente para o meu projeto, porém no Bloco Q Registro 200 eu não estou conseguindo adicionar mais de 1 registro em todo arquivo, verifiquei os fontes do componente e percebi que não existe o metodo New para o Q200, é assim mesmo? A documentação diz que é esse registro é nivel 2 e relação 1:N, então pode haver mais de 1 registro por arquivo.

Boa tarde Henrique, Eu também pensei em resolver dessa maneira, mas depois entendi que sem o registro K200 ele por alguma maneira que ainda não sei não valida essa informação, mesmo a DT_INI ou DT_FIN estar dentro do período necessário. Então preferi não mexer no código fonte o ACBr, pois isso pode ter problemas com novas atualizações. Abraço.

Já resolvi pessoal, se o registro K200 não tiver nenhum registro ele dá esse erro, o que faz sentido, pois nesse caso é SemDados, quando acertei o filtro para trazer os registros corretos do banco de dados passou. No entanto, fica uma observação cabulosa quanto ao Delphi (o que não é o objetivo desse grupo), o if estava retornando false com informações anteriores e mesmo assim ele entrava. Mas isso fica para outro debate. Obrigado.

Estou testando nesse momento, mas acredito que o problema era esse mesmo, o meu filtro não estava gerando nenhum registro K100 e por isso dava a divergência, apesar da incoerência do Delphi no Watch List em mostrar que o os valores estava corretos e a condição retornavam false e mesmo assim dava o exception. Mas alguns testes e já venho aqui comunicar o resultado.

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