Ir para conteúdo
  • Cadastre-se

dev botao

NFC-E saindo em formulário A4


Ver Solução Respondido por BigWings,
  • Este tópico foi criado há 1940 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts


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

Link para o comentário
Compartilhar em outros sites

  • Moderadores
1 hora atrás, Carlos Simöes disse:

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

Qual componente DANFE está usando?

Para usar impressão direta na impressora sem passar pelo spooler do Windows você precisa usar o ACBrNFeDANFEESCPOS.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

Estou usando ACBrNFe1, ACBrNFeDANFeESCPOS1.ACBrPosPrinter1

Acbr nfe1 

Danfe = ACBrNFeDANFeESCPOS1

ACBrNFeDANFeESCPOS1

PosPinter = ACBrPosPrinter1

conforma figura abaixo

 

 

configuraçoes.PNG

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

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • 5 meses depois ...
  • Administradores

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1940 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.