Rafa2012

Obrigado pela pronta resposta Juliomar. Ficou assim: caminhosalvoregistropaf := 'REGISTROS_DO_PAF_ECF_MENU_FISCAL.txt'; ACBrPAF.Path := '.\'; ACBrPAF.SaveFileTXT_RegistrosPAF(caminhosalvoregistropaf); O erro desapareceu, ele grava em outro caminho, agora salva dentro da pasta dos fontes, nas propriedades dele está conforme a imagem anexo, tem como determinar onde eu quero salvar o arquivo? No exemplo do ACBrPAF ele salva dentro do local da pasta do executável, precisaria salvar em uma subpasta, é possível? Rafa

Olá colegas, estou com o seguinte código: caminhosalvoregistropaf := ExtractFilePath(Application.ExeName)+'REGISTROS_DO_PAF_ECF_MENU_FISCAL.txt'; ShowMessage('Alimenta path'); ACBrPAF.Path := '.\'; ShowMessage('caminho salvo = '+caminhosalvoregistropaf); ACBrPAF.SaveFileTXT_RegistrosPAF(caminhosalvoregistropaf); Aqui apresenta o erro "I/O error 103". O que estou fazendo de errado pra ele apresentar essa mensagem? Detalhe, se eu deixar sem caminho algum ele não dá erro, porém salva no seguinte caminho: C:\Program Files (x86)\Embarcadero\RAD Studio\8.0\bin\ Só que em computadores que não tem o delphi instalado dá a mesma mensagem de erro "I/O error 103" Alguma dica do que estou fazendo errado? Rafa

Boa tarde pessoal Quando vou gerar os registros do bloco D, ele não gera corretamente o numero do dav no D3, repetindo todos igualmente. Também quando não á registro mesmo assim ele gera um D2 vazio. Segue como esta ficando. Vejam que ele esta repetindo o numero do DAV. O que faço de errado? Agradeço Rafa registro.txt

Olá Juliomar, obrigado pela resposta, infelizmente na versão 01.13 do paf-ecf fiz tudo manual, só usei o acbr pra impressão de cupom fiscal, agora gostaria de gerar todos arquivos pelo acbr que sem dúvida alguma é bem menos moroso, prova disso é a geração dos registros de paf-ecf do menu fiscal, na versão, pra ter ideia, o item do menu fiscal vendas no periodo não sofreu mudanças do paf 01.13 pra 2.01 então vou manter, mas devagar quero migrar, por isso do pedido de ajuda, conforme o Maiquel colocou pro Caetano achei os tipos, mas ele ainda não está gerando certo registros, olha o código como está: with ACBrLFD1.Bloco_A do begin DT_INI := StrToDate('01/09/2013'); DT_FIN := StrToDate('30/09/2013'); with RegistroA020New do begin IND_OPER := tplEntradaAquisicao; IND_EMIT := edlTerceiros; COD_PART := 'teste part'; COD_MOD := 'teste mod'; COD_SIT := sdlRegular; SER := '1'; SUB := 'xcvcxv'; NUM_DOC := 1; DT_DOC := DT_INI; COD_MUN_SERV := 101; COD_NAT := ''; VL_DOC := 1.11; IND_PGTO := tplVista; VL_SUB := 1.11; VL_DESC := 1.11; VL_SERV := 1.11; VL_MAT_PROP := 1.11; VL_MAT_TERC := 1.11; VL_DA := 1.11; VL_BC_ISS := 1.11; VL_ISS := 1.11; VL_BC_RT_ISS := 1.11; VL_RT_ISS := 1.11; COD_INF_OBS := 'observacao'; end; end; ACBrLFD1.IniciaGeracao; ACBrLFD1.SaveFileTXT; O arquivo gerado está saindo assim: |0000|LFPD|001|0|00|||2|0||||0|||0000000||| ele não gera o registro a020, o que está de errado, o que está faltando? |0001|0| |0005|TESTE|00000000|||||00000000||||| |0100||||||00000000|||||00000000||||| |0125||||||| |0990|6| |A001|1|0000000| |A990|2| |B001|1|0000000| |B990|2| |C001|1| |C990|2| |D001|1| |D990|2| |E001|1| |E300||| |E360|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0| |E500||| |E530|0|0|0|0|0|0|0| |E990|6| |H001|1| |H020||0| |H990|3| |8001|1|DF| |8990|2| |9001|0| |9900|0000|1| |9900|0001|1| |9900|0005|1| |9900|0100|1| |9900|0125|1| |9900|0990|1| |9900|A001|1| |9900|A990|1| |9900|B001|1| |9900|B990|1| |9900|C001|1| |9900|C990|1| |9900|D001|1| |9900|D990|1| |9900|E001|1| |9900|E990|1| |9900|H001|1| |9900|H020|1| |9900|H990|1| |9900|8001|1| |9900|8990|1| |9900|9001|1| |9900|9900|25| |9900|9990|1| |9900|9999|1| |9990|28| |9999|53| Obrigado. Rafa

