arielguareschi

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.

Se ajudar, pessoal os blocos C e E, nao precisa gerar eles pois vão ser importados pelo validador, estou neste momento acertando o bloco J no mesmo padrão do bloco 0

Bom dia, já tenho alguns implementados, para empresa de lucro real, estou testando e lhes informo sobre a situação do mesmo.

Encontrei no outro post, que foi postado o componente com a implementação dos demais blocos, estou testando-o agora.

Boa tarde, entendo sua parte, existe algo que seja a prioridade para darmos um gás e concluir, alguma rotina para que seja priorizada?