[Lançar Vale Pedágio]

Obrigado Italo.

Agora entendi.

Estava procurando em um demo muito antigo, agora que percebi.

Vou atualizar aqui.

Me desculpe.

[Lançar Vale Pedágio]

Quero saber usando o ACBr

[Lançar Vale Pedágio]

Bom dia Pessoal

Como faço para lançar um Vale Pedágio?

Não consegui entender pelo demo

 

Obrigado.

[Configurar ACBrCEP em tempo de execução]

Já consegui. Obrigado.

[Configurar ACBrCEP em tempo de execução]

Quanto a isso está certo. Pois salvou o valor "3".

Aqui: 

ACBrCEP1.WebService := TACBrCEPWebService(DMBaseDados.ADOQParametroWEBSERVICECEP_PAR.AsInteger);

Ou seja:

ACBrCEP1.WebService := 3;

 

[Configurar ACBrCEP em tempo de execução]

Boa tarde gente.

Criei uma tabela temporária para armazenar os webservices do componente do CEP e mostrar um uma tela onde usuário escolhe o webservice e salvar o código no meu DB.

 CDSWebServiceCEP.EmptyDataSet;
 For vI := Low(TACBrCEPWebService) to High(TACBrCEPWebService) do
 begin
  CDSWebServiceCEP.Append;
  CDSWebServiceCEP.FieldByName('Codigo').AsInteger := Integer(vI);
  CDSWebServiceCEP.FieldByName('WebService').AsString := GetEnumName(TypeInfo(TACBrCEPWebService), Integer(vI));
  CDSWebServiceCEP.Post;
 end;

Só que ao setar o componente com o Código e realizar a consulta não dá certo.

ACBrCEP1.WebService := TACBrCEPWebService(DMBaseDados.ADOQParametroWEBSERVICECEP_PAR.AsInteger);

Ao tentar executar o componente retorna com o erro: "Nenhum WebService selecionado".

Alguém tem alguma ideia?

[Tratar Retorno NFSe ao enviar]

Olhei aqui e já esta True a propriedade ConsultarLoteAposEnvio

[Tratar Retorno NFSe ao enviar]

Tu não tem um exemplo Italo?

Assim não consigo entender

[Tratar Retorno NFSe ao enviar]

Ixxi Italo, nesse caso vou precisar do protocolo, e no meu caso não vou ter o protocolo, pois no erro a nota não volta.

[Tratar Retorno NFSe ao enviar]

fpasqueto, tu consegui resolver?

Italo, no meu caso é o ISSNET. O que tu sugere com faço?

[Tratar Retorno NFSe ao enviar]

Bom dia

Estou com o mesmo problema, mas não tenho ideia de como tratar isso.

O código que uso esta abaixo. É bem simples, mas quero melhorar nessa questão de tratamento de erro.

Ai já me falaram que esse problema ai da mensagem em branco é por que registrou a nota lá no servidor, mas ela não retornou, ai me falaram para fazer a impressão assim mesmo. Mas não posso fazer isso sem ter certeza que a nota foi registrada no servidor. E outra, não vou ter o protocolo.

Achei no fórum que dizem para usar o comando ACBrNFSe.NotasFiscais.Items[0].NFSe.Situacao

// 1 = Não Recebido
// 2 = Não Processado
// 3 = Processado com Erro
// 4 = Processado com Sucesso

Alguém pode me dar uma luz?

Por favor.

 If ACBrNFSe.Enviar(vLote, False) then
 begin
  MQNFSeDescricaoServico.AsString := vDescServico;
  MQNFSeBaseCalculo.AsCurrency := vBaseCalculo;
  MQNFSeValorISSQN.AsCurrency := vValorISS;
  MQNFSeValorISSQNRetido.AsCurrency := vValorISSRetido;
  MQNFSeTotalNota.AsCurrency := vTotal;
  MQNFSeCodigoVerificacao.AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao;
  MQNFSeNumeroNota.AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero;
  MQNFSeDataEmissaoNota.AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissao;
  MQNFSeNumeroRPS.AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero;
  MQNFSeSerieRPS.AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie;
  MQNFSeDataEmissaoRPS.AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps;
  MQNFSe.Post;
  MQNFSe.CommitUpdates;
  CDSServicosTemp.First;
  While not CDSServicosTemp.Eof do
  begin
   MQNFSeItens.Append;
   MQNFSeItensCodigoNota.AsInteger := MQNFSeCodigo.AsInteger;
   MQNFSeItensIdServico.AsInteger := CDSServicosTempIdServico.AsInteger;
   MQNFSeItensCodigoServico.AsString := CDSServicosTempCodigoServico.AsString;
   MQNFSeItensQuantidade.AsFloat := CDSServicosTempQuantidade.AsFloat;
   MQNFSeItensValorUnitario.AsFloat := CDSServicosTempValorUnitario.AsFloat;
   MQNFSeItensValorTotal.AsFloat := CDSServicosTempValorTotal.AsFloat;
   MQNFSeItensValorDesconto.AsFloat := CDSServicosTempValorDesconto.AsFloat;
   MQNFSeItensDescricao.AsString := CDSServicosTempDescricao.AsString;
   MQNFSeItensHoras.Value := CDSServicosTempHoras.Value;
   MQNFSeItensSigla.AsString := CDSServicosTempSigla.AsString;
   MQNFSeItens.Post;
   MQNFSeItens.CommitUpdates;
   CDSServicosTemp.Next;
  end;
  If MQAux.Active then
   MQAux.Close;

  MQAux.SQL.Text := 'update ordem_servico set NotaFiscal = ' +
   MQNFSeNumeroNota.AsString + ', NFEmitida = "Sim" where (' +
   FormSelecionaOSNFSe.vCodOrc + ')/* and (cod_emp = ' +
   Dtm.QueryEmpresaIdCodigo.AsString + ')*/';
  //Clipboard.AsText := MQAux.SQL.Text;
  MQAux.Execute;
 end;
 ImpressaoNota('I');

 