Olá pessoal, mudei o foco da programação, desisti pois não consegui entender a geração desses registros, a propósito pelo que vi tem mais gente com dificuldade, o que gostaria de saber é se tem alguem que pode dar uma explicada melhor, estive observando a dias atrás e realmente não entendi, olhando o exemplo do sped fiscal consegui ter um entendimento melhor, mas trazendo pra esses registros não consegui entender, e quando não se consegue entender complica, fiz homologação em janeiro no paf 01.13 e os registros RXX, EXX, PXX fiz tudo na unha, realmente o trabalho é imenso mas consegui fazer e tá rodando, agora estou refazendo o processo de homologação e resolvi partir pro acbr de forma maciça, estou contribuindo com o pouco que posso atualmente assinando o sac, pretendo assim que a empresa "se pagar" ser um fiel contribuinte financeiro com o projeto, afinal me ajudou e me ajuda muito, porém estou vendo que por falta de conhecimento e incapacidade minha de entender como o acbr funciona pra gerar esses registros que o DF pede vou ter que fazer manualmente, se alguma boa alma puder dar um passo a passo ou uma explicação acho que vou conseguir, e também o Caetano conseguirá e quem mais tiver com dificuldade. Daqui uns dias volto nesse mesmo foco de programação e volto a me aprofundar no assunto. Agradeço mais uma vez. Rafa

Olá Juliana e demais colegas, estou quase desistindo de usar o AcbrLFD pra gerar o arquivo do ato cotepe 35/05, gostaria de saber se conseguiu fazer funcionar, e se conseguiu se você pode me passar um exemplo do código, pois tentei de tudo e não consegui fazer funcionar. Fico no aguardo de um retorno. Obrigado. Rafael

Régys, obrigado, não encontrei essas duas propriedades/campos vl_iss_rt que é o valor retiro pelo tomador e o campo cfps que é o código fiscal de prestação de serviço, vou tentar gerar o arquivo assim, qualquer coisa volto a pedir ajuda. Obrigado. Rafa

Olá Régys, veja esse código: with ACBrLFD1.Bloco_A do begin with RegistroA020New do begin DT_INI := StrToDate('01/01/2014'); DT_FIN := StrToDate('01/03/2014'); with RegistroA020New do begin IND_OPER.tplSaidaPrestacao := ''; IND_EMIT := ''; COD_PART := ''; COD_MOD := ''; COD_SIT := ''; SER := ''; SUB := ''; DT_DOC := ''; cpfs // não encontrei a propriedade COD_MUN_SERV := ''; COD_NAT := ''; VL_DOC := ''; IND_PGTO := ''; VL_SUB := ''; // é o mesmo que Vl_sub_tot ? VL_DESC := ''; VL_SERV := ''; VL_MAT_PROP := ''; VL_MAT_TERC := ''; VL_DA := ''; VL_BC_ISS := ''; VL_ISS := ''; VL_BC_RT_ISS := ''; vl_iss_rt // não encontrei a propriedade COD_INF_OBS := ''; end; end; end; É isso que devo fazer mais ou menos? Acontece que tem algumas informações que não encontrei conforme está comentado no código acima, por isso estou receoso em avançar, me diga se é mais ou menos esse o caminho a seguir, agradeço imensamente mais uma vez. Rafa

Olá Sergio Guedes e demais colegas, estou analisando o material, como não entendo quase nada de desenvolvimento e criação de componentes, ou penso em fazer meio que manual essa integração, acredito que quando tiver um exemplo funcionando fica mais fácil pra quem entende do assunto(criação de componentes) introduzir ou aproveitar o código pra criar o o componente ACBrConsultaSPC, estou com pouco tempo, estarei fazendo nas duas noites que tenho livres, quintas e sábados, se alguem mais estiver fazendo algo comunique pra que não perdemos tempo com mais de um programador fazendo a mesma coisa. Sergio me responda o que está fazendo e em que pé está pra ver que rumo devo tomar. Obrigado pela iniciativa. Rafa

Parabéns, funcionou perfeito aqui, fiz o teste, achei interessante o componente, assim como o consultaCNPJ perfeito. Rafa

