Ir para conteúdo
  • Cadastre-se

Carlos Simöes

Membros
  • Total de ítens

    15
  • Registro em

  • Última visita

Posts postados por Carlos Simöes

  1. 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

     

     

     


     

     

     

  2. 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

     

     

    tela 01.PNG

    tela 02.PNG

    tela 04.PNG

  3. 33 minutos atrás, Carlos Simöes disse:

    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:

    --------------------------------------------------------------------------------------------------------------------------------------------------

    image.png.ae51188b287e69dcdf9a4db733d5194d.png

      

       ------------------------------------------------------------------------------------------------------------------------------------------------

      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 ?

    image.png.0bf8d2ed2afb9b6ecb08c1de83210925.png

     

    desde já agradeço

    Carlos

     

     

     

     

     

     

     

     

     

    image.png

    image.png

    image.png

    image.png

    Esqueci o Banco = 070 = BRB

     

    image.png.80f4cccb7efd4fbcf58868601a9c3ed5.png

    Obrigado

    • Curtir 1
  4. 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:

    --------------------------------------------------------------------------------------------------------------------------------------------------

    image.png.ae51188b287e69dcdf9a4db733d5194d.png

      

       ------------------------------------------------------------------------------------------------------------------------------------------------

      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 ?

    image.png.0bf8d2ed2afb9b6ecb08c1de83210925.png

     

    desde já agradeço

    Carlos

     

     

     

     

     

     

     

     

     

    image.png

    image.png

    image.png

    image.png


  5. 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;

     

     

     

     

    Nfe Tela.PNG

  6. 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

     

     

     

     

     

    Capturar.PNG

  7. Boa tarde, estou tentando compilar o exemplo do boleto do Acbr  AcbrBoletoDemo.dpr, utilizando o ACBR Boleto, porém, esta com o seguinte erro:

    Faltal erro uDMFonte.pas(6) File Not Found System.sysutils.dcu

    A Instalação foi feita pelo  AcbrInstall.Trunk2.exe com o versão do Delphi7, foi instalado com sucesso, (conforme arquivo  log_Delphi_7.txt  em anexo)

    mais quando foi abrir o exemplo do ACBR BOLETO NA PASTA

    D:\Acbr\Exemplos\ACBrBoleto\Delphi\AcbrBoletoDemo.dpr

    abre sem erro, mais quando vai compilar ele esta procurado esta DCU   System.sysutils.dcu (conforme tela em anexo)

    procurei esta dcu e não achei.

    será que alguém poderia ajudar

    Obrigado

    Carlos

     

     

     

     

     

     

     

     

    log_Delphi_7.txt

    Captura de tela 2017-04-03 18.05.31.png

×
×
  • 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.