Ir para conteúdo
  • Cadastre-se

Carlos Simöes

Membros
  • Total de ítens

    15
  • Registro em

  • Última visita

2 Seguidores

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

Carlos Simöes's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

4

Reputação

  1. No Modelo 65 Resolvido conforme abaixo: Resolvido no Modelo 65. Obrigado pela atenção
  2. Obrigado Juliomar, mais você poderia me indica um exemplo ou um demo do ESCPOS, Obrigado
  3. Boa tarde Poderia me ajudar sobre a Logamarca na Nfc-e, vamos lá já coloquei o caminho do logo no compontente ACBrNFeDANFeESCPOS.Logo :'C:\Teste\Logo.Bmp' Só que qdo vou imprimir a Nfc-e o cupom fiscal eletrônica modelo 65 não sai o logo, já no modelo 55 está tudo certo configuração do arquivo Nfe.ini [DANFE] Tipo=0 LogoMarca='C:\Teste\Logo.Bmp' Obrigado pela Atenção Carlos
  4. Boa Noite Conforme nova exigência para TLS 1.2 fiz as seguintes alterações, conforme figura tela 01.png, tela 02. png, estou com windows 7, coloquei o TLS para TLS 1.2. quando vou verificar o status e serviço, msg 12030 a conexão com o servidor foi redefinida ou encerrada, ou um protocolo ssl incompativel foi encontrado Desde já agradeço, pela ajuda. Obs. não consigo abrir o video sobre TLS 1.2
  5. until

    Obrigado pela informação
  6. Bom Dia Não consegui encontrar esta opção no ACBrNFe.Configuracoes.Geral.VersaoQrCode := veqr200; só exibe esta abaixo. ?
  7. Esqueci o Banco = 070 = BRB Obrigado
  8. Vamos lá Estou usando o exemplo do Demo AcbrBoleto, estou com um problema no nosso número estou informado um número Ex: = 2435 conforme figura abaixo: -------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------ logo após clico no botão imprimir não sei o porque só imprimi este número 100000007076 no nosso número, será que alguém poderia me informa qual o erro ? desde já agradeço Carlos
  9. Bom Dia pessoal, estou usando o acbrEtq só que esta com uma fonte muita grande, não estou conseguindo alterar o fonte, alguém poderia me informa aonde possa alterar a fonte, segue a configurações abaixo. Obrigado etiqueta configurações.pdf
  10. Vlw, vc esta certo, esta com o Danfe errado, Obrigado BigWings Vlw
  11. Estou usando ACBrNFe1, ACBrNFeDANFeESCPOS1.ACBrPosPrinter1 Acbr nfe1 Danfe = ACBrNFeDANFeESCPOS1 ACBrNFeDANFeESCPOS1 PosPinter = ACBrPosPrinter1 conforma figura abaixo com esta configuração que esta ai na figura acima, só imprimir no formulário A4, pergunta aonde esta o erro ? Desde já agradeço pela atenção
  12. Bom Dia. Consigo gera o xml no modelo 65 tudo certo, mais quando vai imprimir esta saindo no papel A4, acho que falta algum parâmetro para imprimir na impressora Daruma Dr800, o que esta errado no código abaixo ? fiz uma alteração no Demo do ACBR, segue o código abaixo com as tela Agradeço a todos que puder me ajudar __________________________________________________________________________________________________________________________________________ var vAux, vNumLote, vSincrono : String; Sincrono : boolean; begin if not(InputQuery('WebServices Enviar', 'Numero da Nota', vAux)) then exit; if not(InputQuery('WebServices Enviar', 'Numero do Lote', vNumLote)) then exit; vSincrono := '1'; if not(InputQuery('WebServices Enviar', 'Envio Síncrono(1=Sim, 0=Não)', vSincrono)) then exit; vNumLote := OnlyNumber(vNumLote); if Trim(vNumLote) = '' then begin MessageDlg('Número do Lote inválido.',mtError,[mbok],0); exit; end; if (Trim(vSincrono) <> '1') and (Trim(vSincrono) <> '0') then begin MessageDlg('Valor Inválido.',mtError,[mbok],0); exit; end; if (Trim(vSincrono) = '1') then Sincrono := True else Sincrono := False; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; ACBrNFe1.Configuracoes.Geral.IdCSC := edtCSCId.Text; ACBrNFe1.Configuracoes.Geral.CSC := edtCSCNumero.Text; ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe:=True; ACBrNFe1.DANFE.ViaConsumidor := chkViaConsumidor.Checked; ACBrNFe1.DANFE.ImprimirItens := not chkDanfeResumido.Checked; ACBrPosPrinter1.Device.Porta := cbxPorta.Text; ACBrPosPrinter1.CortaPapel:=True; ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(cbxModelo.ItemIndex); ACBrPosPrinter1.CortaPapel:=True; GerarNFCe(vAux); ACBrNFe1.Enviar(vNumLote,True,Sincrono); <========================= ACBrNFe1.NotasFiscais.Items[0].GravarXML(); if not Sincrono then begin MemoResp.Lines.Text := ACBrNFe1.WebServices.Retorno.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.Retorno.RetornoWS; LoadXML(ACBrNFe1.WebServices.Retorno.RetWS, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFCe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo); MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg)); MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo); MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo); end else begin MemoResp.Lines.Text := ACBrNFe1.WebServices.Enviar.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.Enviar.RetornoWS; LoadXML(ACBrNFe1.WebServices.Enviar.RetWS, WBResposta); MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFCe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Enviar.TpAmb)); MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Enviar.verAplic); MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cStat)); MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cUF)); MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Enviar.xMotivo); //MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Enviar.cMsg)); //MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Enviar.xMsg); MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Enviar.Recibo); //MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Enviar.Protocolo); end; ACBrNFe1.NotasFiscais.Clear; end;
  13. Boa Tarde. estou com o mesmo problema, fiz o novo layout da nfe 4.0 foi aprovada, chave, protocolo, foi no demo da ACBR fiz a consulta pela chave, protocolo e retorno os dados correto da nfe como foi aprovado, mais quando vou no link https://hom.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8= informa a chave, e consulta mais sempre tenho esta resposta. NF-e INEXISTENTE na base nacional, favor consultar esta NF-e no site da SEFAZ de origem. segue os dados na nfe, em anexo, caso Algum dos colegas saberia informar onde consigo fazer essa consulta?  Obrigado pela atenção
  14. Desculpa, mais só temos a versão do Delphi 7, teria como corrigir ?
×
×
  • 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.