Rafa2012

Bom dia pessoal. Andei pesquisando aqui no fórum, e percebi que o campo outras informações não é pertencente ao RPS, e sim no retorno da NFSe. Em qual campo eu poderia enviar os dados de fatura e parcelamento para aparecer na impressão da NFSe? Agradeço Rafa

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

Régys, fiz um monte de testes, fui em outro computador com windows 7 32 bits, pluguei a ecf daruma fs 700 mach 2 via serial COM1, tentei via cabo USB, emiti cupom fiscal, leitura x, etc.... o código permaneceu o mesmo, conforme segue: procedure TFMenuFiscal.BitBtn3Click(Sender: TObject); var PathArquivo: String; EAD: String; Arquivo: TStringList; begin showmessage('try'); try showmessage('path'); PathArquivo := 'C:\teste\teste.bin' showmessage('paf_mf'); DataM.ACBrECF1.PafMF_ArqMF(PathArquivo); ShowMessage('calcula ead'); // calcular primeiro o EAD e guardar para usar depois EAD := DataM.ACBrEAD1.CalcularEADArquivo(PathArquivo); ShowMessage('assina com ead'); // assinar o arquivo, feito a pedido da homologadora DataM.ACBrEAD1.AssinarArquivoComEAD(PathArquivo, True); ShowMessage('stringlist create'); // criar o arquivo txt com o registro EAD dentro dele Arquivo := TStringList.Create; try Arquivo.Text := 'EAD' + EAD; Arquivo.SaveToFile(ChangeFileExt(PathArquivo, '.TXT')); finally Arquivo.Free; end; finally // FecharEspera; end; ShowMessage('fora'); end; O que pode ser que estou fazendo de errado ou será que é algum problema de hardware? Mas também não pode ser porque pelo software de exemplo da daruma funciona. Seguem algumas imagens do programa da daruma que executa essa função, também segue o arquivo gerado. Obrigado desde já pela força Régys. Rafa ATO_MF_DATA.TXT

Régys essa noite vou tentar trocar de windows, tô rodando num server 2008 r2. Posto o resultado, se tiver mais alguma dica me avisa. Obrigado. Rafa

Régys tentei 9600 via serial e 115200 via usb, estou tentando mexer justamente nisso, pois pelo software da daruma funciona. Rafa

Olá Régys, a pasta existe, a dll DarumaFrameWork.dll está datada de 26/08/2013 15:01. A data pasta que baixei pelo svn hj de manhã está com data de 04/06/2013, por isso resolvi deixar a da daruma, alguma outra dica? Rafa

Régys, tentei esse comando: PathArquivo := 'C:\teste\teste.bin'; DataM.ACBrECF1.PafMF_ArqMF(PathArquivo); Retorna: Erro ao executar rEfetuarDownloadMF_ECF_Daruma. Cod.: -1 Erro do Método. Obrigado. Rafa

oi Régys, aparece o método quando estou escrevendo no código, apaguei a pasta denovo, acessei o link que o Daniel passou, copiei o caminho do svn svn://svn.code.sf.net/p/acbr/code/trunk, que conferi antes e estava certo,enfim, o que mais posso fazer pra resolver essa questão, segue imagem do código que mostra que o método tá implementado. agradeço mais uma vez. Rafa

Olá Régys, apaguei a pasta baixei tudo de novo pelo svn, estou usando delphi XE com ecf daruma fs700 mach 2 ligado via usb, tentei via serial e deu no mesmo, estou tentando assim: PathArquivo := 'c:\' + FormatDateTime('"ArqMFD_"yyyymmddhhmmss".bin"', NOW); DatAM.ACBrECF1.ArquivoMF_DLL(PathArquivo); dá o erro abaixo: Erro ao executar rEfetuarDownloadMF_ECF_Daruma. Cod.: -1 Erro do Método. Se executar o comando: DataM.ACBrECF1.PafMF_ArqMFD('C:\teste.bin'); retorna a mensagem de erro: Procedure: ArquivoMFD_DLL não implementada para a Impressora: Daruma Tentei tirar o componente do DataModule e também deu erro. Obrigado pela ajuda. Rafa

Elton, como você tem gerado esse arquivo? Apaguei a pasta acbr e baixei tudo novo do svn, pensando que podia ser algum problema de atualização do acbr, mas não é, se puder me ajudar com isso te agradeço muito. Abração. 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

Ok, não entendi, o mesmo comando continua dando o erro, não uso o acbr monitor, o que posso estar fazendo de errado? Obrigado. Rafa

oi Régys, conseguiu ver alguma coisa sobre a geração do arquivo MF? Obrigado 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

Olá colegas, estou postando o tópico no SAC também, (se não pode me perdoem), segue o problema que estou enfrentando, não estou conseguindo resolver, agradeço a ajuda desde já, segue: Estou implementando a er 2.01 e mesmo lendo vários tópicos relacionados não consegui fazer funcionar, uso ecf daruma fs 700 mach2, delphi XE, windows server 2008 r2 64 bits 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. 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 mesmo assim não funcionou, acessei www.desenvolvedoresdaruma.com.br e baixei o exemplo da daruma em delphi xe com fontes, 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. Obrigado 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

Ok anfm; Mas eu estou alimentando este campo, porém continua o erro. Assim como também tenho notado que quando é um serviço de construção civil e alimentos os campos respectivos Código da obra e codigo ART, eles também não saem na impressão. Não sei se é só comigo isso. Agradeço