Emissao NF-e em contingencia SCAN

[moisesaugusto]

{ R E S O L V I D O }

Prezados amigos.

Apos pesquisar e não encontrar algo que responda minha dúvida, tomo a liberdade de abrir novo tópico.

Estou implementando uma rotina para que, ao ser acionado o modo SCAN na SEFAZ / SP, o meu cliente possa emitir as respectivas notas. Mas estou encontrando uma dificuldade . Apesar de haver preenchido corretamente (acho) as propriedades do componente ACbrNfe, ao tentar transmitir a dita cuja nota recebo o erro " list out of bounds ".

Posto aqui uma parte do código que estou utilizando (só para assegurar que estou fazendo as modificações corretas no componente (pois no modo normal não está dando problema (tanto em produção quanto em homologação )).

Obrigado pela ajuda.

AcbrNfe1.NotasFiscais.Items[0].NFe.Ide.dhCont := Time; // a principio usei date mas tambem dá o mesmo erro.

AcbrNfe1.NotasFiscais.Items[0].NFe.Ide.xJust := 'EMISSAO EM CONTINGENCIA SCAN ';

Ide.tpEmis := teSCAN;

Ide.modelo := 55;

Ide.serie := 900;

Ide.nNF := StrtoInt (EdtNumeroNota.text) ; // controle por SP no banco de dados

Ide.dEmi := StrtoDate (MaskDataemissao.Text);

Ide.dSaiEnt := StrtoDate (MaskDataEntrega.Text);

Ide.hSaiEnt := Now;

... outros codigos ...

// .... enviar ...

[Régys Silveira]

AcbrNfe1.NotasFiscais.Items[0].NFe.Ide.dhCont := Now; // data e hora da entrada em SCAN

[moisesaugusto]

Ola, Regys.

Agradeço-lhe a atenção.

Porém, mesmo eu colocando " Now ", o erro continuou.

Mais alguma sugestão ?

Será que eu reinstalando o componente adiantaria ? Baixei hoje a ultima versao pelo svn mas nao compilei. Os schemas da SEFAZ são os mais atuais (versao PL_006n ).

Olha, a propósito nem estou tentando enviar. Ele nem chega a fazer o .XML.

Comentei a linha referente ao envio.

[Régys Silveira]

Você está utilizando "AcbrNfe1.NotasFiscais.Items[0]", essa nota na primeira posição foi criada, porque o "list index out of bounds" quer dizer que o valor "0" não existe na faixa de valores permitidos, neste caso parece que a nota não existe.

[moisesaugusto]

Boa noite.

Consegui achar o erro.

É que eu estava usando o seguinte código :

AcbrNfe1.NotasFiscais.Items[0].NFe.Ide.dhCont := Now; // data e hora da entrada em SCAN

e outros codigos preenchendo a propriedade items..

Porem o correto (e que agora funciona ) seria :

AcbrNfe1.NotasFiscais.Add.NFe.Ide.tpEmis := TeScan;

ACBrNFe1.NotasFiscais.Add.NFe.ide.dhCont := now;

.. e demais códigos ...

Portanto , { R E S O L V I D O }

[Régys Silveira]

Está errado, a cada vez que faz um Add você adiciona uma nova nota ao componente, por isso lhe perguntei no outro post sobre se você estava ou não adicionando a nota, pelo visto não.

O correto é:

with ACBrNFe1.NotasFiscais.Add do

begin

  NFe.Ide.tpEmis ....

  NFE.Ide.dhCont ...

  // e por ai vai ...

end;

[/code]

[moisesaugusto]

Poxa, Regys, legal..

Vou corrigir, pois eu nem havia pensado nesse detalhe.

Obrigado de novo.

[josadac]

Caros colegas,

 

Depois de tanto tempo emitindo NFe, agora que estou implantando a contingência na modalidade SCAN.

 

Gostaria de saber se, mesmo funcionando na modalidade normal, tenho como testar a modalidade SCAN no ambiente de homologação ?

 

Grato.

[Leonardo Gregianin]

Boa tarde,

 

Recomendo nem começar. O SCAn será desabilitado até 30/06/2014 conforme NT 2013.007 e em substituição a ele será a Sefaz Virtual de Contingência do RS e AN e que já estão implementadas no ACBr.

[josadac]

Ah ok Leonardo, bem lembrado,

 

Como ainda não faço parte do SAC, utilizo a versão livre: CAPICOM  0.7.9.0, creio que é a última disponível.

 

Vc ou algum colega sabe me dizer se esta já funciona p/ homologação as contingencias SVC AN e/ou RS ?

 

Grato pela atenção.

Editado 21 Janeiro, 2014 por josadac