nao falta o bloco para nfe 1.1 ? [RESOLVIDO]

[mpdelphi]

Boa Tarde, srs

Analisando a funcao GerarXML, do arquivo PcnNFeW, linha 194, percebi que ele chaca se a versao é >= 2 se nao for ele ja tenta gerar chave de acesso para o CTE, nao faltou uma tratativa para a nfe 1.1 ???

percebi isso, porque dei um acbrloadfromfile em um xml de uma nfe 1.1.

function TNFeW.GerarXml: boolean;

var

  chave: AnsiString;

  Gerar: boolean;

  xProtNFe : String;

begin

  chave := '';

  if NFe.infNFe.Versao >= 2 then

   begin

     FSchema := TsPL006;

     if not GerarChave(Chave, nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo, nfe.ide.serie,

       nfe.ide.nNF, StrToInt(TpEmisToStr(nfe.ide.tpEmis)), nfe.ide.dEmi, nfe.emit.CNPJCPF) then

       Gerador.wAlerta('A01', 'infNFe', DSC_CHAVE, ERR_MSG_GERAR_CHAVE);

   end

  else

   begin

     FSchema := TsPL005c;

     if not GerarChaveCTe(chave, nfe.ide.cUF, nfe.ide.cNF, nfe.ide.modelo, nfe.ide.serie,

       nfe.ide.nNF, nfe.ide.dEmi, nfe.emit.CNPJCPF) then

       Gerador.wAlerta('A01', 'infNFe', DSC_CHAVE, ERR_MSG_GERAR_CHAVE);

   end;

[André Ferreira de Moraes]

A chave do CTE segue o mesmo padrão da NFe 1.0

[mpdelphi]

obrigado andre...

comentei o trecho abaixo e o problema ta resolvido !! orbrigado

Function GerarChave

{

while codigoNumerico = 0 do

begin

Randomize;

codigoNumerico := Random(99999999);

end;

}

funtion GerarChaveCTe

// Se o usuario informar 0; o código numerico sera gerado de maneira aleatória //

{ //comentado por marcos para resolver problema com a armco

while codigoNumerico = 0 do

begin

Randomize;

codigoNumerico := Random(999999999);

end;

}