Status da nota fiscal de serviços

boa tarde a todos,
alguém tem uma baca ou orientação para alterar o status da nota fiscal de serviços?
a mesma esta autorizada na prefeitura, porem no tss sem retorno.

Resposta

Código:

DEF VAR c-cod-estabel       LIKE nota-fiscal.cod-estabel        NO-UNDO.
DEF VAR c-serie             LIKE nota-fiscal.serie INITIAL ""   NO-UNDO.
DEF VAR c-nr-nota-ini       LIKE nota-fiscal.nr-nota-fis        NO-UNDO.
DEF VAR c-nr-nota-fim       LIKE nota-fiscal.nr-nota-fis        NO-UNDO.
REPEAT:
    UPDATE
        c-cod-estabel
        c-serie
        c-nr-nota-ini
        WITH 1 COL FRAME f-1 VIEW-AS DIALOG-BOX.
    ASSIGN
        c-nr-nota-fim = c-nr-nota-ini.
    UPDATE
        c-nr-nota-fim
        WITH FRAME f-1.

   
   
    FOR EACH nota-fiscal EXCLUSIVE-LOCK
        WHERE nota-fiscal.cod-estabel   = c-cod-estabel
          AND nota-fiscal.serie         = c-serie
          AND nota-fiscal.nr-nota-fis  >= c-nr-nota-ini
          AND nota-fiscal.nr-nota-fis  <= c-nr-nota-fim:
   
        ASSIGN OVERLAY(nota-fiscal.char-1,143,2) = "6".
       
   
       
       
    END.
       
    MESSAGE "
        Processo concluido"
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.