leufmt

Alguém mais não sabe??

mas tem que ter um lugar que traga esse valor assim como nfe

bom dia como pegar a chave da nfse após a emissão? e qual é o tamanho dela 44 ou 50 caracteres? pelo padrão nacional olhei no demo e não achei

pois testei aqui com o ACBrMonitor e ele me trouxe todas as descrições conforme a imagem, ai acredito que falta marcar algum campo no componente para me trazer todas as informações

Não tem uma propriedade no componente que ativado mostra todos os erros? Se não me engano tem, só que não lembro qual

boa noite. do nada a aplicação aqui começou a receber essa mensagem EACBrDFeException with message 'null' na execução dessa linha: ACBrNFe.Enviar(FormatDateTime('yyyymmddhhmmss', Now), False, Sincrono, vZipa) já atualizei o ACBr e nada, olhei o xml gerado e a primeira vista está correto. não sei mais o que pode ser

Como agora não tem mais o pcnNFeW, tenho esse código que agora tenho que converter, mas não estou encontrando similares agora. Como vai ficar agora esse código abaixo? Obrigado. NFe: TNFe; GeradorXML: TNFeW; .... .... .... GeradorXML := TNFeW.Create(NFe); try GeradorXML.GerarXml; CaminhoXML := PathWithDelim(ExtractFilePath(Application.ExeName)+'XML\')+copy(NFe.infNFe.ID, (length(NFe.infNFe.ID)-44)+1, 44)+'-nfe.xml'; GeradorXML.Gerador.SalvarArquivo(CaminhoXML); Result := CaminhoXML; finally GeradorXML.Free; end;

Pois é, descobri essa volta agora, ajustei aqui e deu certo. Obrigado. Já pode fechar esse tópico.

Boa tarde Utilizando o ACBrBoleto observei que não vai para o arquivo remessa o Número do Documento na posição 111 a 120 fica vazio. Informo o Número do Banco = 136, Versão do Arquivo = 85, Versão Lote = 944 Alguém sabe me dizer o que é que devo fazer?

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?

Tu esta falando de qual? Pois preciso de um. Esse link acima que mandaram falou que é para o fr 4.