ACBrSPEDPisCofins

[Isaque Pinheiro]

Isaque,

Me dediquei bastante hj pois a partir de amanhã e pela próxima semana vou viajar e não terei tempo nenhum de programar. Assim que voltar, ajudarei no que puder. Enquanto isso, espero que os colegas continuem o trabalho.

Obrigado.

Paulo Junqueira

http://www.rt1.com.br

Sim, sou muito grato Paulo pelo que já fez.

Abs e boa viagem

[crsdesenv]

Isaque hoje ainda vou postar o Bloco D e vou continuar na atividade o resto da semana, tenho interesse sim em ver como implementar o restante do componente

[crsdesenv]

ola Isaque, segue o Bloco D agora completo, amanha entro para ver quais faltam e farei pelo menos mais uns dois blocos

ACBrEPCBloco_D.pas

[crsdesenv]

nao vi ainda os blocos 1 e 9, entao vou fazer agora o bloco 1 agora, subo ele logo que terminar

[crsdesenv]

subindo o bloco 1

ACBrEPCBloco_1.pas

[crsdesenv]

Isaque,

estou subindo agora o bloco 9, fico no aguardo das pendencias, entro mais tarde para ver se voce ja disponibilizou alguma tarefa, veja se e nescessario alguma correção nas classes ja criadas ou se falta alguma,

abs.. e bom trabalho

Claudio Roberto de Souza.

ACBrEPCBloco_9.pas

[Isaque Pinheiro]

Isaque,

estou subindo agora o bloco 9, fico no aguardo das pendencias, entro mais tarde para ver se voce ja disponibilizou alguma tarefa, veja se e nescessario alguma correção nas classes ja criadas ou se falta alguma,

abs.. e bom trabalho

Claudio Roberto de Souza.

Pessoal, vou baixar todos os blocos, e prometo que assim que puder dou um retorno, só peço por gentileza que não me cobrem isso hj, acabei de bater meu carro, nada sério, só danos materiais, o qual o seguro cobre, mas deixa agente chateado.

Amanhã, volto a postar aqui alguam coisa até o final do dia.

Abs

[Isaque Pinheiro]

Isaque,

estou subindo agora o bloco 9, fico no aguardo das pendencias, entro mais tarde para ver se voce ja disponibilizou alguma tarefa, veja se e nescessario alguma correção nas classes ja criadas ou se falta alguma,

abs.. e bom trabalho

Claudio Roberto de Souza.

Pessoal, vou baixar todos os blocos, e prometo que assim que puder dou um retorno, só peço por gentileza que não me cobrem isso hj, acabei de bater meu carro, nada sério, só danos materiais, o qual o seguro cobre, mas deixa agente chateado.

Amanhã, volto a postar aqui alguam coisa até o final do dia.

Abs

Pessoal, estamos com todas as class criadas, estou dando uma lapidada, uma a uma, mas não estou conferindo se tem todos os campo ou não.

Em seguida, vou passar para vcs, como implementar a hierarquia, assim que puder ir ajudando.

Blocos criados:

Bloco_0

Bloco_1

Bloco_A

Bloco_C

Bloco_D

Bloco_F

Bloco_M

Bloco_9

Obrigado a todos

[Isaque Pinheiro]

Bem suvi para o SVN, todos os blocos, criados 0,1,A,C,D,F,M e 9.

Agora gostaria de pedir a vc a ajudar para definir os registros que receberão LISTAS, para sabermos quais serão listas iremos olhar no manual e observarmos o seguinte:

A coluna ocorrencia de todos os registros as seguintes opções

1 - esse não é uma lista

1:1 - esse não é lista

V - esse é uma lista

1:N - esse é uma lista

Blz, então os registros V e 1:N, temos que fazer a implementação deles para que sejam uma lista, vou dar um exemplo abaixo mostrando como foi implementado no RegistroA010, do bloco A:

  // REGISTRO A010: IDENTIFICAÇÃO DO ESTABELECIMENTO   
  TRegistroA010 = class

  private

    fCNPJ:Integer;    //02	Número de inscrição do estabelecimento no CNPJ.	N	014*	-

  public

     property CNPJ: Integer read FCNPJ write FCNPJ;

  end;


  /// Registro A010 - Lista  


  TRegistroA010List = class(TObjectList)

  private

    function GetItem(Index: Integer): TRegistroA010;

    procedure SetItem(Index: Integer; const Value: TRegistroA010);

  public

    function New: TRegistroA010;

    property Items[Index]: TRegistroA010 read GetItem write SetItem;

  end;

[/code]

Simples assim, então para cada registro que a ocorrencia seja V ou 1:N, temos que fazer a implementação da lista como mostrado no RegistroA010 acima.


Obs: o BLOCO A, eu já fiz


Para realizar as implementações, baixem as Units dos blocos do SVN, ao implementar a lista em um bloco, reanexe-o aqui no forum que eu pego, e subo para o SVN.


Após essas implementaçaões temos que implementar a hierarquia, passo seguinte do treinamento hehehehehe.


Abs, e eu vou terminando o Bloco A, e implementando o componente.


Abs

[crsdesenv]

legal vou baixar agora no SVN e começar pelo bloco 1, posto ele de volta aqui amanha

Abs

[crsdesenv]

Isaque, como não tenho custume em trabalhar com construção de componentes me perdi um pouco para endenter as classes, fiz duas para voce testar a do bloco 1 e do bloco 9, que sao pequenas, ficara mais facio de arrumar se eu estiver errado, vou começar a fazer agora o bloco C e posto ele amanha