[Download XML emitidas pelo emissor]

Bom dia senhores.

Então resumindo, não existe nenhum método disponibilizado pela sefaz para a realização do download do XML da NFe e NFCe?

[Download XML emitidas pelo emissor]

Boa tarde pessoal,

Acho que estou quase com o mesmo problema.
Envie algumas nfce em contingência. Alguns dias depois fui valida-las e não houve retorno, ai tentei novamente e falou que estava duplicata com o cstat=539.
Consultei na sefaz e foram validadas, só que no retorno houve algum problema. Ai não veio o xml.

Alguém sabe o que faço, pois estou vendo ai que ninguém consegue fazer o download do xml.

Alguma solução para o meu caso?

 

[Componente Qrcode para fastreport]

Ententi.

Mas um componente de terceiro gratuito não acho?

[Componente Qrcode para fastreport]

Ao instalar o delphi seatle já instalou fastreports 5. Agora abri o meu aqui para comparar com a tua imagem e não tem o QRCode.

A versão do meu fr é 5.1.5.

Alguma sugestão do que faço?

[Componente Qrcode para fastreport]

Tu esta falando de qual?

Pois preciso de um.

Esse link acima que mandaram falou que é para o fr 4.

[Componente Qrcode para fastreport]

Boa tarde.

Alguém conhece um componente gratuito para o fastreport 5 do delphi seatle de qrcode?

[Gerando o QRCode]

Obrigado pessoal, demorei para retornar mas parece que deu certo.

[Gerando o QRCode]

quis dizer o seguinte.

Ambos tokens vão ser diferentes para cada ambiente?

[Gerando o QRCode]

Tu esta falando do IDToken ou do Código do Token ou ambos?

[Gerando o QRCode]

Eu uso a função abaixo para jogar na impressão, pois não uso a impressão do acbr.

Mas isso que faço não influencia no erro que esta dando. E se eu não resolver esse problema logo vou estar enrolado, pois a partir do dia 01/11 não vai enviar mais com esse erro.

O componente atualizei ontem e uso o delphi 2006

Se puder me ajudar eu agradeço.

    vQRCode := ACBrNFe1.GetURLQRCode(UFtoCUF(Trim(Dtm.QueryEmpresaEstado.AsString)),
                                     ACBrNFe1.Configuracoes.WebServices.Ambiente,
                                     MQCupomChave.AsString,
                                     vDestinatario,
                                     MQCupomDataHora.AsDateTime,
                                     MQCupomValorTotal.AsFloat,
                                     MQCupomValorICMS.AsFloat,
                                     MQCupomDigVal.AsString);
    
    frxReport1.Variables['qrcode'] := QuotedStr(vQRCode);

 

[Gerando o QRCode]

Pelo acbr

[Gerando o QRCode]

Em 18/10/2016 at 15:58, Italo Jurisato Junior disse:

Boa tarde,

Para que isso?

Porque você não usa a função do ACBrNFe?

vQRCode := ACBrNFe1.GetURLQRCode(const CUF: integer; const TipoAmbiente: TpcnTipoAmbiente;
  const AChaveNFe, Destinatario: String; const DataHoraEmissao: TDateTime;
  const ValorTotalNF, ValorTotalICMS: currency; const DigestValue: String): String;

De quebra coloquei os parâmetros da função.

Estou gerando por essa tua fica

[Gerando o QRCode]

Estou recebendo este erro:

Versão Layout: 3.10 
Ambiente: 2 
Versão Aplicativo: 3.00 
Status Código: 464 
Status Descrição: Rejeicao: Codigo de Hash no QR-Code difere do calculado 
UF: MT 
dhRecbto: 19/10/2016 17:25:14 
chNFe: 51161024362038000172650010000000049000000043 

ERRO: Rejeicao: Codigo de Hash no QR-Code difere do calculado
 

- <qrCode>
- <![CDATA[ http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51161024362038000172650010000000049000000043&nVersao=100&tpAmb=2&cDest=03694273190&dhEmi=323031362D31302D31395431373A32333A32302D30333A3030&vNF=5.50&vICMS=0.00&digVal=6A69462F4C6839434768546C7366744F6266624566582B67516A303D&cIdToken=000001&cHashQRCode=EA097E839D32A4982DDE93F331B768BC1F587B21
  ]]> 
  </qrCode>

Acima esta o qrcode

[Gerando o QRCode]

Ixxxi, só isso?!

Não sabia.

Muito obrigado Italo, vou mexer aqui. Depois te dou um retorno.