Problema com FS-DA

[igor]

Gente, to testando emitir NFe em modo FS-DA pq um cliente pediu pra eu implementar, mas to com um problema...

Se estou com internet funciona normal, mas se não ele gera um exception com mensagem em branco..

Fui debugando e vi que ele faz:

Executo a funcao (depois de ja ter settado para FSDA, claro):

ACBrNFe1.Enviar(strtoint(iNumLote));

dai cai na Unit ACBRNFe, funcao Enviar, que chama a funcao Enviar com parametro String ao invez de Integer no Numero do Lote. Dai tem no fim da funcao:

NotasFiscais.Assinar;

NotasFiscais.Valida;


Result := webServices.Envia(ALote);

Até ai td bem, dai cai na funcao webServices.Envia da unit ACBrNFeWebServices dai ele tem o seguinte if:

  if not(Self.StatusServico.Executar) then

     begin

       if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then

          TACBrNFe( FACBrNFe ).OnGerarLog(Self.StatusServico.Msg);

       raise Exception.Create(Self.StatusServico.Msg);

     end;

E me gera o Exception com mensagem em branco...

Alguem tem alguma ideia?

[André Ferreira de Moraes]

Se vc está sem internet logicamente não pode usar a função enviar.

[igor]

achei que como estava no tipo FS-DA, ele nao faria contato com a internet.

que tivesse um if para pular o teste sei la...

E tbm eu sempre emiti as notas pelo Enviar, entao nao sabia outro jeito.

Mas ja entendi, entao é só eu usar o Imprimir e pronto (Depois do Assinar e Validar é claro)

Blzz. Vlw a dica =D

[André Ferreira de Moraes]

Não tem como fazer esse IF, pq qdo a internet volta vc tem q enviar o XML mesmo ele constando no código que é FS.

[igor]

humm, faz sentido