Ir para conteúdo
  • Cadastre-se

Marcelo Bill

Membros
  • Total de ítens

    411
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Marcelo Bill postou

  1. Pessoal Não quero ser chato, tenho o conhecimento para utilizar o Rave e alterar os devidos campos visuais e já os fiz, porém ainda não foi possível aparecer nenhuma alteração que tenha feito no DANFE_Rave513.rav. Tive a petulancia de adicionar em ACBrDANFeCBRavePaisagem.pas exatamente após a linha 1316 ####################################### PrintTab(DFeUtil.FormatFloat(Imposto.ICMS.vBC)); PrintTab(DFeUtil.FormatFloat(Imposto.ICMS.vBCST)); PrintTab(DFeUtil.FormatFloat(Imposto.ICMS.vICMSST)); PrintTab(DFeUtil.FormatFloat(Imposto.ICMS.vICMS)); PrintTab(DFeUtil.FormatFloat(Imposto.IPI.vIPI)); PrintTab(DFeUtil.FormatFloat(Imposto.ICMS.pICMS)); PrintTab(DFeUtil.FormatFloat(Imposto.IPI.pIPI)); //(linha 1316) //adicionado uma coluna para os impostos no item PrintTab(DFeUtil.FormatFloat(Imposto.vTotTrib)); Memo:=TMemoBuf.Create; ####################################### E mesmo assim nenhuma diferença aparece na impressão do Danfe. Só preciso de mais uma dica, preciso resolver esse problema se não vou sofrer com diversas reclamações sobre esse caso. muito obrigado
  2. Andre Desculpe escrevei o nome do componente de forma errada. O correto é DanfeRaveCB. Caso eu personalize esse arquivo .rav, a duvida é, se eu atualizar o componente um outro dia, essa personalização vai se perder ? Em se tratando do RaveCB, qual é o arquivo que devo editar ? d:\Acbr\Exemplos\ACBrNFe2\Delphi\Report\DANFE_Rave513.rav ou d:\Acbr\Exemplos\ACBrNFe2\Delphi\Report\NotaFiscalEletronica.rav Obrigado
  3. Andre obrigado por responder imediatamente. bom, mudei o formato para paisagem e nada foi modificado estou usando DanfeRave D7 :Cita De outra forma como posso personalizar meu DANFE e adicionar este campo no grupo de itens. Perdoe minha ignorância. Obrigado
  4. Marcelo Bill

    Campo Vtottrib Nos Itens

    Pessoal Desculpe minha ignorância. Desculpe até por estar usando este post para dizer isso. Mas, quanto ao vTotTrib na totalização isso não tive nenhum problema, entendi corretamente e no meu app está funcionando legal. A questão é que em 23/05/2014, estive em um cliente e ele quer trocar o Aplicativos Comerciais dele pelo meu sistema e percebi que na impressão do DANFE do Aplicativos Comerciais já está saindo o valor do Imposto aproximado em cada item ou seja ao lado da ALIQ IPI se não me falhe a memoria está saindo o valor do imposto aproximado para aquele item. Salvo burrice de minha parte, mandei atualizar o acbr hoje 28/05/2014, procurei qualquer alteração e não localizei nada referente a esse tipo de possibilidade. Não tem mesmo ou estou procurando em lugar errado. Fiz atualização através do SVN svn://svn.code.sf.net/p/acbr/code/trunk Inclusive já descompactei aquela pasta de schemas V3.00 V3.10 e descarreguei em minha pasta de schemas e mesmo assim não apareceu nada de novo. Está correto ? Alguem pode me informar ? Obrigado Marcelo
  5. Boa noite pessoal Mediante o fato de o componente acbr ter sofrido alterações com relação ao QR, acabei de adquirir o componente QR502PDGT para instalar no meu D7 e segui os passos naturamente conforme o fornecedor me indicou, bem, instalou normalmente no entanto como eu já havia instalado a versão do QR3, após a instalação do QR5, parece que nada mudou, ou seja, quando abro o Install packages os componentes aparecem desmarcados e quando tento marca-los para que ele se instale, ocorre uma mensagem do tipo "Cannot load package QR5RunD7 It contains unit QRPrntr which is also contained in package qrpt70" e não consigo fazer permanece a nova versão. Será que alguem pode me dar uma dica de como resolver esse problema. abraço a todos
  6. Olá pessoal o que houve em 2014, parou o forum ? A conversa estava indo tão bem!!
  7. Ju Muito obrigado pelas instruções Demorei um pouco para ler, mas já entendi, agora vou mandar novamente o boleto para avaliação do banco Assim que liberado volto a postar
  8. Boa a tarde a todos Estou lutando com um tecnico do Itau que está me afirmando que o tamanho do NossoNumero do Iteu é 9 digitos, disse que são 8 mais o DAC, no entanto, anteriromente tentei fazer o envio da remessa com numero maior que 8 e ocorreu uma rejeição no portal do itau. Agora esse cabra não me deixa avançar com a situação e meu cliente já está me torrando a paciencia. Alguem pode me dar algum luz sobre o fato. Isso é real ? Vejam uma parte da conversa com eles: ######################################## José Marcelo, Boa tarde! Continuo aguardando o envio de arquivos em teste e dos boletos em formato PDF para serem homologados, tem alguma previsão? Atenciosamente -------- Olá Wilson Segue anexo novo boleto em PDF para sua avaliação Narezzi --------- Narezzi, Boa tarde! Não foi possível efetuar a homologação do boleto: Local de pagamento devera ficar como abaixo. Agência/Código do cedente não precisa informar o digito da agência. Nosso número devera conter 08 caráter mais o DAC Banco não se responsabiliza por valor em porcentagem no campo instrução. Regularizar e enviar novamente, --------- Narezzi, Não consegui homologar o boleto enviado pois está com o Nosso número incorreto. Está com 8 caracteres. Deve ter 9 caracteres (incluindo o Dígito verificador – DAC). Aguardo novo boleto corrigido -------- Mantuir me diga somente se o codigo de barra e o codigo digitavel estão corretos obrigado no aguardo --------------- Narezzi, bom dia! Não consigo dizer se o código de barras e a linha digitável estão corretos ou não, porque não consegui submeter o boleto para homologação, devido ao nosso número com 8 caracteres. ######################################## Agora estou numa baita duvida, afinal eu tenho outros clientes que imprimem boleto Itau sem registro e a cobrança segue normal. Alguem pode me dar uma luz sobre o fato ? Obrigado Marcelo Narezzi
  9. Boa a tarde a todos Estou lutando com um tecnico do Itau que está me afirmando que o tamanho do NossoNumero do Iteu é 9 digitos, disse que são 8 mais o DAC, no entanto, anteriromente tentei fazer o envio da remessa com numero maior que 8 e ocorreu uma rejeição no portal do itau. Agora esse cabra não me deixa avançar com a situação e meu cliente já está me torrando a paciencia. Alguem pode me dar algum luz sobre o fato. Isso é real ? Vejam uma parte da conversa com eles: ######################################## José Marcelo, Boa tarde! Continuo aguardando o envio de arquivos em teste e dos boletos em formato PDF para serem homologados, tem alguma previsão? Atenciosamente --------- Olá Wilson Segue anexo novo boleto em PDF para sua avaliação Narezzi --------- Narezzi, Boa tarde! Não foi possível efetuar a homologação do boleto: Local de pagamento devera ficar como abaixo. Agência/Código do cedente não precisa informar o digito da agência. Nosso número devera conter 08 caráter mais o DAC Banco não se responsabiliza por valor em porcentagem no campo instrução. Regularizar e enviar novamente, --------- Narezzi, Não consegui homologar o boleto enviado pois está com o Nosso número incorreto. Está com 8 caracteres. Deve ter 9 caracteres (incluindo o Dígito verificador – DAC). Aguardo novo boleto corrigido -------- Mantuir me diga somente se o codigo de barra e o codigo digitavel estão corretos obrigado no aguardo --------------- Narezzi, bom dia! Não consigo dizer se o código de barras e a linha digitável estão corretos ou não, porque não consegui submeter o boleto para homologação, devido ao nosso número com 8 caracteres. ######################################## Agora estou numa baita duvida, afinal eu tenho outros clientes que imprimem boleto Itau sem registro e a cobrança segue normal. Alguem pode me dar uma luz sobre o fato ? Obrigado Marcelo Narezzi
  10. Feliz ano novo a todos Regys Não sei se tenho o devido direito a lhe perguntar sobre NFS-e nesse portal pago, mas como o componente foi adicionado ao pacote acbr, entendi que poderia fazer tal pergunta: Tem como me passar uma dica de como enviar a NFS-e/Rps e com seu devido retorno? Ex: nfse.notasfiscais.clear; GerarXML(Lote); nfse.enviar(Lote); vStatus:=nfse.notasfiscais.webservice.retorno.itens[0].status; vProtocolo:=nfse.notasfiscais.webservice.retorno.itens[0].protocolo; Case vStatus of 1:Retorna o codigo do Retorno 2:Retorna o codigo do Retorno 3:Retorna o codigo do Retorno 4:Retorna Sucesso end; MinhaNota.Edit; MinhaNota.Status.AsInteger:=vStatus; MinhaNota.Protocolo.AsString:=vProtocolo; MinhaNota.Post; Assim como é feito na NFE Agradeço se puder me ajudar Abraço
  11. [RESOLVIDO] Agora sim, ficou resolvido de vez a questão. Muito Obrigado
  12. Regys Na M O S C A +.+ Muito obrigado pela vossa existência. Espero que essa frase se encaixo para todos que estiverem lendo Muiiiiiiiiito boooooooas Fesssssssta a todos e que o Papai Noel seja presenteado com a maior felicidade do Mundo, pois graças a Deus e o nosso esforço, tivemos um excelente ano de trabalho. Finalmente a informatica está se encaixando em seu devido grau de importância. abraço a todos e boas festas. Marcelo Narezzi e Familia
  13. [RESOLVIDO] Regys Agora a DLL esta respondendo corretamente, tanto na Daruma quanto na Bematech (valeu) porem estou usando exatamente como esta no Exemplo do ACBr A única coisa que não consegui descobrir foi no caso da Bematech é como determinar que os arquivos sejam gerados dentro do local que eu escolhi. eu usei a função ECF.pafMF_GerarCat52(Data1,Data2,'C:\TERMINAL\NFP\') e somente no caso da Bematech ele simplesmente jogou o arquivo do Download.mfd dentro do local escolhido e gerou os arquivos BE???????.??? no drive C:\ Alterei a path no Bemafi32.INI e também não funcionou. Será que tem algum outro detalhe para resolver esse caso ? Obrigado Marcelo
  14. Boa noite me desculpem me meter na conversa, mas já que o assunto é NFP, vamos lá... uso XP,D7,MC,Bematech Porta física Com1, 9600, Termica MFD 2100 THFI Impressora na mão. Estou a meses tentando gerar a NPF através da Bematech e até agora nada de sucesso. Essa noite, decidi pegar a impressora emprestada de um cliente para devolver amanhã cedo. Já tentei de várias formas e o erro ao iniciar a função ECF.PafMF_GerarCAT52GerarCat52(Data1,Data2,'local') Erro: xBematech_FI_Download Cod 0. Erro de Comunicação ECF.PafMF_GerarCAT52GerarCat52(Data1,Data2,'local+arquivo') Erro: ECF não ativo (visto que já foi ativado no inicio do sistema e funcionando normalmente para outras funções) Já coloquei as DLLs dentro da pasta do aplicativo Já coloquei as DLLs no windows\system32 e o erro permanece a todo esse tempo. Lembrando que meus clientes a maioria usa Daruma e com a Daruma eu já fiz funcionar perfeitamente somente depois que modifiquei a velocidade de 9600 para 115200 (USB ou SERIAL) pois se mantenho 9600 ocorre o mesmo erro. No entanto, na bematech, não tenho como mudar a velocidade da mesma maneira que fiz com a Daruma através da inicialização pressionando o botão AVANÇO dependendo do modelo. Se alguem tiver uma dica eu agradeço. Eis o codigo abaixo pelo qual eu fiz funcionar a Daruma. #################### vOrigem:=LerIni('ECF','NFP'); vDestino:=LerIni('ECF','NFP'); vDias:=DaysBetween(Data1.DateTime,Data2.DateTime); pb.Visible:=True; pb.Max:=vDias; pb.Position:=0; For i:=0 to vDias do begin Try Screen.Cursor:=crHourGlass; dm00.ECF.MsgPoucoPapel:=-1; pb.Position:=pb.Position+1; vDataProcesso:=IncDay(Data1.DateTime,i); Barra.Panels[0].Text:='Aguarde...Gerando arquivos do dia '+FormatDateTime('dd/mm/yyyy',vDataProcesso); repaint; vExtensao:=RetExtensaoNFP(vDataProcesso); vNomeArquivo:=idSerial+Serial+'.'+vExtensao; dm00.ECF.PafMF_GerarCAT52(vDataProcesso,vDataProcesso,vDestino+vNomeArquivo); Screen.Cursor:=crDefault; except on e:exception do begin Screen.Cursor:=crDefault; Barra.Panels[0].Text:=''; if Pos('ATO_NFPTDM_DATA.TXT',e.Message)=0 then begin Dedoduro('ERRONFP',e.Message,DM.LoginFANTASIA.AsString); mBox(e.Message,'E',[mbok]); end; End; end; end; ########################
  15. Mas em relação a eu estar informando um periodo maior que um dia na função pafMF_GerarCat52... esse problema será que já foi solucionado ? Pois de outra forma no caso de um sabado, domingo ou feriado não havendo movimento a tempos atras, isso causava um erro, informando que não havia movimento em um dos dias dentro do período. valeu
  16. Olá Regys Infelizmente não deu certo. (Esse teste foi feito com DR600) a) Demora pacas, tipo coloquei um período de 01/09 a 05/09 e demorou aproximadamente uns 7 min para dar uma resposta. Após esse tempo, deu um erro "ERRONFP=Erro ao Gerar arquivo DR130308.19C - Impressora Daruma não está respondendo" Impressora Daruma não está respondendo. Lembrando que eu faço da seguinte forma: ################# vData1:=StrToDate(FormatDateTime('DD/MM/YY',Data1.DateTime)); vData2:=StrToDate(FormatDateTime('DD/MM/YY',Data2.DateTime)); if LerIni('ECF','NFP')='' then begin GravarIni('ECF','NFP',LerIni('ACESSO','LOCAL')+'NFP\'); if not DirectoryExists(LerIni('ECF','NFP')) then begin ForceDirectories(LeftStr(LerIni('ECF','NFP'),Length(LerIni('ECF','NFP'))-1)); end; end; ZapFiles(LerIni('ECF','NFP')+'*.*'); vOrigem:=LerIni('ECF','NFP'); vDestino:=LerIni('ECF','NFP'); Barra.Panels[0].Text:='Verificando Registros de ECF'; zCupom.Close; zCupom.Params.CreateParam(ftDateTime,'pData1',ptInput); zCupom.Params.CreateParam(ftDateTime,'pData2',ptInput); zCupom.SQL.Add('SELECT EMISSAO FROM N_CUPOM WHERE EMISSAO BETWEEN :pData1 AND :pData2 GROUP BY EMISSAO'); zCupom.Params.ParamByName('pData1').AsDateTime:=vData1; zCupom.Params.ParamByName('pData2').AsDateTime:=vData2; zCupom.Open; if zCupom.RecordCount=0 then begin zCupom.Free; mBox('Período sem movimento','E',[mbok]); Barra.Panels[0].Text:=''; Exit; end; Try Zip.FSpecArgs.Clear; While not zCupom.Eof do begin Application.ProcessMessages; vDataProcesso:=zCupom.fieldbyname('emissao').AsDateTime; if ValidarData(DateToStr(vDataProcesso)) then begin vExtensao:=RetExtensaoNFP(vDataProcesso); vNomeArquivo:=LefTstr(dm00.ECF.NumSerie,2)+RightStr(dm00.ECF.NumSerie,6)+'.'+vExtensao; Try Barra.Panels[0].Text:='Gerando o arquivo do dia '+DateToStr(vDataProcesso); dm00.ECF.PafMF_GerarCAT52(vDataProcesso,vDataProcesso,LerIni('ECF','NFP')); // dm00.ECF.ArquivoMFD_DLL(vDataProcesso,vDataProcesso,LerIni('ECF','NFP')+vNomeArquivo,[docTodos],finMFD); if LeftStr(vNomeArquivo,2)=LefTstr(dm00.ECF.NumSerie,2) then begin zip.FSpecArgs.Add(vOrigem+vNomeArquivo); end; except on e:exception do begin Barra.Panels[0].Text:=''; Dedoduro('ERRONFP','Erro ao Gerar arquivo '+vNomeArquivo+' - '+e.Message,DM.LoginFANTASIA.AsString); mBox('Erro ao Gerar arquivo '+vNomeArquivo+' - '+e.Message,'E',[mbok]); End; end; end; zCupom.Next; end; Barra.Panels[0].Text:=''; Except on e:exception do begin Barra.Panels[0].Text:=''; Dedoduro('ERRONFP',e.Message,DM.LoginFANTASIA.AsString); mBox(e.Message,'E',[mbok]); zCupom.free; End; End; zCupom.free; ################# Veja, fiz dessa forma, pois a função anterior a qual está comentada, não tinha o tratamento de verificação do dia sem movimento, dessa forma fiz um looping em cima da tabela dos Cupons emitidos que ficam gravados no meu banco de dados. Uma ou duvida, é se essa função PafMF_GerarCat52 se eu definir um prazo maior que um dia, se a função vai gerar um arquivo para cada dia. Tem mais, antes de eu fazer esse teste, copiei as Dlls que estão na pasta DLL do componente do acbr e descareguei na maquina do meu cliente. Inclusive, já tentei da forma anterior com a impressora Bematech e nunca consegui fazer, já com a Daruma, em alguns lugares onde tem a DR700 e ou a DR600 (mais rescente) até funcionava a ArquivoMFD_DLL(vDataProcesso,vDataProcesso,LerIni('ECF','NFP')+vNomeArquivo,[docTodos],finMFD); Amigo, estou ficando preocupado, já estou pensando seriamente em pegar a Lei da NFP, copiar as DLLs necessárias e fazer na mão, porém sempre fico pensando que a Luz pode vir do fim desse túnel. abraço, obrigado pelas dicas Marcelo
  17. Obrigado Regys Vou tentar usar essa função, qualquer coisa lhe reporto. abraço
  18. Marcelo Bill

    Arquivo NFP Reg 13

    Olá Regys Tenho um cliente cujo contador reclamou que o arquivo da NFP, gerado através da função do acbr "dm00.ECF.ArquivoMFD_DLL(vDataProcesso,vDataProcesso,LerIni('ECF','NFP')+vNomeArquivo,[docTodos],finMFD);" Estava havendo a ausência do Registro 12, então baixei nova DLL e coloquei junto do meu EXE, blz, passou a gerar com o Registro 12, no entanto, a partir disso, passou a faltar o Registro 13 sei mais ou menos que quem dá o retorno dessas informações é a DLL, mas a pergunto é se por acaso ninguem reclamou sobre o fato ? obrigado fico no aguardo
  19. Boa noite a todos Não é de hoje que vejo alguns clientes que são proprietários de impressoras HP de alguns modelos: J2600 aquela que tem telefone, Fax e impressora. Hp2600n uma baita impressora Essas foram as quais eu já me deparei. O caso é que para esses clientes eu simplesmente digo que esses modelos de impressora não funcionam impressão em Rede e a J2600 não funciona nem instalada localmente. então o cliente fica p. da vida, visto que a impressora faz de tudo, menos imprimir os relatórios do meu aplicativo que é desenvolvido com Rave. O fato é que já verifiquei na Internet e percebi que o problema não é somente do Rave e que também ocorre no Fortes e no Qreport. O Erro é "Floating Point Overflow". Já foito de tudo com relação a impressora: Atualizado o Driver, Trocado de driver, imprimir doc Word antes de imprimir um relatorio do meu aplicativo, enfim, um renca de simpatias que não funcionam. Tomando isso como embalo da pergunta, tanto o DANFE que impresso atraves do Componente quanto os meus relatorios que são desenvoido por RAVE ocorrem esse erro apenas nos modelos acima. Passeando pela internet mais uma vez, descobri no Forum do DevMedia a seguinte colocação. ####################### Var Save8087CW: Word; ... Save8087CW := Get8087CW; (* * se o seu Delphi não tiver Get8087CW, use isto: * * asm * FStCW [save8087CW] * end; *) Set8087CW($133F); ... seu código para fazer a impressão ... Set8087CW(Save8087CW); ... ########################### var Save8087CW: Word; begin inherited; Set8087CW($133F); // Para imprimir em printer com Ethernet. Beep; dmTools.sqlcds_rel_laudo.Close; dmTools.sqlcds_rel_laudo.Params[0].AsInteger:=dmTools.cds_laudoCODLAD.AsInteger; dmTools.sqlcds_rel_laudo.Open; if dmTools.sqlcds_rel_laudo.RecordCount = 0 then Application.MessageBox(Pchar('Erro ao carregar o relatório!'),'Atenção ! ! !',MB_OK+MB_ICONERROR) else with Tfrmrel_laudo.Create(nil) do begin qrp_rel_laudo.Preview; Free; end; asm FStCW [save8087CW] end; end; ######################### Diz o Massuda que dessa forma o problema seria resolvido, no entanto eu poderia resolver os problemas dos meus relatorios com esse codigo mas não teria como resolver quando vou imprimir DANFE. Então vai a pergunta, como é feito a rotina de impressão do DANFE para ravecb ou outros quando nos deparamos com uma impressora nos modelos acima e principalmente imprimindo em Rede? Ou se já tem alguma solução para esse caso que eu ainda não localizei? Obrigado a todos
  20. Valeu Ju era iso mesmo, a tempos atras eu passei a usar pOutras pois como pJuridica ou pFisica estava dando erro ao gerar o codigo do boleto, mas já havia me esquecido pois o boleto estava funcionando então nem me toquei do caso. mas agora que mudei o tipo de inscrição para pJuridica e deu certinho para os dois casos tanto no boleto quanto na remessa muito obrigado
  21. Sim coloquei Carteira, nosso numero,etc... vou expor os registros da remessa aqui ################## 01REMESSA01COBRANCA 019100369719 XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 341BANCO ITAU SA 130412 000001 108811991000102019100369719 0000 000000090000000000000181 I019 03051200000000002003410000001A130412000000000000000000000000000000000000000000000000000000000000000100028225262816LEANDRO SIQUEIRA DE LIMA RUA SERRA DOURADA 18 JARDIM PLANA06362230CARAPICUIBA SP 00000000 000002 108811991000102019100369719 0000 000000080000000000000181 I018 28041200000000003003410000001A130412000000000000000010000000000000000000000000000000000000000000000100028225262816LEANDRO SIQUEIRA DE LIMA RUA SERRA DOURADA 18 JARDIM PLANA06362230CARAPICUIBA SP 30129900 000003 9 000004 ########################## Pronto está ai acima. Obrigado por analisar
  22. Boa noite pessoal Estou tentando enviar um arquivo de remessa para o Itau, cnab400 e o site do itau recusou o arquivo disse que a linha 2 esta invalida. Abri o arquivo para analisar e verifiquei que apenas o Registro cabeçalho e rodape estão com 400 carcateres os registros dos boletos estão com 398 caracteres. Ja tentei mudar o tamanho do nosso numero na marra para ver se resolvia, mas o arquivo continua sendo gerado da mesma forma, será que alguem tem ideia do que pode ser isso ? Obrigado
  23. Valeu pela resposta Com certeza. Depois que o serviço se regularizou, não precisou fazer nada, simplesmente voltou a funcionar normalmente muito obrigado. a Proposito, que todos fiquem sabendo, esse lance de nós podermos pagar e contar com a possível ajuda de voces, foi a melhor sacada que voces fizeram parabéns.
  24. Regys Só tenho uma grande dúvida. Será que tem haver o fato de o certificado não pedir a senha? Afinal, o erro ou travamento, deveria ocorrer após eu digitar a senha do certificado. A questão é que nem isso está abrindo. Simplesmente ele fica aparecendo aquela mensagem que voces colocaram no Monitor, um form que identifica o status do processo. É assim, eu mando consultar, ele mostra o form do status e mais alguns segundos ele pede a senha do certificado. Mas do jeito que está, eu mando consultar, ele mostra o form do status, não pede a senha do certificado e fica uns dois minutos para dar erro de inoperante. Será que tem haver com o certificado, o navegador, etc. obrigado
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.