arielguareschi

Testei aqui e ficou ok! Muito obrigado!

Para a primeiro mesmo realizando a configuração por ultimo não acatava, mas se realizar o teste e mesmo assim der certo de boa. AcbrDeb.Configuracoes.Geral.CNPJEmpresa := EmpresaCnp; AcbrDeb.Configuracoes.Geral.LayoutVersao := lv5; AcbrDeb.Configuracoes.Geral.Banco := oBanco; AcbrDeb.LerTxtRetorno(EditRetorno.FileName); if AcbrDeb.Arquivos.Count > 0 then Com relação ao segundo item ele informa nas 3 primeiras posições o convenio. Inclui em anexo o manual do banco. Layout Debito Automatico - Versao 05_V1.3.pdf

A primeira ele não estava setando o provider na hora de gerar o arquivo, e a segunda é que para fazer a leitura do arquivo no caso do Sicredi ele não possui o código do banco no arquivo, por isso modifiquei para que caso já tenha atribuído o banco na hora de carregar o componente, ele não troca o provider.

Segue em anexo os arquivos alterados para que seja possível realizar a implementação do banco Sicredi. Foi implementando seguindo os padrões estabelecidos, e também ajustado pois a descrição da mensagem de retorno do banco, esta juntando todos cada linha importada. ACBrDebitoAutomatico.rar

Agora sim esta certo. ACBrECFBloco_Y_Class.pas

Boa tarde, o bloco Y800 estava gerando sempre mesmo se nao informado, isso gerava um erro no validador, corrigi para gerar somente quando tiver conteúdo no registro. ACBrECFBloco_Y_Class.pas

Bom dia Carlos, Esta função que você citou, ela cria um registro do tipo 0035 e não precisa as variáveis, você esta usando a função Registro0035new?

Boa tarde, Primeiramente, você está com os fontes atualizados? estes erros já foram corrigidos, mas o caso da data, coloca lfill(ind_relacao, 0)

Segue a correção do bloco M para gerar corretamente. ACBrECFBloco_M_Class.pas

Boa tarde Pessoal, Revisei a indentação de todas as classes para seguir o padrão utilizado pela ACBr. e implementei o bloco E, o mesmo esta gerando o arquivo. ACBrECFBloco_K.pas ACBrECFBloco_L.pas ACBrECFBloco_N.pas ACBrECFBloco_P.pas ACBrECFBloco_Y.pas ACBrECFBlocos.pas ACBrECFBloco_0.pas ACBrECFBloco_0_Class.pas ACBrECFBloco_9_Class.pas ACBrECFBloco_C_Class.pas ACBrECFBloco_E.pas ACBrECFBloco_E_Class.pas ACBrECFBloco_J.pas ACBrECFBloco_J_Class.pas ACBrECFBloco_K_Class.pas ACBrECFBloco_M_Class.pas ACBrECFBloco_M.pas ACBrECFBloco_U_Class.pas ACBrECFBloco_T_Class.pas ACBrECFBloco_P_Class.pas ACBrECFBloco_N_Class.pas ACBrECFBloco_L_Class.pas ACBrECFBloco_X_Class.pas ACBrECFBloco_Y_Class.pas ACBrSpedECF.pas

Bom dia Pessoal, No Bloco M -> Registro M010 o campo COD_TRIBUTO esta com o integer na versão que está no SVN, porém no manual o mesmo deve ser caractere [ I ; C ], alguém está mexendo neste bloco, que possa alterar a propriedade? ou posso mandar a correção?

Boa tarde Senhores, Segue as units do bloco C, implementado os métodos conforme o manual. Porém ainda não as testei, conforme já havia postado este registro deve ser importado de um sped contabil, tanto que alguns registro pedi até o número da linha em que este registro esta no arquivo. ACBrECFBloco_C_Class.pas ACBrECFBloco_C.pas Segue o arquivo ACBSpedECF, para poder totalizar os registros. ACBrSpedECF.pas

Boa tarde, Sim soh alterar o lfill

Alguém está mexendo no bloco M - Registro M010? fCOD_TRIBUTO tem que ser do tipo String e não Integer como está declarado.

Se não tem dados no bloco mesmo que não informado deve gerar ele vazio ou seja somente o registro 001 e o 990

Bom dia, parece-me que ainda faltam os blocos U e T que são para empresas de lucro arbitrado e imunes ou isentas.

Bom dia Carlos, Onde escreve o arquivo altere a função Lfill que deve estar assim lfill(IND_QTD_SCP) -> lfill(IND_QTD_SCP, 1) pois ele esta interpretando como data.

Boa tarde Senhores, Ao gerar o registro M300 e M350, o campo IND_RELACAO, está tratando como se fosse um campo data, ai para forçar ele ser inteiro usei o código dessa maneira: LFill(IND_RELACAO, 1, true, '0')

*Postando de novo com as correções. Segue os blocos X e Y, com os métodos para criar cada um no mesmo padrão dos outros blocos, com os contadores dos outros blocos. Os blocos, U e T apenas para poder gerar. ACBrECFBloco_U_Class.pas ACBrECFBloco_T_Class.pas ACBrECFBloco_Y.pas ACBrECFBloco_Y_Class.pas ACBrSpedECF.pas ACBrECFBloco_X.pas ACBrECFBloco_X_Class.pas

*Aguarde um pouco para baixar os arquivos, está com erro ao gerar, estou corrigindo-os e posto novamente Segue os blocos X e Y, com os métodos para criar cada um no mesmo padrão dos outros blocos, com os contadores dos outros blocos. Os blocos, U e T apenas para poder gerar.

Bom dia Pessoal, Estava implementando o bloco K, e um erro de List Index Out Of Bounds, estava ocorrendo, debugando o componente identifiquei nesta função onde ele pega o contador que seria do bloco 355, pega os registros 155, assim funcionou.: function TBloco_K.RegistroK356New: TRegistroK356; var UK355: TRegistroK355; UK030Count: integer; UK355Count: integer; begin UK030Count := FRegistroK001.RegistroK030.Count -1; UK355Count := FRegistroK001.RegistroK030.Items[UK030Count].RegistroK155.Count -1; if UK355Count = -1 then raise Exception.Create('O registro 1110 deve ser filho do registro 1105, e não existe nenhum 1105 pai!'); UK355 := FRegistroK001.RegistroK030.Items[UK030Count].RegistroK355.Items[UK355Count]; Result := UK355.RegistroK356.New(UK355); end;

Boa tarde, Segue os últimos arquivos de hoje, já gerando agora os registros do bloco K ACBrECFBloco_K_Class.pas ACBrSpedECF.pas

Boa tarde pessoal, Bloco C e E (gerando sem registros) e J gerando os registros, no mesmo padrão do bloco 0 e o AcbrSpedECF com as alterações para gerar. ACBrSpedECF.pas ACBrECFBloco_E_Class.pas ACBrECFBloco_C_Class.pas ACBrECFBloco_J_Class.pas

Então com isso dois blocos que não vão ser necessário implementar agora no começo.

Pelo validador do SPED ECF. Você vai ter que ter o SPED CONTABIL validado e assinado, e importar o mesmo no momento que for validar. Para empresas de lucro real somente vai ter que gerar os blocos: 0 - J - K - L - M - N - Y - 9 Os demais blocos devem ser gerados porem somente informando que não terão dados informados. |P001|1| - gerado indicando que não vão ter registros |P990|2| - contador de linhas do bloco ------------------------------------------------------------------------------------------ Para empresa de lucro Presumido: 0 - J - K - L - P - Y - 9 e assim por diante para lucro arbitrado, e imunes.