Duvidas Dpec

[edudidu]

Olá Amigos.

Preciso desenvolver a rotina da transmissão da NFe por DPEC .. e assim a rotina de transmissão da NFe não foi desenvolvida utilizando ACBR 

assim todos dos dados que são adicionados nas tags do xml devem ser carregados na acbr como se fosse uma NFE normal ? desde ja agradeço

[igor]

acho que vc pode dar um loadfromFile

[edudidu]

Olá Igor obrigado por ajudar..   no nosso caso aqui como tinha dito .. não usamos ACBR para Transmitir ..e nem geramos o Arquivo xml .. o que o sistema Faz aqui e salvar as tags do arquivo xml diretamente em uma coluna no banco de dados... ai se não fosse abusar teria alguma função que conseguiria ler diretamente as tags ? desde ja agradeço

[Régys Silveira]

Você não tem o XML da nota? Se tiver basta fazer, ACBrNFe.NotasFiscais.LoadFromFile(....), ou se tiver o texto do XML ACBrNFe.NotasFiscais.LoadFromString(....).

[igor]

faz o seguinte: pega os dados que vc tem e cria um arquivo XML e depois vc da loadfromfile

 

acho que é o mais facil pra vc.

[igor]

Ou faz o que o Regys falou...  (nao tinha visto o post dele)

[edudidu]

Olá Amigos bom dia.. só mais uma pergunta..

Se configurar

ACBRNfe.Configuracoes.WebServices.Ambiente := tpHomolocacao la no "tpAmb" do xml é necessário também configurar como tipo 2 ? para testar na homolocação ? desde já agradeço. 

[igor]

sim

 

sao 2 coisas diferentes;

 

1 - eh pra qual webservice vc esta enviando os dados (producao ou homologacao)

2 - eh qual o tipo de XML que vc está enviando (producao ou homologacao)
 

nada impede vc de enviar um XML de producao no webservice de homologacao e ter como retorno uma rejeicao

[edudidu]

Bom dia Igor.

A Idéia é enviar esses dados para o Ambiente de Homolocação para testar o desenvolvimento dessa nova rotina que esta sendo desenvolvida..

estou apenas rascunhando ainda tentando enviar para depois desenvolver os tratamentos necessários.. e assim por isso perguntei se o 

 "tpAmb" do la do conteúdo do XML teria que estar setado como homolocação também ja que faço isso nas confiturações do acbr 

desde ja agradeço.

 

   NFe :=  TACBrNFe.Create(nil);

   NFe.Configuracoes.Certificados.NumeroSerie := 'XX XX XX XX XX XX XX XX';

   NFe.Configuracoes.WebServices.Ambiente := TpcnTipoAmbiente(StrToInt('2') - 1);  -> Ambiente de Homolocação.

   NFe.Configuracoes.Geral.PathSchemas := ConfigByName('pPathShemaNFe');

 

    StStreamNF := TStringStream.Create(Xml);

    NFe.NotasFiscais.Clear;

    NFe.NotasFiscais.LoadFromStream(StStreamNF);

 

    NFe.WebServices.EnviarDPEC.Executar

 

    a := UTF8Encode(NFe.WebServices.StatusServico.RetWS);

    b := UTF8Encode(NFe.WebServices.StatusServico.RetornoWS); 

[igor]

sim, teria

[edudidu]

Olá .. Amigos assim tive que parar os testes de desenvolvimento resolver outra urgência rssr

Retomei os testes para o desenvolvimento da Rotina.. quando executo o código Abaixo ele da uma falha de Schema XML.. agora se eu salvar o conteudo das tags em um arquivo XML .. dar um LoadFromFile   nesse arquivo e enviar ele Transmite e fica tudo certo .. vcs conseguem ver algum problema no método LoadFromStream que ele da erro na Transmissão ? desde ja agradeço 

 

 

    StStreamNF := TStringStream.Create(Xml);

    NFe.NotasFiscais.Clear;

    NFe.NotasFiscais.LoadFromStream(StStreamNF);

 

    NFe.WebServices.EnviarDPEC.Executar 

Editado 21 Dezembro, 2012 por edudidu

[Régys Silveira]

Considerando que Xml no teu código é a string do XML da NF-e porque você não usa diretamente o LoadFromString?

 

NFe.NotasFiscais.Clear;
NFe.NotasFiscais.LoadFromString(XML);

[edudidu]

Olá Regys Obrigado pela ajuda então .. ta retornando a mesma regeição .. falha no Schema XML..

[Régys Silveira]

Mas isso acontece quando? no envio, na leitura?

Falha de schema é quando o XML não está bem formado, faltando algo.

[edudidu]

Então Regis fiz o que vc disse ..

 

NFe.NotasFiscais.Clear;
NFe.NotasFiscais.LoadFromString(XML);

 

if  NFe.WebServices.EnviarDPEC.Executar  then

begin

  

end;

 else

  begin

      Retorna A Rejeição

  end;

 

 

agora se faço assim:

 

NFe.NotasFiscais.Clear;
NFe.NotasFiscais.LoadFromString(XML);

NFe.NotasFiscais.SaveToFile(D:\....);

 

NFe.NotasFiscais.Clear;

 

NFe.NotasFiscais.LoadFromFile('D:\..');

 

 

if  NFe.WebServices.EnviarDPEC.Executar  then

begin

   // Autoriza o DPEC

end;

 else

  begin

     

  end;

 

[edudidu]

Resolvido

Editado 27 Dezembro, 2012 por edudidu