-
Total de ítens
135 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que AlexBecker postou
-
aqui a danfe na visualizacao, visualmente/aparentemente bem para a esquerda, não consigo alterar ela, mudo as margens e passo toda vez antes de carregar uma nova danfe mas aparentemente não dá diferença. Juliomar, é NFe está ai é minha config atual, mudei para o fortes conforme imagem acima e dai as margens passo em runtime como no codigo mostrado.
-
tem a config para os 2 ali juliomar, uso os 2 dm5.ACBrNFeDANFeRL1 e dm5.ACBrNFeDANFEFR1, mudei para o FORTES REPORT agora mas é muito estranho parace que a config não surte efeito mudando ao carregar em runtime, tenho uma impressora EPSON aqui tbem de outro modelo e nela também está fora a impressão do FORTES REPORT, como alterar diretamente o relatorio no fortes report? porque ai compilo ejá envio alterado dentro do exe para este cliente.
-
eu criei 2 campos de config no sistema, margem esquerda e direita e passo em runtime toda vez que carrega o sistema: dm5.ACBrNFeDANFeRL1.MargemEsquerda := dm5.LConfiguracaoNfeMargemEsquerdaNFe.Value; dm5.ACBrNFeDANFeRL1.MargemDireita := dm5.LConfiguracaoNfeMargemDireitaNFe.Value; dm5.ACBrNFeDANFEFR1.MargemEsquerda := dm5.LConfiguracaoNfeMargemEsquerdaNFe.Value; dm5.ACBrNFeDANFEFR1.MargemDireita := dm5.LConfiguracaoNfeMargemDireitaNFe.Value; qual é o modelo de danfe que o fast usa? tem a pasta relatorios mas apaguei todos os .FR3, copiei para uma nova pasta e mesmo sem eles continua abrindo a danfe então deve estar configurado para usar internamente, armazenar fr3 no projeto, tem como alterar isto também?
-
Bom dia a todos, tenho 1 cliente com uma impressora EPSON M1100, no sistema estou utilizando o danfe com o fast report e deixo configurar margem porém a minha margem esquerda mesmo com alteração nas regulagens parece não surtir efeito e fica a linha gráfica de fora da impressão, em 1 outro cliente regulo a margem com impressora HP e a ela resolve já neste não, outra coisa é que em alguns codigos estã imprimindo o codigo de produto esta imprimindo o codigo de barras e está remontando em cima do nome do produto, qual é o modelo de DANFE que é usado para imprimir no fast e em que local ele fica salvo? desde já agradeço...
-
Erro ao carregar certificado digital guardado no banco
AlexBecker replied to AlexBecker's tópico in ACBrNFe
então, não sei explicar mas... sem alterar nenhuma linha de código agora, do mesmo jeito que postei acima, sem pegar o número do certificado só informando o arquivo agora funcionou, sai para almoço, voltei e rodei o mesmo código e não retornou mais o erro passou normalmente com o dadosPFX pegando direto do banco de dados, até o momento tudo beleza e funcionando corretamente com o fonte que eu citei no topico do post sem alterar nada, Juliomar e Daniel... MUITO OBRIGADO pela atenção pessoal! -
Erro ao carregar certificado digital guardado no banco
AlexBecker replied to AlexBecker's tópico in ACBrNFe
na verdade PRECISAR eu especificamente não preciso para nada mas quando carrego os dados do certificado para o banco de dados: QConfiguracaoNfeCertificadoArquivoPFX.LoadFromFile(Dialogo.FileName); //DIRETO NA LEITURA DO CAMPO BLOB PARA O BANCO eu informo o certificado e a senha, guardei os dados em um campo blob fazendo a leitura direta do arquivo ( sem nenhum tipo de converção ), faço a leitura: acbrNfce.Configuracoes.Certificados.DadosPFX := LConfiguracaoNfeCertificadoArquivoPFX.Value; //campo no banco com o certificado armazenado acbrNfce.Configuracoes.Certificados.Senha := LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value; então depois de ler desta forma eu não precisaria informar o numero do certificado? seria isto? se caso nao precisar é exatamente da forma que faço hoje ou seja, se é aruquivo PFX eu informo no dadosPFX do acbr, porém me retona o erro que não tenho um arquivoPFX informado ou certificado digital... erro: DadosPFX, ArquivoPFX, URLPFX ou NumeroSerie não especificados ! será que o arquivo PFX carregado para o banco de dados precisa de alguma formatação ou converção? a forma como utilizei encontrei aqui no fórum mesmo indicado por outro colega em um post. o certificado que estou utilizando é válido e estava instalado no windows funcionando corretamente, como ainda até hoje não trabalhei com o arquivo em banco estou levando uma surra em fazer sua utilizacao direta. -
Olá a todos! seguindo alguns exemplos aqui do fórun guardei meu certificado digital no banco de dados em um campo blob ###### RESUMO GERAL ANTES DE LER TODO O POST: acbrNfce.SelecionarCertificado; qual é o comando para ler o numero do certificado depois de especificado para o componente o SSLib conforme fonte abaixo, visando que fiz busca no demo por: SelecionarCertificado e não encontrei, desde já agradeço a todos. try QConfiguracaoNfeCertificadoArquivoPFX.Clear; QConfiguracaoNfeCertificadoArquivoPFX.LoadFromFile(Dialogo.FileName); except MessageBox(handle, 'Erro ao gravar o certificado no banco de dados !', 'Mensagem de aviso', mb_IconInformation + 0 + mb_DefButton4); QConfiguracaoNfeCertificadoArquivoPFX.Clear; Exit; end; o aquivo é carregado e guardado no banco, para ler utilizo: acbrNfce.Configuracoes.Certificados.DadosPFX := LConfiguracaoNfeCertificadoArquivoPFX.Value; //campo no banco com o certificado armazenado acbrNfce.Configuracoes.Certificados.Senha := LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value; configoro com as demais configuracoes que utilizo quando é informado o numero do certificado normalmente ( onde com o certificado instalado no windows e buscando pelo numero funciona corretamente ) porém quando informo: ACBrNFe1.Configuracoes.Certificados.DadosPFX := dm5.LConfiguracaoNfeCertificadoArquivoPFX.Value; Me retorna este Erro aqui: DadosPFX, ArquivoPFX, URLPFX ou NumeroSerie não especificados ! codigo fonte: ################################ dm7.acbrNfce.SSL.SSLType := TSSLType(dm5.LConfiguracaoNfeSSLType.AsInteger); dm7.acbrNfce.Configuracoes.Geral.SSLLib := TSSLLib(dm5.LConfiguracaoNfeSSLLib.AsInteger); dm7.acbrNfce.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(dm5.LConfiguracaoNfeCryptoLib.AsInteger); dm7.acbrNfce.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(dm5.LConfiguracaoNfeHttpLib.AsInteger); dm7.acbrNfce.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(dm5.LConfiguracaoNfeXMLSignLib.AsInteger); dm7.acbrNfce.Configuracoes.Geral.AtualizarXMLCancelado := (dm5.LConfiguracaoNfeAtualizarXML.AsString = 'S'); dm7.acbrNfce.Configuracoes.Geral.ExibirErroSchema := (dm5.LConfiguracaoNfeExibirErroSchema.AsString = 'S'); dm7.acbrNfce.Configuracoes.Geral.Salvar := (dm5.LConfiguracaoNfeSalvarArquivoEnvioResposta.AsString = 'S'); dm7.acbrNfce.Configuracoes.Geral.FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; if (Trim(dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_CAMINHO.Value) <> '') and (dm5.LConfiguracaoNfeSSLLib.Value = '1') and (Trim(dm5.LConfiguracaoNfeUsarCertificadoDoBanco.AsString) <> 'True') then begin dm7.acbrNfce.Configuracoes.Certificados.ArquivoPFX := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_CAMINHO.Value; dm7.acbrNfce.Configuracoes.Certificados.Senha := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value; end else if (Trim(dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SERIE.Value) <> '') and (Trim(dm5.LConfiguracaoNfeUsarCertificadoDoBanco.AsString) <> 'True') then dm7.acbrNfce.Configuracoes.Certificados.NumeroSerie := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SERIE.Value else if (Trim(dm5.LConfiguracaoNfeCertificadoArquivoPFX.Value) <> '') and (Trim(dm5.LConfiguracaoNfeUsarCertificadoDoBanco.AsString) = 'True') then begin dm7.acbrNfce.Configuracoes.Certificados.DadosPFX := dm5.LConfiguracaoNfeCertificadoArquivoPFX.Value; dm7.acbrNfce.Configuracoes.Certificados.Senha := dm5.LConfiguracaoNfeCERTIFICADO_DIGITAL_SENHA.Value; end else begin MessageBox(0, 'Não existe certificado configurado para está empresa! NÃO será possivel Emitir/Consultar NFe!', 'Mensagem de aviso', mb_IconInformation + 0 + mb_DefButton4); Exit; end; ################################ em outro post vi que era necessário ler o numero do certificado digital mesmo pegando o arquivo guardando no campo blob porém não estou encontrando exemplo de como fazer isto usando diretamente o meu componente: acbrNfce no projeto, verifiquei no demo e tentei encontrar: acbrNfce.SelecionarCertificado;
-
Pegar IP do celular local android com Delphi
AlexBecker replied to AlexBecker's tópico in Object Pascal - Delphi & Lazarus
peguei uma APP, MEUIP, é só executar e ele mostra o ip foi mais fácil. -
Pegar IP do celular local android com Delphi
AlexBecker replied to AlexBecker's tópico in Object Pascal - Delphi & Lazarus
Bem depois de muito consultar a internet e o velho googrisss conseguimos a solução, obrigado. -
Pegar IP do celular local android com Delphi
um tópico no fórum postou AlexBecker Object Pascal - Delphi & Lazarus
Olá a todos, alguém já fez uma APP para pegar o IP do celular ( local e não wifi )? achei uma dezena ( pra não dizer uma centena quase rsrsr ) de exemplos na internet mas nada que retorna o ip local do celular androi, apenas localhost ( 0.0.0.0 no caso do android ), endereço de ip wifi... mas o endereço do celular para ver em qual rede ele está não achei algo que funcionasse, se alguém tiver um exemplo e puder ajudar fico grato. -
erro ao enviar a NFSe Número de lote já utilizado
AlexBecker replied to AlexBecker's tópico in ACBrNFSe
também não encontrei local, utilizamos aqui na sequencia um número bem alto e ai passou mas é algo estranho tem que ser pelo chutometro pois entrar em contato com a equiplano é algo não muito fácil, de qualquer forma está resolvido, obrigado a todos. -
erro ao enviar a NFSe Número de lote já utilizado
AlexBecker replied to AlexBecker's tópico in ACBrNFSe
Olá Italo boa tarde, entendi, pelo fato de que se eu usar o número da NFSe e trocar a série realmente o número de lote repete, até ai tudo bem fácil mudar, mas eu não sei de onde pegar o valor de qual numero esta agora o numero de lote, tem alguma funcao para retornar qual é o proximo ou algo assim? pois neste caso ai que postei tentei o numero do lote com valore já acima, 30, 40 e em todos os casos ele me retorna que o numero de lote já foi utilizado. -
Olá boa a tarde todos Estou com estas notas acima de testes já enviada, entao meu ultimo RPS é o 11 ( isto confirmado no site da equiplano ) meu RPS atual é o 12, a última NFSe enviada é a 9, para o número do lote eu incluo o número da NFSe, então a minha NFSe atual é a 10, porém quando tento enviar ela dá a mensagem: Procurei nas configurações, visualizei as notas emitidas lá na equiplano mas não achei este número de lote, estou a um bom tempo tentando emitir as NFSe em homologação para testas e só me retorna esta mensagem ( com base nos dado já citados aqui para emissão ok ). Se alguém puder me ajudar com isto fico muito grato ( como saber qual o número de lote correto a utilizar, de onde tirar esta informação ).
-
bem depois de um dia de pesquisa: é legal pois usa a API do cromium, na verdade voce só esta emulando um browser dentro do delphi e o whatsapp está rodando dentro da API e automaticamente dentro do whatsappweb, como o browser emula na api voce consegue pegar os dados, já estou com tudo rodando aqui, obrigado!
-
e ai é legal ou ilegal? está funcionando bem ainda? tem chance de ser bloqueado... estou precisando de um e gostaria de saber como está este, obrigado!
-
Desculpem a demora no retorno tive alguns problemas ( pessoais, cirurgia entre outros ) e não pude fazer o teste de prontidão, refizemos boa parte do código e funcionou corretamente, acredito que o problema estava na ordem das chamadas das funções e com alguns sobrecarregamentos de memória, sei que depois de refeito funcionou corretamente.
-
vou verificar um meio de colocar um log e retorno aqui, por enquanto obrigado.
-
Bom dia a todos, esto utilizando pós printer em um monitor de impressão que fica rodando e buscando novas impressões a cada 30 segundos, para cada impressão eu configuro o componente novamente e depois de cada impressão eu libero ele, gostaria de saber se alguém utiliza do mesmo jeito e qual a forma correta de se utilizar os componentes em um monitor assim, o meu problema é que depois de algum tempo depois de configurado o pos e enviado a impressão as vezes demora alguns minutos até sair a impressão, acontece com modelos diversos de impressoras, se alguém tiver algo parecido e conseguiu solucionar por gentileza comente! desde já fico agradecido!!
-
Problema com retorno da NFCe sefaz
AlexBecker replied to AlexBecker's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
eu tentei mas quando dou o F8 no enviar ele já envia na hora, não consegui ser rápido o bastante ou não fiz certo porém ainda persiste o erro este mes novamente constatamos o erro. -
achei no meu codigo um ponto bem abaixo nas linhas onde estava pegando o numero aleatorio.... mesmo com o teste acima mais abaixo no codigo ele repassava o valor, valeu pelo toque tudo funcionando novamente, obrigado.
-
Olá a todos, a muito tempo venho gerando o danfe da seguinte forma: PreencheAcbrComNfe(StrToInt(F_menu_principal.FIdEmpresaNfe), dm5.LNfeCabecalhoid.Value); dm5.ACBrNFe1.NotasFiscais.GerarNFe; if (Trim(dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt) = '') then begin try dm5.FRetWS := ''; F_Menu_Principal.FTipoRequisicao := trConsulta; dm5.ACBrNFe1.WebServices.Consulta.NFeChave := dm5.LNfeCabecalhoCHAVE_ACESSO.AsString; dm5.ACBrNFe1.WebServices.Consulta.Executar; dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.tpAmb := dm5.ACBrNFe1.WebServices.Consulta.TpAmb; // cdsNFe.FieldByName('AMBIENTE').AsString; dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe := dm5.ACBrNFe1.WebServices.Consulta.NFeChave;//A chave de acesso que já foi enviada dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.dhRecbto := dm5.ACBrNFe1.WebServices.Consulta.DhRecbto; dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt := dm5.ACBrNFe1.WebServices.Consulta.Protocolo; dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.cStat := dm5.ACBrNFe1.WebServices.Consulta.cStat; dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.xMotivo := dm5.ACBrNFe1.WebServices.Consulta.XMotivo; dm5.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.verAplic := dm5.ACBrNFe1.WebServices.Consulta.verAplic; except end; end; dm5.ACBrNFe1.DANFE.ImprimirDANFE(); Simplificando, eu preencho o componente do ACBR com os dados da nota, consulto e comando para imprimir o danfe. verifiquei nesta linha debugando: dm5.ACBrNFe1.WebServices.Consulta.NFeChave := dm5.LNfeCabecalhoCHAVE_ACESSO.AsString; e o número da NFe está correto, porém ao mostrar a danfe ele não mostra a danfe referente a chave informada ali e pior, cada danfe gerada é com uma chave DIFERENTE! estou usando este codigo a bastante tempo e funcionava normalmente depois de uma ultima atualizacao pra cá ele começou com este problema, verifiquei que no DEMO a impressão do danfe é feita somente tendo o arquivo XML, por gentileza poderia alguém me ajudar com isto?
-
Obrigado, eu peguei um exemplo no caso eu me expressei mal, realmente precisa do XML da nota e do XML da carta, eu gostaria de saber se não tinha um jeito de imprimir somente com o XML da carta mas realmente pelo jeito não funciona assim.
-
Olá boa tarde a todos, estou com um XML de uma carta de correção e tentando fazer a reimpressão do mesmo: dm5.ACBrNFe1.EventoNFe.Evento.Clear; dm5.ACBrNFeDANFEFR1.MostraPreview := True; dm5.ACBrNFe1.DANFE := dm5.ACBrNFeDANFEFR1; dm6.LNfeXmlEmitidosxml.SaveToFile(dm5.LConfiguracaoNfeCaminho_Salvar_XML.Value+'cartacorrecao.xml'); dm5.ACBrNFe1.NotasFiscais.Clear; dm5.ACBrNFe1.NotasFiscais.LoadFromFile(dm5.LConfiguracaoNfeCaminho_Salvar_XML.Value+'cartacorrecao.xml'); dm5.ACBrNFe1.ImprimirEvento; a carta foi emitida em ambiente de homolocação e está salvo no meu banco o XML, eu salvo ele em um caminho e depois tento fazer a impressão da carta, é detectado que é uma carta de correção mas na hora de imprimir fica em branco, bem se puderem indicar onde está meu erro ou até postar um exemplo ( que o exemplo de impressão do site do régys ) e apliquei ele no sistema. OBS também apliquei com loadfromstring e pegando o campo direto da tabela porém o resultado foi o mesmo. ACBrNFeDANFERaveCB.MostrarPreview := True; ACBrNFe.NotasFiscais.Clear; ACBrNFe.NotasFiscais.LoadFromString(<XML Nota Eletrônica>); ACBrNFe.EventoNFe.Evento.Clear; ACBrNFe.EventoNFe.LerXMLFromString(<XML Evento>); ACBrNFe.ImprimirEvento; cartacorrecao.xml
-
Problema com retorno da NFCe sefaz
um tópico no fórum postou AlexBecker NFC-e - Nota Fiscal do Consumidor Eletrônica
Boa tarde a todos! da ultima atualização do ACBR de uns 15 dias atrás até a presente data estou tendo um problema ( muito raro de acontecer ), a NFCe é gerada, é enviada para a receita... porém o ACBR não conseguiu pegar o retorno desta NFCe, não sei o motivo ao certo, se é falha na internet ou oque acontece mas os dados são enviados pra sefaz, a sefaz tem a nota válida lá no servidor porém ao retornar os dados não sei se é questão de conexão ( não consegui simular pois quando passo o comando executar dentro do acbr tem apenas 1 linha e não consigo desativar a rede neste meio tempo ) quando o XML não retorna a chave é modificada para chave OFF-Line ( isto começou agora de uns 15 dias pra cá depois que atualizei o ACBR ) com o digito 9, se eu mudar para o digito 1 gerando a chave e consultar no servidor da sefaz a chave está lá então eu gostaria de saber como recuperar o XML desta nota que está la no servidor, estou agora guardando as 2 chaves, com a situação 9 que é offline e com a situação 1 que é validada mas como o xml da nota válida não retornou fico sem ele no banco, resumindo... como recuperar o XML da nota pela chave dela... desde já, agradeço! -
Delphi seattle VS componentes e library path
AlexBecker replied to AlexBecker's tópico in Object Pascal - Delphi & Lazarus
Pessoal, foi falha minha! peço desculpas... nestas versões o que acontece é que se você instala o 64 bits junto quando abre o library path ele traz selecionado diretamente na caixa os paths para versão 64 bits eu não enxerguei isto... noobada total! obrigado aos colegas e novamente sorry!