Olá pessoal, não sei como gerar o registro que pede o requisito abaixo: REQUISITO X 1. O PAF-ECF utilizado no Distrito Federal, quando imprimir no Cupom Fiscal o CPF ou o CNPJ do adquirente ou tomador deverá: 2. Gerar obrigatoriamente, os seguintes registros previstos no Ato COTEPE/ICMS 35/2005: A020, A300, A350, C020, C550 ou C600, conforme o caso. 3. Gerar facultativamente, os seguintes registros previstos no Ato COTEPE/ICMS 35/2005: A310, A360, C555 ou C605. 4. Utilizar máscaras no formato xxx.xxx.xxx/xx para CPF e yy.yyy.yyy/yyyy-yy para CNPJ, onde x representa dígito do CPF e y representa dígito do CNPJ digitados pelo operador da frente de caixa. 5. Calcular o tributo a ser debitado, conforme definido na legislação tributária do Distrito Federal, por Cupom Fiscal, aplicando as situações tributárias definidas em cada item de mercadoria ou serviços do cupom, e, no caso de haver desconto ou acréscimo em subtotal, deverá ajustar o valor, truncando ou arredondando, conforme disposto no item 3.11 do Ato COTEPE/ICMS 16/09. 6. Imprimir a expressão “NL”, entre aspas, imediatamente após os caracteres hexadecimal do código MD5 de identificação do PAF-ECF no Cupom Fiscal, a que se refere a alínea “c” do Item 1 do requisito XI. Procurei no fórum, li bastante, abri o exemplo do sped, me desculpem mas não compreendi como é feita a geração, segundo os tópicos não tem exemplo dele pois é muito parecido com o sped, o problema é que não gerei arquivos do sped usando o acbr, então fiz tudo diferente, claro que nem se compara a produtividade que vou ter usando o acbr, por isso peço ajuda aos colegas pra me esclarecerem ou se puderem mandar um trecho de código de como iniciar a geração. Obrigado. Rafa

Olá, estou iniciando essa parte de sped, na verdade preciso atender o "antigo" requisito VIII-B que agora é requisito X na er-paf 2.01, e não estou conseguindo iniciar pra gera esses registros//arquivo, alguem poderia disponibilizar um código de como está fazendo pra captar os dados na base e dados e passar para o componente? Agradeço desde já. Rafa

Pessoal, conversei bastante com o suporte daruma, eles me passaram que tem já implementado a rotina dentro da dll, a Isadora me passou a dll atualizada com data do dia 26/08/2013, baixei ontem a noite o acbr novo e lá está com data de 04/06/2013, acredito que tenha que atualizar no repositório do acbr, fiz o teste com o aplicativo da daruma e funcionou, gerou o arquivo mf tanto binario como txt também. A rotina passada é a seguinte: SRelatorio := 'MF' STipo := DATAM SInicio := '01/03/2014' SFim := '08/03/2014' Int_Retorno := rGerarRelatorio_ECF_Daruma(sRelatorio,sTipo,sInicio,sFim); Gostaria de saber como anda essa rotina com as outras ecf's e qual a ideia pra fazer funcionar. Rafa

Aproveitando o embalo, apaguei a pasta fontes do acbr pra garantir, baixei ela novamente, do zero, ficou tudo novo, recompilei, atualizei as dlls da daruma na pasta do aplicativo, na pasta system 32, e syswow64 (uso server 2008 r2 64bits) mesmo assim não funcionou, acessei www.desenvolvedoresdaruma.com.br e baixei o exemplo da daruma em delphi xe com fontes, abri o fonte e ví que está lá o seguinte comando: //R_FISCAL_rGerarMF_ECF_Daruma.show(); hoje pela manhã vou ligar na daruma e ver se eles dão uma ajudinha e posto aqui a resposta deles Isso significa que nem a dll está implementada pelo que vejo, então como os nobres coletas estão fazendo pra atender esse requisito? Obrigado desde já a todos que ajudarem. Rafa

Olá Régys e demais colegas, estou implementando a er 2.01 e mesmo lendo o tópico não consegui fazer funcionar, uso ecf daruma fs 700 mach2 e estou com esse código: Var CaminhoArquivo : String; begin CaminhoArquivo := ExtractFilePath(Application.ExeName)+'Arquivos PAF\ARQUIVO MF '+SoNumeros(FormatDateTime('dd/mm/yyyy',Date)) + SoNumeros(TimeTostr(Time))+'.txt'; ACBrECF1.ArquivoMFD_DLL(CaminhoArquivo); Com esse código acima retorna a seguinte mensagem: Procedure: ArquivoMFD_DLL não implementada para a Impressora: Daruma Se mudar a chamada ao acbrecf conforme abaixo: ACBrECF1.ArquivoMF_DLL(CaminhoArquivo); Retorna....: Erro ao executar rEfetuarDownloadMF_ECF_Daruma. Cod.: -1 Erro do Método. Estou com o acbr atualizado semana passada, mesmo assim já estou atualizando novamente, pelo requisito deve ser o segundo comando, mas tem essa resposta do método. Obrigado desde já. Rafa

