Isaque Pinheiro

Entrada de NF só deve alterar o CFOP, todos os CST devem ser o mesmo da NF, inclusive seu sistema deve recalcular a NF e checar se ela esta correta pelos cálculos emitidos pelo seu fornecedor, isso é uma obrigação e não uma opção tipo: Acontece de cliente meu receber uma NF com a CST 00 e a base de calculo da nota zerada por motivo do fornecedor estar no simples, isso é erro de emissão pois se esta no simples a CST deve ser 041. Teremos muita dor de cabeça ainda como mostra esse link http://www.joseadriano.com.br/profiles/blogs/mt-sped-nf-e-sefaz-identifica-irregularidades-em-120-mil-notas-el

tive alguns problemas tb tenho o mesmo modelo de ECF que o seu, o que fiz, foi variar os intervalos tipo um dia, de pois dois dias e assim até conseguir, e como falei não tente buscar o dia que esta aberto.

Estou no WinXP. Fiz exatamente como você sugeriu, no entanto, também não funcionou. Mais alguma sugestão? Obrigado. qual erro ta dando, anexe o screen aqui

vc esta selecionando por Data ou COO ? - Se estiver usando Win7 ou Vista rode a sua aplicação como ADM - Tente variar os intervalos - Intervalos menores e diferentes tipo 5, 10, 15 dias - Não buscar o movimento do dia em que o ECF esteja aberto

Impressora: Daruma Modelo: FS700 Obrigado. Houve uma atualização no ACBr para trabalhar com a nova DLL da Daruma, essas DLLs estão na pasta, "ACBr\Projetos\DemoDaruma\bin", va nessa pasta e pegue todas as DLLs e coloque no mesmo diretório de sua aplicação. Abraço

Disponível no SVN.

Coloque o CNPJ do estabelecimento.

Com alguns ajustes, estão no SVN.

Na verdade esse registro G126, não precisa ter esses parâmetros, pois podemos pega-los direto do bloco, a mesma coisa para o registro G110 subi as alterações, de uma olhada para vê se atende. Abraço

Então Marcelo, se temos todas informações no xml, então pense em direcionar a importação do xml para dar entrada na NF de entrada do seu sistema, desse jeito vc agiliza o trabalho do seu cliente e ainda tem todas as informações no seu DB, para gerar o SPED, isso é o que eu faço. Abraço

Ola, realmente seria uma maravilha poder pegar o xml para gerar o sped, mas não é tão simples assim vou dar alguns exemplos pra vcs irem avaliando: 1o CFOP que vem no xml, não é o mesmo que será lançado como CFOP de entrada 2o Na entrada seu sistema terá que fazer os rateios de Frete, Desconto, Despesas Acessórias, Seguro para apurar se a NF esta correta, e esses rateios não existem no xml Isso foi o que lembrei por alto, o que é mais certo e ter essas informações em seu banco de dados e por sinal bem apurados, pois é nossa (cliente) obrigação conferir se a nota fiscal foi impressa de forma correta pelo fornecedor. Os sistemas tem a obrigação de apurar tudo e por consequência, guardar esses dados em DB, preencher SPED, não é só pegar os dados do xml como eles vieram e jogar para ele, haverá cruzamento de dados para se chegar aos valores que tem no xml. Abraço

Vc não precisa sair chamando método a método "WriteBloco_?", bas ta chamar o método "SaveFileTXT", ele internamente chama todos os métodos de escrita de todos os blocos. Bom o Bloco G realmente tem um data limite para sua geração segundo o manual, que é a partir de 01/01/2011, então o que deve ser feito é parecido com isso: with ACBrSPED do begin OnError := ShowErrosSPED; // Data Inicial e Final DT_INI := edtDateI.Date; DT_FIN := edtDateF.Date; **** Aqui chama a rotina para alimentar todos [b]blocos necessários[/b], com suas informações **** // Gera o arquivo. Arquivo := 'Arquivo.txt'; Path := 'C:\'; // Salva os registros em TXT. SaveFileTXT; end; [/code] Esses componentes tb usam DLLs, "libeay32.dll" e "libseppemv.dll", nas pastas do projeto tem um demo de como gerar sua chave e usar a assinatura pelo ACBrEAD, de uma estudada no demo.

Vc não precisa sair chamando método a método "WriteBloco_?", bas ta chamar o método "SaveFileTXT", ele internamente chama todos os métodos de escrita de todos os blocos. Bom o Bloco G realmente tem um data limite para sua geração segundo o manual, que é a partir de 01/01/2011, então o que deve ser feito é parecido com isso: with ACBrSPED do begin OnError := ShowErrosSPED; // Data Inicial e Final DT_INI := edtDateI.Date; DT_FIN := edtDateF.Date; **** Aqui chama a rotina para alimentar todos [b]blocos necessários[/b], com suas informações **** // Gera o arquivo. Arquivo := 'Arquivo.txt'; Path := 'C:\'; // Salva os registros em TXT. SaveFileTXT; end; [/code]

Bastava: AcbrSpedFiscal.DT_INI:= edtDe.Date; AcbrSpedFiscal.DT_FIN:= edtAte.Date; internamente o componente atribui o valor a todos os blocos, inclusive ao Registro0000. procedure TACBrSPEDFiscal.SetDT_INI(const Value: TDateTime); begin FDT_INI := Value; FBloco_0.DT_INI := Value; FBloco_1.DT_INI := Value; FBloco_9.DT_INI := Value; FBloco_C.DT_INI := Value; FBloco_D.DT_INI := Value; FBloco_E.DT_INI := Value; FBloco_G.DT_INI := Value; FBloco_H.DT_INI := Value; if Assigned(FBloco_0) then begin FBloco_0.Registro0000.DT_INI := Value; end; end; [/code]

Basta AcbrSpedFiscal.DT_INI:= edtDe.Date; AcbrSpedFiscal.DT_FIN:= edtAte.Date; internamente o componente atribui o valor a todos os blocos FDT_INI := Value; FBloco_0.DT_INI := Value; FBloco_1.DT_INI := Value; FBloco_9.DT_INI := Value; FBloco_C.DT_INI := Value; FBloco_D.DT_INI := Value; FBloco_E.DT_INI := Value; FBloco_G.DT_INI := Value; FBloco_H.DT_INI := Value; if Assigned(FBloco_0) then begin FBloco_0.Registro0000.DT_INI := Value; end; [/code]

Merge feito

Merge feito.

Merge feito

Vou mudar essa propriedade para receber String, assim podemos deixa-la em branco, dou o retorno aqui.

Merge feito.

Merge feito.

Já fiz o merge.

Existe um 4o parametro na função LFill que é "Nulo", se no campo que vc quiser que retorne em branco e não zerado, tem que alimentar esse parametro ex: LFill( ALIQ_PIS_QUANT,0,2 ) deve ser LFill( ALIQ_PIS_QUANT,0,2,True ) Mude seu código, funcionando anexe aqui que eu subo a alteração para o SVN.

Existe um 4o parametro na função LFill que é "Nulo", se no campo que vc quiser que retorne em branco e não zerado, tem que alimentar esse parametro ex: LFill( VL_ISS,0,2 ) deve ser LFill( VL_ISS,0,2,True ) Mude seu código, funcionando anexe aqui que eu subo a alteração para o SVN.

Ok, verei com o Daniel ,qual existe no Lazarus para manter compatível ambas linguagens Resolvido, olhei em D7 e Lazarus todos tem AnsiMatchText, então é a que usaremos.