Ir para conteúdo
  • Cadastre-se

dev botao

Sped ECF Disponibilizado do Trunk2


  • Este tópico foi criado há 2835 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Moderadores

Desculpa, mas não vai ter um exemplo de como utilizar os blocos?

como tem no ACBrSPEDContabil e ACBrSPEDPISCOFINS

Como você já mencionou ele é igual, basta usar a mesma metodologia o componente é igual em seu funcionamento e preenchimento!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Desculpe, mas não localizei o ACBrECFBloco_T

Está ali os escopos!

se quiser arregaçar as mangas e contribuir fique a vontade! depois basta anexar aqui

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

Boa tarde, no ACBrECFBloco_M_Class.pas na procedure TBloco_M.WriteRegistroM300(RegM030: TRegistroM030); está assim:

with RegM030.RegistroM300.Items[intFor] do
      begin
        Add(LFill('M300')          +
            LFill(DESCRICAO)          +
            LFill(DESCRICAO)
      +
            LFill(TIPO_LANCAMENTO) +
            LFill(IND_RELACAO)     +
            VLFill(VALOR,19,2)      +
            LFill(HIST_LAN_LAL));
      end;

 

Fiz a alteração no meu arquivo para liberar pro meu cliente. Na segunda linha, logo após o M300 troquei DESCRICAO por CODIGO

 

Outro erro que está acontencendo, é que ele está gerando uma data onde não tem data. 

Esta é a linha do registro gerado:

 

|M300|Provisões Não Dedutíveis|Provisões Não Dedutíveis|A|31121899|12,00||

 

já procurei em todo o componente, mas em lugar nenhum ele joga essa data. E no meu registro, ele 04  (Sem Relacionamento). Este campo seria o IND_RELACAO.

Link para o comentário
Compartilhar em outros sites

Boa tarde, no ACBrECFBloco_M_Class.pas na procedure TBloco_M.WriteRegistroM300(RegM030: TRegistroM030); está assim:

with RegM030.RegistroM300.Items[intFor] do
      begin
        Add(LFill('M300')          +
            LFill(DESCRICAO)          +
            LFill(DESCRICAO)
      +
            LFill(TIPO_LANCAMENTO) +
            LFill(IND_RELACAO)     +
            VLFill(VALOR,19,2)      +
            LFill(HIST_LAN_LAL));
      end;

 

Fiz a alteração no meu arquivo para liberar pro meu cliente. Na segunda linha, logo após o M300 troquei DESCRICAO por CODIGO

 

Outro erro que está acontencendo, é que ele está gerando uma data onde não tem data. 

Esta é a linha do registro gerado:

 

|M300|Provisões Não Dedutíveis|Provisões Não Dedutíveis|A|31121899|12,00||

 

já procurei em todo o componente, mas em lugar nenhum ele joga essa data. E no meu registro, ele 04  (Sem Relacionamento). Este campo seria o IND_RELACAO.

Boa tarde,

Primeiramente, você está com os fontes atualizados?

estes erros já foram corrigidos, mas o caso da data, coloca lfill(ind_relacao, 0)

Link para o comentário
Compartilhar em outros sites

Boa tarde, no ACBrECFBloco_M_Class.pas na procedure TBloco_M.WriteRegistroM300(RegM030: TRegistroM030); está assim:

with RegM030.RegistroM300.Items[intFor] do
      begin
        Add(LFill('M300')          +
            LFill(DESCRICAO)          +
            LFill(DESCRICAO)
      +
            LFill(TIPO_LANCAMENTO) +
            LFill(IND_RELACAO)     +
            VLFill(VALOR,19,2)      +
            LFill(HIST_LAN_LAL));
      end;

 

Fiz a alteração no meu arquivo para liberar pro meu cliente. Na segunda linha, logo após o M300 troquei DESCRICAO por CODIGO

 

Outro erro que está acontencendo, é que ele está gerando uma data onde não tem data. 

