Pesquisar na Comunidade
Showing results for tags 'Comandos gerar e enviar a nfe'.
Encontrado 1 registro
-
Tarde galera!! gostaria de saber se as ORDENS das rotinas esta corretas para gerar, enviar e imprimir o danfe. //Verifica o status do servico ACBrNFe1.WebServices.StatusServico.Executar; //PEGANDO OS DADOS DAS TABELAS E JOGANDO NO COMPONENTE GeraNota; // GERAR O ARQUIVO XML try ACBrNFe1.NotasFiscais.GerarNFe; except NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq; ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq); end; // ASSINAR ACBrNFe1.NotasFiscais.Assinar; // VALIDAR O ARQUIVO try ACBrNFe1.NotasFiscais.Valida; except if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then ShowMessage(ACBrNFe1.NotasFiscais.Items[0].Alertas); // se der erro, salvo o conteudo em um arquivo xml NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq; ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq); ABORT; end; sChave:= Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); // ENVIAR try ACBrNFe1.Enviar(StrToint(edtNf.Text),True); except NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq; ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq); end; if IntToStr(ACBrNFe1.WebServices.Retorno.cStat) = '100' then begin //salvar o arquivo -PRocNFE.xml NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq; if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]); ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq); ACBrNFe1.NotasFiscais.ImprimirPDF; end else Showmessage('Erro na NFe. Status: '+IntToStr(ACBrNFe1.WebServices.Retorno.cStat)+' Motivo: '+(ACBrNFe1.WebServices.Retorno.xMotivo)); no aguardo. att Alexandre