Acertar Situação da NFe

Código:

FOR EACH nota-fiscal WHERE /*nota-fiscal.cod-estabel  = '3' AND*/
                          nota-fiscal.dt-emis-nota = 01/14/2010 NO-LOCK
                          BREAK BY nota-fiscal.nr-nota-fis.

  IF nota-fiscal.cod-estab <> '1' THEN NEXT.

  IF nota-fiscal.nr-nota-fis < '0000360' OR
    nota-fiscal.nr-nota-fis > '0000360' THEN NEXT.

  FIND FIRST sit-nf-eletro WHERE sit-nf-eletro.cod-estabel  = nota-fiscal.cod-estab AND
                                sit-nf-eletro.cod-serie    = nota-fiscal.serie AND
                                sit-nf-eletro.cod-nota-fis = nota-fiscal.nr-nota-fis NO-ERROR.
  IF AVAIL sit-nf-eletro THEN
  DO:
/*      IF sit-nf-eletro.idi-sit-nf-eletro = 3 THEN NEXT. */

      DISP nota-fiscal.cod-estabel
          nota-fiscal.serie
          nota-fiscal.nr-nota-fis
          INT(sit-nf-eletro.idi-sit-nf-eletro) COLUMN-LABEL "NF-e"
          INT(nota-fiscal.ind-sit-nota) COLUMN-LABEL "Sit Nota".
      ASSIGN sit-nf-eletro.idi-sit-nf-eletro = 1.
/*
1 - Nao enviada
2 - Em processamento
3 - Uso Autorizado
*/


  END.
END.