Esta é a linha do registro gerado:

 

|M300|Provisões Não Dedutíveis|Provisões Não Dedutíveis|A|31121899|12,00||

 

já procurei em todo o componente, mas em lugar nenhum ele joga essa data. E no meu registro, ele 04  (Sem Relacionamento). Este campo seria o IND_RELACAO.

Boa tarde,

Primeiramente, você está com os fontes atualizados?

estes erros já foram corrigidos, mas o caso da data, coloca lfill(ind_relacao, 0)

Obrigado pela resposta rápida. 

Respondendo à sua pergunta, eu tinha acabado de atualizar meus fontes pelo svn, e não tinha correção para esta função. 

Realmente era o LFILL, porém o LFILL passado estava como parâmetro TDateTime. Troquei para pegar o LFILL que tem como parâmetro o Int64. 

Acabei de rodar o sped novamente e funcionou. 

Se puderem dar uma olhada nos fontes só pra confirmar, agradeceria.

Mais uma vez, obrigado pela resposta rápida.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Alguem sabe se vai ter o exemplo e o componente para passar o ECF?

O componente já existe, é justamente isso que está no título do tópico, basta instalar pelo trunk2o o instalador acbr).

Quanto ao exemplo provavelmente por enquanto não vai ter mas segue o padrão dos outros componente e em uma das páginas iniciais do tópico tem um exemplo de código em Delphi que coloquei.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

bom dia pessoal o Registro 0035 não está inserindo os dados,

ele gera o registro somente com a Reg 0035 e os outros dois campo vazios.

minha implementação está assim.

while not Qry_SCP.Eof do
               begin
                  with Registro0035New do
                  begin
                     COD_SCP := DM_Funcoes.StrZero(Qry_SCPCOD_PESSOA.Value,14);
                     NOME_SCP := Qry_SCPNOM_PESSOA_2.Value;
                  end;
                  Application.ProcessMessages;
                  Qry_SCP.Next;
               end;

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Você está no trunk2?

senão estiver não vai adiantar ! deve de estar perto do décimo post que tu fala isso mas já prestou atenção no que perguntei!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

boa tarde pessoal, ainda não consegui fazer o gravar o Registro0035

alguém tem alguma ideia de o pq ele não traz nada nas variáveis fcod_scp e fnome_scp

nesta function

function TRegistro0035List.New: TRegistro0035;
begin
  Result := TRegistro0035.Create;
  Add(Result);
end;

sendo que está sendo informado valores pra elas?

Link para o comentário
Compartilhar em outros sites

Meu amigo, se ninguém te respondeu ainda é bem provável que ninguém tenha feito, então não gaste seu tempo em ficar toda hora enchendo o fórum com a mesma pergunta, ponha a mão na massa e faça você mesmo com o tempo gasto em ficar toda hora perguntando.

O Código dos outros estão ai, estude de desenvolva, e se quiser disponibilize como contribuição se não quiser fique só para você.  

  • Curtir 2

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link para o comentário
Compartilhar em outros sites

boa tarde pessoal, ainda não consegui fazer o gravar o Registro0035

alguém tem alguma ideia de o pq ele não traz nada nas variáveis fcod_scp e fnome_scp

nesta function

function TRegistro0035List.New: TRegistro0035;
begin
  Result := TRegistro0035.Create;
  Add(Result);
end;

sendo que está sendo informado valores pra elas?

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?

 

Link para o comentário
Compartilhar em outros sites

sim estou,

estou usando assim:

while not Qry_SCP.Eof do
               begin
                  with Registro0035New do
                  begin
                     COD_SCP := DM_Funcoes.StrZero(Qry_SCPCOD_PESSOA.Value,14);
                     NOME_SCP := Qry_SCPNOM_PESSOA_2.Value;
                  end;
                  Application.ProcessMessages;
                  Qry_SCP.Next;
               end;

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2835 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.