leufmt

Obrigado Italo. Agora entendi. Estava procurando em um demo muito antigo, agora que percebi. Vou atualizar aqui. Me desculpe.

Quero saber usando o ACBr

Bom dia Pessoal Como faço para lançar um Vale Pedágio? Não consegui entender pelo demo Obrigado.

Já consegui. Obrigado.

Quanto a isso está certo. Pois salvou o valor "3". Aqui: ACBrCEP1.WebService := TACBrCEPWebService(DMBaseDados.ADOQParametroWEBSERVICECEP_PAR.AsInteger); Ou seja: ACBrCEP1.WebService := 3;

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?

Olhei aqui e já esta True a propriedade ConsultarLoteAposEnvio

Tu não tem um exemplo Italo? Assim não consigo entender

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.

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

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');

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?

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?

Ententi. Mas um componente de terceiro gratuito não acho?

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?