Isaque Pinheiro

Isso já foi corrigido, favor conferir e relatar se houver algum problema.

Ola, isso já foi corrigido.

Olá, agradeço os esforços de vcs, estou sufocado de serviços, claro que isso não pe novidade para ninguem que trabalha com desenvolvimento, mas baixei as units, e semana que vem darei uma olhada dando assim alguns passos a mais para termos a 1a versão.

Graça, no fonte tem pontos que é checado a versão para gerar o registro correto, mas não tenho certeza que foram feitos para todos os registros dessa versão. Procure no fonte pelo tipo de versão que irá encontrar como foi implementado, e caso haja necessidade de implementar outros registro, é só me mandar depois, anexando eles aqui.

Obrigado Juliomar, já subi para o SVN.

Resolvido, e já no SVN.

with RegistroC405New do begin DT_DOC := Date; with RegistroC460New do begin DT_DOC := Date; end; end; [/code]

Tem que, selecionar a Versão 103 do layout.

Obrigado, e desejo o mesmo para vc e seus familiares.

Corrigido, já esta disponivel no SVN.

Ei Claudio, filé, só faltou os metodos Create e Destroy, mas implementei em todos, já ta no SVN. Agora, assim que sobrar um tempo vou começar os Blocos_?_Class Abs

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

Parabéns Fernando, vc faz parte tb desse sucesso que é o projeto ACBr, e fico feliz que fazer parte do seu sucesso, e dizer que não tem dinheiro nenhum que pague o reconhecimento que vc esta tendo ao ACBr. Abraço

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

Ola Adriano, na unit ACBrEFDBlocos.pas tem o tipo TACBrVersaoLeiaute, onde podemos add, mais versões, o que temos que fazer é saber a diferença, do que já tem hoje para a nova versão e fazer um IF. vamos pegar o E113, como base então: /// Versão do leiaute do arquivo. if FBloco_0.Registro0000.COD_VER = vlVersao102 then begin Add( LFill('E113') + LFill( COD_PART ) + LFill( COD_MOD ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( CHV_NFE ) + LFill( COD_ITEM ) + LFill( VL_AJ_ITEM,0 )) ; end else if FBloco_0.Registro0000.COD_VER = vlVersao103 then begin Add( LFill('E113') + LFill( COD_PART ) + LFill( COD_MOD ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( COD_ITEM ) + LFill( VL_AJ_ITEM,0 )) ; end; end; [/code] Fiz um IF, completo, mas se alguem tiver uma idéia que de para simplificar a escrita, validando as versões, será bem vinda. Faça os ajusates e anexe as units, já com as modificações, que eu pego e subo para o SVN. Grande abraço

Temos que ajustar, para que atenda as mudanças, mas que continue atendendo as versões anteriaores. Terei que fazer com tempo, se alguem se dispuser, agradeço, senão teremos que esperar eu terminar o ACBrPisCofins Desde já agradeço Abs

Gutierres, obrigado pela contribuição, valeu mesmo. Abs

Obrigado Elton

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

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

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

Sim, sou muito grato Paulo pelo que já fez. Abs e boa viagem

Paulo, mesmo assim temos que cria-lo, ele é um bloco de totalizações, deste componente. Abs Pela união de todos, esta saindo rapido o componente, e com varias pessoas cada um fazendo um, ficou pesado para mim, concluir sozinho todos de forma rápido, se alguem tiver interesse, posso explicar como implementar as hierarquias, vejo algo positivo nisso, pois assim vcs que estão ajudando, estão tendo uma visão geral de como funciona todos componentes SPED, e PAF, possibilitando a vcs o aprendizado de caso haja uma necessidae fazer as correções ou implementações necessárias. Se houver interesse, ao terminarmos todos os Blocos e seus registros, passo como implementar a hierarquia, fico no aguardo do retorno de interesse, em aprender. Abraço a todos a parabéns, aos que dispuseram, to seu tempo a ajudar, fiquei muito feliz com o retorno de vcs.

Paulo, mesmo assim temos que cria-lo, ele é um bloco de totalizações, deste componente. Abs

Opa, rapido heim, valeu. Blocos que ainda restam a ser feito: Bloco 0 (zero) Bloco D Bloco 1 Bloco 9