leufmt

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.

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

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

quis dizer o seguinte. Ambos tokens vão ser diferentes para cada ambiente?

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

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

Pelo acbr