quarta-feira, 27 de novembro de 2013

Localiza Requisições e OS de Serviços ( Datasul )



DEF VAR c-tipo AS CHAR FORMAT "x(12)".
DEF VAR c-narra1 AS CHAR FORMAT "x(100)".
DEF VAR c-narra2 AS CHAR FORMAT "x(100)".
DEF VAR c-narra3 AS CHAR FORMAT "x(100)".

OUTPUT TO e:\os.txt.

PUT  "    NR.ORDEM    NR.REQUIS     DT.REQUIS   TAREFA     ITEM       TIPO         SOLICITANTE".

FOR EACH manut_os NO-LOCK
   WHERE manut_os.dt_requis >= 10/01/2006
     AND (manut_os.cod_tarefa = "MCA"
      OR manut_os.cod_tarefa = "MCE"
      OR manut_os.cod_tarefa = "MTA"
      OR manut_os.cod_tarefa = "MTE"):
    FIND ordem-requis WHERE
         ordem-requis.nr-ord-ser = manut_os.nr_ord_ser NO-LOCK NO-ERROR.
      IF AVAIL ordem-requis
      THEN DO:
          FIND requisicao WHERE
               requisicao.nr-requis = ordem-requis.nr-requis NO-LOCK NO-ERROR.
          IF AVAIL requisicao
          THEN DO:
               FOR EACH it-requisicao OF requisicao:
                   IF requisicao.tp-requis = 1
                      THEN ASSIGN C-TIPO = "REQUISICAO".
                      ELSE ASSIGN C-TIPO = "SOLICITACAO".

                   ASSIGN c-narra1 = substring(it-requisicao.narrativa,1,100).
                   ASSIGN c-narra2 = substring(it-requisicao.narrativa,100,100).
                   ASSIGN c-narra2 = substring(it-requisicao.narrativa,200,100).

                   PUT  ordem-requis.nr-ord-ser FORMAT ">>>>>>>>>999"  AT 01
                        ordem-requis.nr-requis  FORMAT ">>>,>>>,999"   AT 15
                        /*manut_os.dt_requis      FORMAT "99/99/9999"    AT 30*/
                        it-requisicao.dt-entrega FORMAT "99/99/9999"    AT 30
                        manut_os.cod_tarefa     FORMAT "X(05)"         AT 46
                        it-requisicao.it-codigo FORMAT "x(10)"         AT 54
                        C-TIPO                                         AT 65
                        requisicao.nome-abrev   FORMAT "X(15)"         AT 78
                        SKIP
                        c-narra1     SKIP.
                   IF c-narra2 <> ""
                      THEN PUT c-narra2 SKIP.
                   IF c-narra3 <> ""
                      THEN PUT c-narra3 SKIP.
               END.
          END.
      END.
END.
OUTPUT CLOSE.

Nenhum comentário:

Postar um comentário