Jump to content

leufmt

Membros
  • Posts

    267
  • Joined

  • Last visited

Everything posted by leufmt

  1. Obrigado Italo. Agora entendi. Estava procurando em um demo muito antigo, agora que percebi. Vou atualizar aqui. Me desculpe.
  2. Quero saber usando o ACBr
  3. Bom dia Pessoal Como faço para lançar um Vale Pedágio? Não consegui entender pelo demo Obrigado.
  4. Quanto a isso está certo. Pois salvou o valor "3". Aqui: ACBrCEP1.WebService := TACBrCEPWebService(DMBaseDados.ADOQParametroWEBSERVICECEP_PAR.AsInteger); Ou seja: ACBrCEP1.WebService := 3;
  5. 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?
  6. Olhei aqui e já esta True a propriedade ConsultarLoteAposEnvio
  7. Tu não tem um exemplo Italo? Assim não consigo entender
  8. 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.
  9. fpasqueto, tu consegui resolver? Italo, no meu caso é o ISSNET. O que tu sugere com faço?
  10. 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');
  11. 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?
  12. 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?
  13. 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?
  14. Tu esta falando de qual? Pois preciso de um. Esse link acima que mandaram falou que é para o fr 4.
  15. Boa tarde. Alguém conhece um componente gratuito para o fastreport 5 do delphi seatle de qrcode?
  16. Obrigado pessoal, demorei para retornar mas parece que deu certo.
  17. quis dizer o seguinte. Ambos tokens vão ser diferentes para cada ambiente?
  18. Tu esta falando do IDToken ou do Código do Token ou ambos?
  19. 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);
  20. 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
  21. Ixxxi, só isso?! Não sabia. Muito obrigado Italo, vou mexer aqui. Depois te dou um retorno.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.