Pesquisar na Comunidade

Boa tarde. Realizando testes com a geração do arquivo do Livro Caixa do Produtor Rural (LCDPR), verifiquei que o componente não está gerando o arquivo com codificação UTF-8 conforme consta no manual do LCDPR no "Capítulo 2 – Dados Técnicos para Geração do Arquivo do LCDPR" página 4. Como no momento o componente não está utilizando a classe "TACBrTXTClass" pra geração da estrutura, eu fiz uma pequena e rápida alteração na unit "\Fontes\ACBrTXT\ACBrLCDPR\UACBrLCDPR.pas" para que o arquivo sempre seja gerado com codificação UTF-8. Obs.: Eu não vi a respeito, até porque o manual não fala nada sobre, mas caso seja necessário manter o BOM (Byte Order Marker) podem remover a linha adicionada no Create ou então passar o valor da propriedade WriteBOM para True. // Alteração no Create constructor TACBrLCDPR.Create(AOwner: TComponent); begin inherited; FBloco0000 := TRegistro0000.Create; FBloco0010 := TRegistro0010.Create; FBloco0030 := TRegistro0030.Create; FBloco0040 := TBlocos0040.Create; FBloco0050 := TBloco0050.Create; FBlocoQ := TBlocoQ.Create; FBloco9999 := TRegistro9999.Create; FDadosContador := TContador.Create; FConteudo := TStringList.Create; FConteudo.WriteBOM := False; // Salvar sem BOM FDelimitador := '|'; FArquivo := 'LCDPR'; end; //... // Alteração em SalvarBlocos procedure TACBrLCDPR.SalvarBlocos; begin FConteudo.SaveToFile(Path + Arquivo, TEncoding.UTF8); // Salvar com condificação UTF-8 end; Segue em anexo a unit "UACBrLCDPR.pas" com as alterações. Se puderem verificar para ser adicionado no svn, ok? Obrigado! UACBrLCDPR.pas

Bom dia, Estou usando o ACBrLCDPR fui validar o arquivo na Receita Federal para Transmissão e voltou com um erro: Pendencias_LCDPR_FULANO_01012019_31122019.txt-new.pdf

Boa tarde! Fiz algumas adequações para atender a documentação da versão 1.2, segue abaixo as descrições das implementações: Unit Registro0030 e UACBrLCDPR os comentários com a licença estava perdido no corpo do código, foi colocado logo no inicio. Unit RegistroQ200 necessário criar o registro como uma LISTA Unit BlocoQ o "FRegistroQ200: TRegistroQ200" tornou-se "FRegistrosQ200: TRegistroQ200List" Unit LCDPRBlocos - Foi necessário adicionar alguns tipos a mais para atender a documentação 1.2 e também foi alterados as funções que devolvem o STR para os valores de acordo com a documentação 1.2 TCodVer adicionado o valor Versao011 (o manual da receita é 1.2 mais no exemplo o valor estava com 011!) TTipoExploracao adicionado o valor teOutro TTipoContraparte adicionado o valor tpcOutro TTipoLanc, foi removido tlDespesaNaoDedutivel e tlAdiantamentos As funcões abaixo foi necessário, ajustar os valores para atender a documentação 1.2: function IndFormaApurToStr(IndFormaApur : TFormaApur) : String; function TipoExploracaoToStr(TipoExploracao : TTipoExploracao) : String; function TipoContraparteToStr(TipoContraparte : TTipoContraparte) : String; function TipoDocToStr(TipoDoc : TTipoDoc) : String; function TipoLancToStr(TipoLanc : TTipoLanc) : String; A constante "crFinal = 'CRLF'" foi atribuido o valor '', acredito que houve um equivoco porque no manual se refere aos caracteres "CR" (Carriage Return) e "LF" (Line Feed) correspondentes a "retorno do carro" e "salto de linha", respectivamente (CR e LF: caracteres 13 e 10, respectivamente, da Tabela ASCII) e criaram como uma STRING. Olavo. LCDPRBlocos.pas UACBrLCDPR.pas BlocoQ.pas RegistroQ200.pas Registro0030.pas

Boa tarde @EMBarbosa estou utilizando o componente recém criado e percebi uma inconsistência de informação no Bloco 0040 e também no Bloco 0045 no campo "Participação" que está como Integer sendo que o mesmo é do tipo Double, pois aceita 2 casas decimais. Teria como fazer essa alteração? REGISTRO 0040: CADASTRO DOS IMÓVEIS RURAIS Nível Hierárquico – 2 Ocorrência – 1:N Campo(s) chave: [REG] Nº Campo Descrição Tipo Tamanho Decimal Valores Válidos Obrigatório 1 REG Texto fixo contendo a identificação do registro (0040). C 4 - [0040] Sim 2 COD_IMÓVEL Código do Imóvel no LCDPR N 3 - - Sim 3 PAIS País Brasil = BR C 2 - - Sim 4 MOEDA Moeda = BRL C 3 - - Sim 5 CAD_ITR CAFIR (Com DV) N 8 - - Sim se imóvel localizado em zona rural e 0040.PAIS = BR 6 CAEPF Cadastro de Atividade Econômica da Pessoa Física (IN RFB nº 1.828/2018) N 14 - - Sim se 0040.PAIS = BR 7 INSCR_ESTADUAL Inscrição Estadual N 14 - - Não 8 NOME_IMÓVEL Nome do Imóvel C 50 - - Sim 9 ENDERECO Endereço do Imóvel C 150 - - Sim 10 NUM Número C 6 - - Não 11 COMPL Complemento C 50 - - Não 12 BAIRRO Bairro/Distrito C 50 - - Sim 13 UF Unidade Federativa (http://sped.rfb.gov.br/pasta/show/1932) C 2 - Tabela Sim se 0040.PAIS = BR 14 COD_MUN Código do Município (http://sped.rfb.gov.br/pasta/show/1932) C 7 - Tabela Sim se 0040.PAIS = BR 15 CEP Código de Endereçamento Postal (CEP) C 8 - - Sim se 0040.PAIS = BR 16 TIPO_EXPLORAÇÃO Tipo de Exploração do Imóvel: 1 – Exploração individual (Imóvel próprio) 2 - Condomínio 3 - Imóvel arrendado 4 - Parceria 5 - Comodato 6- Outros N 1 - [1;2;3;4;5;6] Sim 17 PARTICIPAÇÃO Participação em percentual na exploração do Imóvel N 5 2 - Sim