Isaque Pinheiro

Para vc fazer replicação, terá que adquirir uma ferramenta paga, mas no Firebird exite uma comando que da para fazer a replicação de forma simples, unindo esse comando junto com um desenvolvimento RTTI, no delphi se consegue fazer um utilitário de replicação. veja o exemplo do comando do firebird no meu blog http://isaquesp.blogspot.com.br/2010/03/firebird-update-or-insert-into.html

a final, o problema foi ou não resolvido deste post, não entendi.

olhei no guia Prático e no fonte do Sped Pis/Cofins e la ta tudo certo, vc olhou no TXT se ta gerando a informação corretamente? Dê uma olhada e post o screen do erro que o validador acusa.

Vc usa qual banco de dados ?

passe o trecho do código de como vc alimenta os dados

Todas as versões lançadas, são verificadas, uso o Microsoft Security Essentials, atualizadíssimo, pois meu windows é original e recebo todas as atualizações. Isso não quer dizer que ele é o melhor, nem imbatível, então como o Daniel citou, verifique o link e tente olhar em outra maquina com outro antivírus, pois pode realmente ser um falso positivo, como citado pelo Régys. Uma obs, vc foi o primeiro a citar essa situação, isso é mais um motivo para que vc busque uma alternativa para tirar a dúvida se é realmente verdadeiro o que o NORTON está te informando. Ficamos no aguardo.

Para que o bloco P seja gerado, o registro 0145, tem que existir, vc já leu isso no Guia Pratico? Verifique, se não é isso.

Não tire a referencia, baixe a atualização que subi.

No Guia Pratico diz: Campo 11 - Preenchimento: Informar neste campo o Código Fiscal de Operação – CFOP, relativo às operações consolidadas neste registro O componente está retornando 0000, porque vc não esta passando o CFOP, e sim deixando em branco, qual o motivo ou situação por deixar em branco ?

Subi a correção, baixe e teste, em seguida nos de um retorno se funcionou.

Luiz, deve ser a forma da qual vc está chamando a criação dos registros no seu código, se possível post, somente o código que vc escreveu desses registros.

Obrigado pela contribuição, e já está disponível no SVN.

Baixei para analise, já vi que terei que ajustar para que tenha mais o padrão ACBr, passando esses feriadões darei uma atenção e ajustes para que possa subi-lo para a pasta Branches.

Irei analisar essa situação amanhã, e post em seguida a resposta.

Se SP não é obrigatório, qual a necessidade de você gerar isso no seu sistema? Mas se você ta desenvolvendo um sistema PAF-ECF para ser usado em outro estado, precisará abrir um empresa com CNPJ.

Caetano : 1a pergunta : Para gerar o Hash vc pode usar o componente ACBrEAD, nele tem um método que vc passa strings e ele retorna o hash, lembre-se de junto aos campos concatenados que vc irá passar para esse método, concatenar junta uma chave privada criado por vc, essa chave serva para que ninguém, crie um utilitário que gere o hash novamente após ter mexido na base de dados, pois se isso for feito seu sistema irá identificar. 2a perganta : Não ficou bem clara pois vc não informou o ponto onde gera esse hash, mas vou explicar como pode ser feito. Na PV ou DAV, não exite excluir itens para o PAF e sim cancelar No Estoque, o PAF exige que vc tenha o estoque inicial do dia, esse estoque deve ser guardado pelo 1o caixa aberto, então isso quer dizer que vc irá pegar o estoque do inicio do dia guaradar em outro campo e gerar o hash desse campo (ex: EstoquePAF) e não mexer mais até o dia seguinte, e por sua vez o seu sistema baixa o estoque normalmente, do campo de estoque. Interpretei que sua dúvida era essa.

Corrigido e já disponível no repositório, é só baixar e atualiza seus fontes. Obrigado.

Verifique se as units ACBrEPCBlocos.pas e ACBrSpedUtils.pas, esta mostrando um exclamação, se tiver ela pode não ter sido atualizada, exclua elas e faz a atualização novamente, pra vê

Sérgio, boa iniciativa pela conversão dos fontes para lazarus, mas uma dica, de o crédito também a empresa que desenvolveu o projeto em delphi D2010, que é a T2ti, a qual sou consultor do projeto PAF-ECF deles. A T2ti, mantem um curso a qual estão desenvolvendo um ERP completo, onde inclui Sistemas Gerencial, Folha, Contabilidade, Fiscal e o PAF-ECF, a empresa já homologou o PAF-ECF com os fontes atuais e também homologação do TEF. Quem quiser saber mais sobre o curso, e te-lo como aprendizado e quem sabe como um futuro produto completo para seu negócio, poderá acessar em http://www.t2ti.com/ Nota: Apesar do curso estar bem adiantado, vocês poderão ainda entrar no curso e ter direito de todos os fontes desenvolvidos até hoje.

