Ir para conteúdo
  • Cadastre-se

Jether Feliciano

Membros
  • Total de ítens

    6
  • Registro em

  • Última visita

Posts postados por Jether Feliciano

  1. Salve Isael, então eu apanhei para poder usar os componentes Acbr, enfim como fazer funcionar esse projeto exige um pouco de tempo e conhecimento  das estrutura de pastas dos arquivos, vc precisa baixar alguns fontes que ao meu entender não esta na atualização do SVN usado pelo instalador, enfim como sua primaria vontade era um exemplo, segue... porem é so status de serviço, mas a ideia é a mesma, deste ponto eu consegui chegar longe, mas  vc não vai se livrar de mastigar a NT da NFE ou qualquer outra NT para arquivos fiscais enfim... 

    simples como adorar a graça de Deus nas nossas vidas... 

                  LerConfiguracao; 
                  ACBrNFe1.WebServices.StatusServico.Executar;
                 Mtxt1request.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetWS;    
                 Mtxtvalida.Lines.Text := ACBrNFe1.WebServices.StatusServico.RetornoWS;
                 LoadXML(ACBrNFe1.WebServices.StatusServico.RetornoWS, WBResposta);

                 MemoDados.Lines.Add('');
                 MemoDados.Lines.Add('Status Serviço');
                 //MemoDados.Lines.Add('tpAmb: '    +TpAmbToStr(ACBrNFe1.WebServices.StatusServico.tpAmb));
                 MemoDados.Lines.Add('verAplic: ' +ACBrNFe1.WebServices.StatusServico.verAplic);
                 MemoDados.Lines.Add('cStat: '    +IntToStr(ACBrNFe1.WebServices.StatusServico.cStat));
                 MemoDados.Lines.Add('xMotivo: '  +ACBrNFe1.WebServices.StatusServico.xMotivo);
                 MemoDados.Lines.Add('cUF: '      +IntToStr(ACBrNFe1.WebServices.StatusServico.cUF));
                 MemoDados.Lines.Add('dhRecbto: ' +DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRecbto));
                 MemoDados.Lines.Add('tMed: '     +IntToStr(ACBrNFe1.WebServices.StatusServico.TMed));
                 MemoDados.Lines.Add('dhRetorno: '+DateTimeToStr(ACBrNFe1.WebServices.StatusServico.dhRetorno));
                 MemoDados.Lines.Add('xObs: '     +ACBrNFe1.WebServices.StatusServico.xObs);

           esse á um trecho do código exemplo funcionando, porem vc vai ter que ajustar conforme suas configurações. pois se olhar as procedures da(unit1.pas) do exemplo  vai reconhecer essas linhas

    blz? enfim espero ter ajudado, qualquer coisa tamos na área ! :)

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...