Ir para conteúdo
  • Cadastre-se

arielguareschi

Membros
  • Total de ítens

    33
  • Registro em

  • Última visita

Posts postados por arielguareschi

  1. 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?

     

  2. 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)

  3. 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

    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

  4. Bom dia!

    Alguém que está diretamente envolvido com o Projeto ECF poderia informar quais os registros faltam ?

    o componente já atende a todos?

    Pergunto pois não estou utilizando ele

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

  5. boa tarde Pessoal fui gerar um arquivo para teste e validação, encontrei dois problemas,

    um no campo Registro0020New.IND_QTE_SCP que não sei o pq mesmo informando a quantidade de 4 ele grava uma qtd absurda de 03011900

    outro é o registro Registro0035, que mesmo sendo informado não é gerado no arquivo.

    infelizmente não manjo muito para ajudar a arrumar isto.

    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.

  6. 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')

     

     

     

  7. *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

  8. *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.

     

     

     

     

     

     

     

     

  9. 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;

     

  10. 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.

  11. Olá arielguareschi e outros,

       A questão é simplesmente que você pode ver muitas pessoas falando que estão dispostas para ajudar, mas poucas baixam o componente e postam aqui as alterações que fizeram. Infelizmente, não temos todo o tempo que seria necessário para poder implementar tudo sozinhos. Assim ficaríamos muito felizes com as contribuições.

       Espero que minha mensagem não tenha parecido nem pareça agora ríspida. Apenas espero que entendam que tipo de atitude não queremos aqui no fórum.

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

×
×
  • 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.