Veja um esqueleto geral para olhar e vê se tem algo errado no seu código. class procedure SPED_GeraBloco_M; begin with SPEDPisCofins do begin //@@ // Preenchimento do BLOCO M with Bloco_M do begin // NIVEL 1 //@@ // Registro M001 - ABERTURA DO BLOCO M with RegistroM001New do begin IND_MOV := imComDados; // NIVEL 2 //@@ // Registro M100 - CRÉDITO DE PIS/PASEP RELATIVO AO PERÍODO with RegistroM100New do begin // NIVEL 3 //@@ // Registro M105 - DETALHAMENTO DA BASE DE CALCULO DO CRÉDITO APURADO NO PERÍODO – PIS/PASEP with RegistroM105New do begin end; // NIVEL 3 //@@ // Registro M110 - AJUSTES DO CRÉDITO DE PIS/PASEP APURADO with RegistroM110New do begin end; end; // NIVEL 2 //@@ // Registro M200 - CONSOLIDAÇÃO DA CONTRIBUIÇÃO PARA O PIS/PASEP DO PERÍODO with RegistroM200New do begin // NIVEL 3 //@@ // Registro M210 - DETALHAMENTO DA CONTRIBUIÇÃO PARA O PIS/PASEP DO PERÍODO with RegistroM210New do begin // NIVEL 4 //@@ // Registro M211 - SOCIEDADES COOPERATIVAS – COMPOSIÇÃO DA BASE DE CALCULO – PIS/PASEP with RegistroM211New do begin end; // NIVEL 4 //@@ // Registro M220 - AJUSTES DA CONTRIBUIÇÃO PARA O PIS/PASEP APURADA with RegistroM220New do begin end; // NIVEL 4 //@@ // Registro M230 - INFORMAÇÕES ADICIONAIS DE DIFERIMENTO with RegistroM230New do begin end; end; end; // NIVEL 2 //@@ // Registro M300 - CONTRIBUIÇÃO DE PIS/PASEP DIFERIDA EM PERÍODOS ANTERIORES – VALORES A PAGAR NO PERÍODO with RegistroM300New do begin end; // NIVEL 2 //@@ // Registro M350 - PIS/PASEP – FOLHA DE SALÁRIOS with RegistroM350New do begin end; // NIVEL 2 //@@ // Registro M400 - RECEITAS ISENTAS, NÃO ALCANÇADAS PELA INCIDÊNCIA DA CONTRIBUIÇÃO, // SUJEITAS A ALÍQUOTA ZERO OU DE VENDAS COM SUSPENSÃO – PIS/PASEP with RegistroM400New do begin // NIVEL 3 //@@ // Registro M410 - DETALHAMENTO DAS RECEITAS ISENTAS, NÃO ALCANÇADAS PELA INCIDÊNCIA DA // CONTRIBUIÇÃO, SUJEITAS A ALÍQUOTA ZERO OU DE VENDAS COM SUSPENSÃO – PIS/PASEP with RegistroM410New do begin end; end; // NIVEL 2 //@@ // Registro M500 - CRÉDITO DE COFINS RELATIVO AO PERÍODO with RegistroM500New do begin // NIVEL 3 //@@ // Registro M505 - DETALHAMENTO DA BASE DE CALCULO DO CRÉDITO APURADO NO PERÍODO – COFINS with RegistroM505New do begin end; // NIVEL 3 //@@ // Registro M510 - AJUSTES DO CRÉDITO DE COFINS APURADO with RegistroM510New do begin end; end; // NIVEL 2 //@@ // Registro M600 - CONSOLIDAÇÃO DA CONTRIBUIÇÃO PARA A SEGURIDADE SOCIAL - COFINS DO PERÍODO with RegistroM600New do begin // NIVEL 3 //@@ // Registro M610 - DETALHAMENTO DA CONTRIBUIÇÃO PARA A SEGURIDADE SOCIAL - COFINS DO PERÍODO with RegistroM610New do begin // NIVEL 4 //@@ // Registro M611 - SOCIEDADES COOPERATIVAS – COMPOSIÇÃO DA BASE DE CALCULO – COFINS with RegistroM611New do begin end; // NIVEL 4 //@@ // Registro M620 - AJUSTES DA COFINS APURADA with RegistroM620New do begin end; // NIVEL 4 //@@ // Registro M630 - INFORMAÇÕES ADICIONAIS DE DIFERIMENTO with RegistroM630New do begin end; end; end; // NIVEL 2 //@@ // Registro M700 - COFINS DIFERIDA EM PERÍODOS ANTERIORES – VALORES A PAGAR NO PERÍODO with RegistroM700New do begin end; // NIVEL 2 //@@ // Registro M800 - RECEITAS ISENTAS, NÃO ALCANÇADAS PELA INCIDÊNCIA DA CONTRIBUIÇÃO, // SUJEITAS A ALÍQUOTA ZERO OU DE VENDAS COM SUSPENSÃO – COFINS with RegistroM800New do begin // NIVEL 3 //@@ // Registro M810 - DETALHAMENTO DAS RECEITAS ISENTAS, NÃO ALCANÇADAS PELA INCIDÊNCIA DA // CONTRIBUIÇÃO, SUJEITAS A ALÍQUOTA ZERO OU DE VENDAS COM SUSPENSÃO – COFINS with RegistroM810New do begin end; end; end; end; end; end;

No método "WriteRegistroM001" em ACBrSpedPisCofins.pas linha 1828 "if Bloco_M.RegistroM001.IND_MOV = imComDados then" add um break point e veja se chegando la o valor de IND_MOV, continua "imComDados" Add o trecho do código, onde você cria o registro M200

Justamente pelo motivo de vc não esta definindo que o bloco M é sem dados |M001|1| deve ser |M001|0| Quando vc começar a preencher o bloco M, defina a propriedade IND_MOV := imComDados;

Quando você compra e ganha um desconto, descontos até diferenciados quando faz compras de fornecedores diferentes, nessa compra esse desconto faz parte do calculo final certo? Então um bonificação tb faz parte, considere que ela seja como um desconto, sendo assim entra na média geral normalmente no meu entendimento.

Feito, obrigado.

Muito bom isso, valeu pela informação.