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. Juliomar Deu certo a questao do Logo e do nome e endereço do emitente, ficaram otimas essas alterações, porem ainda tem o problema do quadro de Duplicatas, está certo se usar a vista ou aprazo, mas se usar o Outros fica grandao.
  2. Rodrigo Tem a opção que voce pode determinar o numero de itens por pagina, talvez isso resolva o seu problema DanfeNFe.ProdutosPorPagina:=20; Com relação a esse problema, gostaria de lembrar que no caso do quadro de Pagamentos, se voce usar as opções a pra ou a vista ta funcionando corretamente, porem se definir como outros, o quadro fica descontrolado. A questão do logo usando STREAM ficou otimo, evita mais um arquivo na pasta do aplicativo estou usando assim: DanfeNFe.Logo:=TBlobField(dm.Empresa.FieldByName('Logo')).Value;
  3. Estou com o mesmo problema Como já comentei, fiz a atualização ontem as 21h e percebi que essa alteração subiu as 18h
  4. Bom dia Juliomar Não esta funcionando mesmo, continua do mesmo jeito que citei acima. Ontem a noite, as 21:00 eu atualizei, creio que peguei a versão que voce ja havia subido e justamente essa versão cuja revisao 10374, não esta funcionando, aparentemente a alteração que voce fez não funcionou. Qualquer novidade, da um tok Obrigado
  5. Boa Noite Acabei de atualizar o componente, eliminei tudo que era do Rave, pois decidi de uma vez por todas seguir exatamente como voces estão propondo. Optei em utilizar somente o Fortes Reports. Bom, estou tentando configurar a impressão da NFE e percebi que quando a forma de pagamento é tpOutros, a grade do desdobramento fica sem controle, fica enorme, aproximadamente com 35 cm de altura e não tem controle que mude isso. Testando com pagamento tpAVista e ou tpAPrazo, está funcionando direitinho. Outra coisa, percebi um post "Alterar Tamanho de Logo, Posição do Nome da Empresa, Tamanho do Endereço" por RodrigoOgioni, Onde ele posicionou alterações na localização e tamanho do Logo, bem como, fonte do nome do emitente, acredito que isso também não esta funcionando corretamente, pois, eu vi que ele descreveu cada propriedade proposta e estou tentando colocar o logo dentro do quadrinho. Meu, num vai, estou a 2 horas tentando achar propriedades que controle isso mas até agora, o logo não mudou em nada, fica grandão. Se tiver alguma opção que faça como o Rave fazia, tipo ajustar o tamanho do logo ao espaço existente para o logo seria legal. Então enquanto isso, alteração suspensa, pois agora não posso mais voltar atras pois ja apaguei o projeto anterior baseado em Rave Se alguem puder auxiliar neste aspecto agradeço
  6. Pessoal, acredito que tenha algo que eu não esteja sabendo fazer, ou algum arquivo que precisa colocar em algum lugar. acabei de testar usando o Demo NFS-e e o erro não é exatamente o mesmo que ocorreu com o meu aplicativo, porém diz que o Ginfes não suporta esse tipo de serviço estou colocando a imagem do erro se alguem puder dar uma luz agradeço imagem2.bmp
  7. Bom dia Estou começando a implantar a NFSe no sistema que emite minhas proprias notas, tentei enviar uma nota em homologação, a principio deu um erro que parecia que o schema estava errado pois dizia que "viola a restrição '11' cpf com valor. Não entendi por que, mas ai fui modificando as propriedades de posição e tentei novamente. Agora está dando a mensagem conforme a foto anexo As opções avançadas da internet estão todas corretas, e pra comprovar que estão, testei a consulta de uma NF-e também em homologação e rodou certinho, ou seja, o certificado ok opções da internet ok; No entanto, estou tentando enviar usando o proprio CNPJ de um cliente meu, por ser homologação, não sei se tem algo a ver com isso. Na sequencia, mudei o cnpj para '99999999000191';, deixando em branco todas as informações do Tomador. e está sempre dando a mensagem conforme a figura. Será que alguém poderia me apontar uma possibilidade? obrigado imagem.bmp
  8. Bom dia Ryan Não tentei ainda, pois acabei efetuando através do aplicativo da bematech, e anteontem liguei para o cliente para tentar essa possibilidade, porém o cliente informou que vai comprar o SAT, ai eu fiquei mais feliz ainda, pois o SAT já é mais sossegado, não tem tanta burocracia. mas mesmo assim obrigado por se preocupar e me perdoe pela falta de resposta. obrigado
  9. Boa noite Windsoft Muito obrigado pela dica, e concordo plenamente com voce, pois, da ultima vez que tentei isso faz 6 meses, quando o acbrNFS-e ainda estava sendo alterado e corrigido, eu fiz a mesma pergunta porem foi por telefone, eles fizeram uma lambança e acabaram me cadastrando num portal que permitia que eu enviasse as minhas notas em arquivo.TXT, ai dei um tempo. De acordo com sua posição, tentei enviar uma NFS-e em homologação, a principio deu um erro que parecia que o schema estava errado pois dizia que "viola a restrição '11' cpf com valor. Não entendi por que, mas ai fui modificando as propriedades de posição e tentei novamente. Agora está dando a mensagem conforme a foto anexo As opções avançadas da internet estão todas corretas, e pra comprovar que estão, testei a consulta de uma NF-e também em homologação e rodou certinho, ou seja, o certificado ok opções da internet ok; No entanto, estou tentando enviar usando o proprio CNPJ de um cliente meu, por ser homologação, não sei se tem algo a ver com isso. Na sequencia, mudei o cnpj para '99999999000191';, deixando em branco todas as informações do Tomador. e está sempre dando a mensagem conforme a figura. Será que alguem poderia me apontar uma possibilidade? obrigado imagem.bmp
  10. Boa noite pessoal Estou tentando começar a implantar NFS-e aqui na minha empresa, para que eu possa enviar minhas proprias nota de serviços. Pelo que vi no componente, sendo que estou em Pindamonhangaba, o Provedor é o Ginfes, então acessei o site, www.ginfes.com.br e lá vi um email de atendimento [email protected]. Mandei um email solicitando informações de como me credenciar, cadastrar ou o que for preciso para conseguir consumir o webservices, enviando minhas notas. Lembrando que atualmente eu já acesso esse portal para fazer minhas notas manualmente. A resposta do email foi a seguinte: Bom dia. A ferramenta Ginfes não atende o município de Pindamonhangaba. Suporte Ginfes NFS-e [email protected] Eicon - Inteligência em Controles www.eiconbrasil.com.br Agora me deixou numa dúvida danada, alguem pode me dar uma posição de como isso funciona ? Lembrando que tenho certificado eletronico e tenho tb usuario e senha para acessar o portal para emitir minhas notas manualmente. Agradeço a quem puder ajudar
  11. Sim sr professor, muito obrigado por mais informações Valeu
  12. Bom dia Regys e demais companheiros Não sei como voce fez o seu teste, mas nem sempre a forma que se faz por ai é igual a que é necessária por arqui, bom mas isso não vem ao caso agora, o importante é que consegui resolver o problema usando uma função acho que do acbr For i:=0 to dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento:=FormatFloat('00',dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); vXml:=ConverteXMLtoUTF8(dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.XML); Era somente isso que eu queria e tentei explicar desde o inicio, o XML quando abria no navegador aparecia que estava com falhas, na realidade é porque no XML contem palavras acentuadas e o componente não retornava o XML com cabeçalho de UTF8. Obrigado a quem me ajudou Bom dia a todos
  13. Boa Regys, Mas me responde como adiciono o cabeçalho, visto que estou pegando esse conteúdo da XMLEvento que vem do componente ? Seu eu fizer isso, acredito que vai ser uma baita gambiarra For i:=0 to acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento := FormatFloat('00',acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); vXml :='<?xml version="1.0" encoding="UTF-8"?>'+acbrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items.RetInfEvento.XML;
  14. Pessoal acho que o problema nesse XMLEvento está na acentuação do Texto do Retorno onde diz: </X509Certificate> </X509Data> </KeyInfo> </Signature> </evento> <retEvento versao="1.00"> <infEvento><tpAmb>2</tpAmb> <verAplic>SP_EVENTOS_PL_100</verAplic> <cOrgao>35</cOrgao> <cStat>135</cStat> <xMotivo>Evento registrado e vinculado a NF-e</xMotivo> <chNFe>35151068050350000104550010000000021000000024</chNFe> <tpEvento>110110</tpEvento> <xEvento>Carta de Correção registrada</xEvento> <nSeqEvento>2</nSeqEvento> <CNPJDest>03679163000130</CNPJDest> <dhRegEvento>2015-10-17T12:09:47-03:00</dhRegEvento> <nProt>135150004820391</nProt> </infEvento> </retEvento> </procEventoNFe> Pois, editei o XMLEvento no bloco de notas e fui acertando as posições até onde ele informava o erro ao abrir no navegador, então deixei esse texto em negrito da seguinte forma, "<xEvento>Carta de Correcao registrada</xEvento>" , tirei o acento, e depois salve o texto como xml novamente, pasmem, o xml abriu normalmente no navegador, agora não sei se procuro um POG para resolver ou se voces podem me auxiliar quanto a esse problema.
  15. Bom dia Seguinte, desculpe se não fui claro, é fato, realmente lendo o post desde o incio, acabei misturando as duvidas, porém são dúvidas que se resolvidas em uma delas, as demais também serão resolvidas, então vamos fazer o seguinte: apaga tudo que perguntei acima e vamos começar do zero. Infelizmente não consigo fazer um passo a passo usando o demo, pois no demo não tem a possibilidade de fazer conforme o que estou precisando, mas vou tentar explicar passo a passo. Primeiro: a) Quando faço um evento CC-e, consigo enviar normalmente; b.) Após o envio, uso a opção vXML:=acbrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML; para capturar o conteúdo do XMLEvento para salvar no Banco de dados; c) Neste momento, eu consigo imprimir o Evento com os comandos abaixo o que ocorre normalmente, ou seja é impresso. With acbrNFe do begin if qEvento.fieldByName('XML').AsString<>'' then begin EventoNFe.Evento.Clear; EventoNFe.LerXMLFromString(qEvento.fieldByName('XML').AsString); ImprimirEvento; end else begin Showmessage('XML não Existe no Banco de Dados'); end; end; d) Bom, até ai, eu já tenho o XMLEvento armazenado no banco de dados conforme o campo qEvento.FieldByName('XML').AsString e) Agora, eu preciso salvar esse XMLEvento que foi gravado no bando de dados para um arquivo externo, cujo, possa ser enviado tando para o destinatário como para o contador no final do mês. só que o conteúdo do XMLEvento que foi salvo conforme letra {b} acima, se eu tentar copia-lo ou salva-lo como arquivo, ao tentar verificar seu conteúdo utilizando um navegador ocorre um erro dizendo que o XMLEvento está mal formado conforme foi Postado segunda às 23:44 Segundo: Consulta NFE Supondo que tenha ocorrido alguma impossibilidade de eu salvar no banco de dados o XMLOriginal no momento do Envio e ou salvar o XMLEventoOriginal no momento do EnvioEvento, venho expor: a) Neste caso, Executo uma Consulta e faço uso dos comandos abaixo: acbrNFe.NotasFiscais.Clear; if qNota.FieldByName('xml').AsString<>'' then begin acbrNFe.NotasFiscais.LoadFromString(qNota.FieldByName('xml').AsString); end else begin Função_GerarXML; acbrNFe.NotasFiscais.Assinar; end; acbrNFe.WebServices.Consulta.NFeChave := qNota.FieldByname('DANFE').AsString; acbrNFe.WebServices.Consulta.Executar; VarRetorno := acbrNFe.WebServices.Consulta.cStat; b.) Para Capturar o Retorno do conteúdo da XML da Nota eu utilizo vXML := acbrNFe.NotasFiscais.Items[0].XML; c) Agora, devido a essa nota conter Eventos vinculados a ela, fiz um For para percorrer todos os eventos vinculados a nota conforme os comandos abaixo: For i:=0 to acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento := FormatFloat('00',acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); vXml := acbrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items.RetInfEvento.XML; d) Com os comandos acima, eu tenho a possibilidade de Salvar o conteúdo do XML da nota no banco de dados e ou o conteúdo do XMLEvento no banco de dados, bem como, se eu quiser imprimir o evento depois disso, também consigo imprimir normante conforme a letra {c} acima, no entanto se eu tentar copia-lo ou salva-lo como arquivo, ao tentar verificar seu conteúdo utilizando um navegador ocorre um erro dizendo que o XMLEvento está mal formado conforme foi Postado segunda às 23:44 É só isso que estou tentando dizer, veja, não estou dizendo que o componente tem erros, e sim tentando perguntar a voces se o que estou executando está correto dentro daquilo que estou desejando fazer, visto que ocorre essa dificuldade. Pois, ao enviar o XMLEvento para o destinatário, o mesmo reclama que não consegue abrir o XMLEvento que foi enviado para ele. Espero que agora eu tenha descrito o problema de uma maneira geral. abraço a todos
  16. Bom dia Regys, Isaque, Italo, Daniel e demais companheiros Acho que vocês me deixaram de castigo Alguém poderia mandar uma palavra consolo para minhas dificuldades ? Obrigado
  17. Regys Agora acho que consegui gerar o XML Eu estou fazendo assim: ####################################### procedure TF_NFE.acSincronizarXMLExecute(Sender: TObject); Var vRet:integer; vArquivo,vIdEvento,vTpEvento,vChave:String; vXml:string; zVenda:TZQuery; i:integer; begin if Permitido(dm.LoginCNPJ.AsString,'NFE_6')=False then begin //consultar Exit; End; zVenda:=TZQuery.Create(nil); zVenda.Connection:=dm.BD; Try if dm15.NFE.RecordCount>0 then begin if dm15.NFEDANFE.AsString='' then begin mBox('NF-e sem chave. Tente enviar novamente e depois sincronize','E',[mbok]); Exit; end; dm00.acbrNFe.NotasFiscais.Clear; if dm15.NFE.FieldByName('xml').AsString<>'' then begin dm00.acbrNFe.NotasFiscais.LoadFromString(dm15.NFE.FieldByName('xml').AsString); end else begin acGerarXML.Execute; dm00.acbrNFe.NotasFiscais.Assinar; end; dm00.acbrNFe.WebServices.Consulta.NFeChave := dm15.NFE.FieldByname('DANFE').AsString; dm00.acbrNFe.WebServices.Consulta.Executar; vRet:=dm00.acbrNFe.WebServices.Consulta.cStat; case vRet of 100,150:Begin Case vRet of 100:mBox('Autorizada ','I',[MBOK]); 150:mBox('Autorizada Fora do Prazo','I',[MBOK]); end; dm15.NFE.Edit; dm15.NFE.FieldByName('SITUACAO').AsString :='1'; //Validada dm15.NFE.FieldByName('DANFE').AsString :=dm00.acbrNFe.WebServices.Consulta.NFeChave; dm15.NFE.FieldByName('LOTE').AsInteger :=dm15.NFENOTA.AsInteger; dm15.NFE.FieldByName('PROTOCOLO').AsString :=dm00.acbrNFe.WebServices.Consulta.Protocolo; dm15.NFE.FieldByName('XML').AsString :=dm00.acbrNFe.NotasFiscais.Items[0].XML; dm15.NFE.Post; dm15.NFE.ApplyUpdates(-1); {Aqui o componente Consulta retorna todos os eventos ligados a NF-e} For i:=0 to dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Count-1 do begin vIdEvento:=FormatFloat('00',dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.InfEvento.nSeqEvento); dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.LerXml; vXml:=dm00.acbrNFe.WebServices.Consulta.procEventoNFe.Items.RetEventoNFe.XML; dm15.EventoConsulta.Close; dm15.EventoConsulta.Params.ParamByName('pNota').AsInteger :=dm15.NFE.fieldbyname('nota').AsInteger; dm15.EventoConsulta.Params.ParamByName('pSerie').AsString :=dm15.NFE.fieldbyname('Serie').AsString; dm15.EventoConsulta.Params.ParamByName('pIdEvento').AsInteger :=StrToInt(vIdEvento); dm15.EventoConsulta.Open; if dm15.EventoConsulta.RecordCount>0 then begin dm15.EventoConsulta.Edit; dm15.EventoConsulta.FieldByName('XML').AsString:= vXml; dm15.EventoConsulta.Post; dm15.EventoConsulta.ApplyUpdates(-1); end; end; End; 101,151,155:Begin ####################################### Entao, estou usando a linha em negrito para armazenar o conteudo do XML Evento na variavel vXML e posterior, gravar no banco de dados logo abaixo Segue anexo o que estou recebendo nessa vXml Desculpe se fui áspero em algumas palavras, sou um ser humano. abraço a todos a.xml
  18. mcola No meu sistema eu armazeno em tabela vinculada a venda tipo tblReceber e gravo a forma de pagamento selecionada, portanto no momento da impressao Case formapg.itemindex of 0:mpdinheiro; 1:mpCheque; 2:mpCartaoCredito; else mpOutros end;
  19. Bom dia Regys Nossa, estou lutando pra trazer o XML, agora não consigo mais nem trazer o que estava meio quebrado como informei anteriormente, ta uma confusão na minha cabeça puxa, me da uma dica de como fazer o passo a passo na consulta de forma que eu possa tanto ter localmente os XMLs tanto da NFE quanto do Evento bem como, quais as propriedade que posso utilizar para obter o XML da NFE e do evento para armazenar em memoria, a fim de salvar no de dados. Só isso que preciso, no mais estou muito feliz. ####################################################### tipo: acbrnfe.consultar Retorno NomedoArquivo:=acbrnfe.consulta.retorno.nomedoarquivo xml:=acbrnfe.consulta.retorno.ConteudodoXMLOriginal Retorno dos Eventos For i:=0 to QtdeEventos do begin NomedoArquivoEvento:=acbrnfe.consulta.retorno.nomedoarquivo; xml:=acbrnfe.consulta.retorno.ConteudodoXMLOriginal end; ####################################################### Regys, tenho certeza que essa é a duvida de muitos outros e que as vezes, assim como eu, acaba fazendo uma POG pois não consegue usar os recursos fantasticos desse Componente chamado ACBR. Queria eu, poder trabalhar ao lado de voces e ter a condição de conhecimento sobre componente, ter a possibilidade de escrever sempre um passo a passo para todos os contribuintes do ACBR seja ele financeiro ou de desenvolvimento. Se voce não puder ajudar neste aspecto, espero que uma boa alma possa pelo menos dar umas dicas. abraço a todos
  20. Valeu meu querido, agora voce deu uma nova luz, comentou da versão 7 blz vou testar e te falo obrigado
  21. ok infelizmente agora ja não consigo mais testar, eu não tenho ECF, normalmente testo em meus clientes amanha farei isso logo cedo obrigado
  22. Compilei o ECFTeste.EXE, agora eu executo-o e o mesmo fecha automaticamente. O que é isso voce pode me dizer ? em outros tempos li sobre isso, disseram que GBPSV.EXE o duro é tirar o bichinho, não sei se é isso
  23. Ryan Negativo, fiz os testes usando DLLs do AcbrDLL com protocolounico=1 fiz os testes usando DLLs do AcbrDLL com protocolounico=0 fiz os testes usando DLLs do WinMFD2 com protocolounico=1 fiz os testes usando DLLs do WinMFD2 com protocolounico=0 fiz testes acima, somente dentro da pasta do aplicativo fiz testes acima, copiando os arquivos DLLs para System32 Infelizmente não rolou ele simplesmente da uma msg xBematech_FI_ArquivoMFDPath. Cod.: 0 - Erro de Comunicação ! Bom, pra não atrasar nenhum cliente, acabei tomando a liberdade de instalar o aplicativo do Fabricante, mas como o Daniel solicitou, ainda não estarei morto no assunto. Vou levar o ECFTeste para verificar se ocorre os mesmos problemas. obrigado pela ajuda abraço
  24. Daniel em ambas Bematech - erro xBematech_FI_ArquivoMFDPath, Cod.: - 1 - Erro de Execução na Função Daruma - não dá msg de erro, porém não gera os arquivos da NFP como gerava antes um arquivo para cada dia Para Gerar os arquivos da NFP os quais são enviados para o portal da NFP O comando executado : acbrECF.PafMF_MFD_Cotepe1704(Data1.DateTime,Data2.DateTime,'c:\teste'); No post anterior tem um log da Bematech talvez neste caso resolva algo, porem o da Daruma não sei realmente Lembrando que já atualizei as DLLs conforme o componente, deletei tudo que existia de Bematech e deixei somente as DLL/INI de Bema dentro da pasta do EXE reiniciei a maquina e a msg é acima obrigado
  25. Daniel bom dia D7+FB+Capicom+3camadas Estou tentando gerar os arquivos da NFP em bemateck e o erro está indicando que ao assinar o arquivo retorna = 0 BemaFI32-20151013.log comentei a linha que gera a assinatura do EAD e fui tentar num cliente com Daruma, não deu erro nenhum procedure TACBrECF.PafMF_MFD_Cotepe1704(const DataInicial, DataFinal: TDateTime; const PathArquivo: String); begin Self.ArquivoMFD_DLL(DataInicial, DataFinal, PathArquivo, [docTodos], finMFD); //Self.AssinaArquivoComEAD(PathArquivo); end; porém não gerou os arquivos como gerava antes, ou seja um arquivo para cada dia. Tava funcionando tão bonitinho, o que aconteceu, isso foi depois que voces modificaram para acbrECF.PafMF_MFD_Cotepe1704(Data1.DateTime,Data2.DateTime,vDestino); Alguma novidade, será que teremos que realmente baixar o aplicativo do fabricante pra fazer isso ? abraço BemaFI32-20151013.log
×
×
  • 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.