ACBrEPCBloco_1.pas

[crsdesenv]

bloco 9

ACBrEPCBloco_9.pas

[crsdesenv]

bloco C

ACBrEPCBloco_C.pas

[crsdesenv]

comecei no bloco D agora

[crsdesenv]

subindo bloco D, nesta sexta-feira continuo nos outros blocos

ACBrEPCBloco_D.pas

[crsdesenv]

subindo bloco 0

ACBrEPCBloco_0.pas

[crsdesenv]

subindo bloco F

ACBrEPCBloco_F.pas

[crsdesenv]

estou escrevendo no bloco M envio mais tarde

[crsdesenv]

subindo o bloco M

ACBrEPCBloco_M.pas

[crsdesenv]

Isaque, estou dando uma estudada no sped fiscal e vi que tem uma unit so para definir os tipos la, vamos fazer uma nova para resolver os "TODO" que voce ja colocou em alguns e os que ainda falta mapear ou vamos acresentar este tipos la na mesma unit do EFD? sera que daria conflito com algum tipo da EFD? seria melhor criar outra Unit?

ate mais, vou começar a conferir no manual e nas unit para ver se falta algum campo em algumas delas,

abs.

Claudio

[crsdesenv]

Isaque criei um projeto vazio para depurar as classes e achei varios erros, fui arrumando o que pude ate compilar, tive que fazer algumas implmentações, e achei alguns campos que talves esteja faltando, comentei eles para compilar e agora com mais tempo vou reler todas as unit e o manual, segue as classes com as devidas correções

ACBrEPCBloco_0.zip

[Isaque Pinheiro]

Isaque criei um projeto vazio para depurar as classes e achei varios erros, fui arrumando o que pude ate compilar, tive que fazer algumas implmentações, e achei alguns campos que talves esteja faltando, comentei eles para compilar e agora com mais tempo vou reler todas as unit e o manual, segue as classes com as devidas correções

OK, amanhã vou dar uma geral e te dou um retorno.

Abraço

[vania]

Olá pessoal,

Tb preciso implementar o efd-pis/cofins em uma empresa e estou completamente perdida, mas mesmo assim gostaria de ajudar. Tem alguma coisa que eu possa fazer?

[crsdesenv]

oi Vania, estou estudando as classes do efd, a do pis confins vao ser nos mesmos moldes, o Isaque ja começou a faze-lo, estamos com as primeiras units feitas e em breve o Isaque ira revisar e subir para o svn, ai ele mesmo ira postar aqui o que falta para nos fazermos, no momento so estou me concentrando no manual do efd-pis/cofins para ver todos os tipos que temos que criar para as classes. mas e bom saber que teremos mais ajuda. apesar de ja ter sido prorrogado o prazo sera melhor ja termos o mesmo pronto antes do prazo final.

[Isaque Pinheiro]

oi Vania, estou estudando as classes do efd, a do pis confins vao ser nos mesmos moldes, o Isaque ja começou a faze-lo, estamos com as primeiras units feitas e em breve o Isaque ira revisar e subir para o svn, ai ele mesmo ira postar aqui o que falta para nos fazermos, no momento so estou me concentrando no manual do efd-pis/cofins para ver todos os tipos que temos que criar para as classes. mas e bom saber que teremos mais ajuda. apesar de ja ter sido prorrogado o prazo sera melhor ja termos o mesmo pronto antes do prazo final.

Cláudio, subi suas implementações para o SVN, adicionei tb uma unit "ACBrEPCBlocos.pas", essa unit, será onde iremos implementar todos os tipos que for necessário para o SPED Pis/Cofins.

Quero te agradecer, por sua imensa ajuda, não esta sobrando tempo, para mim produzir, final de ano vc sabe clientes novos, inventário, implantação de NFe, em vários clientes, pois aqui no ES não foi prorrogado para todos, enfim estou fazendo o que posso, e sua ajuda tem sido de grande valia.

Vi que vai ser preciso, dar uma geral em todas as class, pois tem propriedades sem a declaração de sua variável, vc até comentou, ai eu retirei seu comentário, para gente ir acertando logo, assim agente vê os erros.

Agora precisamos implementar a hierarquia, da class, o Bloco A, eu fiz e serve como exemplo, para quem puder ir ajudando, vou tentar explicar aqui como fazer a implementação, me baseando o Bloco A mesmo que já fiz:

A001 - Nivel - 1 - Esse é Pai

A010 - Nivel - 2 - Esse é filho do A001

A100 - Nivel - 3 - Esse é filho do A010

A110 - Nivel - 4 - Esse é filho do A100

A111 - Nivel - 4 - Esse é filho do A100

A120 - Nivel - 4 - Esse é filho do A100

A170 - Nivel - 4 - Esse é filho do A100

A990 - Nivel - 1 - Esse é Pai


Exemplo:

...

  TRegistroA001 = class(TOpenBlocos)

  private

    FRegistroA010: TRegistroA010List;

  public

    constructor Create; virtual; /// Create

    destructor Destroy; override; /// Destroy


    property RegistroA010: TRegistroA010List read FRegistroA010 write FRegistroA010;

  end;


...


{ TRegistroA001 }


constructor TRegistroA001.Create;

begin

  FRegistroA010 := TRegistroA010List.Create;

end;


destructor TRegistroA001.Destroy;

begin

  FRegistroA010.Free;

  inherited;

end;




[/code]

Observer que quando o numero do nivel aumenta ele, passa a ser filho do numero menor a ele proprio.


Abs