Olha, não tinha visto que o meu estava desatualizado, tentei várias vezes e não aconteceu, acho que está corrigido. Obrigado. Rafa

Olá daniel, fiz umas mexidas e o erro ocorre quando o timer é ativado e na ativação do timer ele chama o procedimento abaixo:procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject); var Stream: TMemoryStream; Jpg: TJPEGImage; begin showmesage('1'); Stream:= TMemoryStream.Create; showmesage('2'); Jpg:= TJPEGImage.Create; showmesage('3'); try showmesage('4'); ACBrConsultaCNPJ1.Captcha(Stream); showmesage('5'); Jpg.LoadFromStream(Stream); showmesage('6'); Image1.Picture.Assign(Jpg); showmesage('7'); EditCaptcha.Clear; showmesage('8'); EditCaptcha.SetFocus; showmesage('9'); finally showmesage('10'); Stream.Free; showmesage('11'); Jpg.Free; showmesage('12'); end; showmesage('fora'); end; Porém testei diversas vezes e com os ponteiros não ocorreu o erro, tiro os ponteiros e depois de abrir umas 15 vezes o mesmo erro apareceu, o que posso fazer a mais pra te ajudar? Rafa

Olá pessoal, parabéns pelo componente, estive dando uma testada e não sei por que mas aqui, de vez em quando, aparece essa mensagem (imagem anexo) antes de apresentar o captcha, isso no exemplo do acbr, alguma sugestão? Obrigado. Rafa

Agora estou usando completamente conforme o exemplo disponibilizado, obrigado a todos pelas dicas. Rafa

O interessante é que se eu carregar o xml gravado na pasta e imprimir, ele imprime e fecha normalmente. Vou ver se encontro o problema.

Boa tarde IVR Seguindo este procedimento, ele imprimi corretamento, porém quando fecho o relatório ocorre erro [Content] RLNFSe: Erro durante a preparação do relatório EConvertError('' is not a valid floating point value) [OK] Att; Rafa

Bom dia pessoal Estou com um problema. Quando envio a nfse em processo assíncrono, logo após faço uma consulta ConsultarSituacao(CNPJ, IM,Protocolo), para ver se a nfse foi processada. Caso O rps for processado preciso imprimir a nfse, como faria isso? Porque se eu chamar o procedimento ACBrNFSe1.NotasFiscais.Imprimir vai dar erro na impressão, isso porque estarei imprimindo o RPS. Att; Rafa

Régis e demais colegas, entrei em contato com o pessoal do ibpt, veja a situação, fiquei com vergonha, mas todavia, quando se recebe um arquivo texto se abre com o editpad plus ou com o bloco de notas etc..., quando se recebe arquivo csv se abre com o excel, isso é lógico e até vem associado quando se instala o office, resumindo, a tabela csv que está sendo distribuida pelo ibpt quando aberta diretamente pelo excel tira os "zeros" da frente dos números entendo o valor das celulas como sendo numericas, por isso estava com 7 dígitos, a solução foi renomear o arquivo para .txt, importar no excel, formatar a coluna ncm para tipo texto e salvar como arquivo .csv, aí sim funcionou perfeitamente. Falei com o Daniel e com a Andreia (se não me engano) do ibpt ((43)3354-4050) e orientei eles a estarem fazendo a mudança, pois assim como eu muitos tiveram o mesmo problema, salvo os que leram o arquivo .txt ao invés de ler arquivo .csv. Abração a todos que ajudaram e compartilharam seus conhecimentos mesmo assim foi produtiva a discussão. Rafa

Resumindo então, pra enviar a nfe devo acrescentar zeros a direita pra que os subitens sejam englobados pelo ncm e consequentemente a nfe seja emitida? Rafa

Olá Régys, na tabela do ibpt existem vários, veja um trecho da tabela do ibpt versão 0.0.2: codigo ex tabela descricao aliqNac aliqImp 0.0.2 1012100 0 Reprodutores de raça pura 26.75 27.35 1012900 0 Outros 26.75 28.45 1013000 0 Asininos 26.75 29.50 1019000 0 Outros 26.75 29.50 1022110 0 Prenhes ou com cria ao pé 14.80 15.40 1022190 0 Outros 14.80 15.40 como vocês tem tratado isso pra emitir a nfe? Rafa