quarta-feira, 27 de novembro de 2013

Listagem de Movimento do Estoque Datasul Progress

DEF VAR c_saida    AS CHAR FORMAT "x(70)"  INITIAL "e:\MOVTO-IT.TXT" LABEL "MOVIMENTOS".
DEF VAR l-tipo AS LOG FORMAT "ENTRADA/SAIDA" INIT NO.
DEF VAR c-esp  AS CHAR FORMAT "x(03)".
DEF VAR c-item LIKE movto-estoq.it-codigo init "02605".
def stream s_saida.

update  "Listagem do Movimentos do Estoque"             SKIP (0)
               c-item  LABEL "Codigo do Item"           SKIP
               c_saida LABEL "Destino"
        with frame pede with SIDE-LABELS view-as DIALOG-BOX SCROLLABLE TITLE "ESTOQUE".

output stream s_saida TO VALUE (c_SAIDA) CONVERT TARGET SESSION:CHARSET.


find first param-global no-lock no-error.
FIND FIRST mguni.empresa where mguni.empresa.ep-codigo = param-global.empresa-prin NO-LOCK NO-ERROR.

FOR EACH movto-estoq NO-LOCK
   WHERE movto-estoq.dt-trans   <  01/01/2007
     AND movto-estoq.dt-criacao >= 01/01/2007
     AND movto-estoq.it-codigo   = c-item
     BREAK BY movto-estoq.it-codigo:

     IF movto-estoq.esp-docto = 21
        and movto-estoq.tipo-trans = 2 then next.

     DISP movto-estoq.it-codigo
          movto-estoq.dt-trans
          movto-estoq.nro-docto
          movto-estoq.quantidade WITH FRAME f-dados VIEW-AS DIALOG-BOX. PAUSE 0.

     IF movto-estoq.tipo-trans = 1
        THEN ASSIGN l-tipo = YES.
        ELSE ASSIGN l-tipo = NO.

     IF movto-estoq.esp-docto = 2 THEN ASSIGN c-esp = "ACT".
     ELSE IF movto-estoq.esp-docto = 7 THEN ASSIGN c-esp = "DRM".
         ELSE IF movto-estoq.esp-docto = 21 THEN ASSIGN c-esp = "NFE".
           ELSE IF movto-estoq.esp-docto = 28 THEN ASSIGN c-esp = "REQ".
               ELSE IF movto-estoq.esp-docto = 30 THEN ASSIGN c-esp = "RM".
               ELSE ASSIGN c-esp = STRING(MOVTO-ESTOQ.ESP-DOCTO).

     IF first-of(movto-estoq.it-codigo)
        THEN do:
           PUT STREAM s_saida
           mguni.Empresa.razao-social " - Movimento ref. Item: " movto-estoq.it-codigo
           skip(1)
           "Dt.Trans   Dt.Criacao Trans.  Esp Nr.Doc       Emitente         Quantidade"
           SKIP.
     END.

     PUT STREAM s_saida
         movto-estoq.dt-trans  
         " "
         movto-estoq.dt-criacao
         " "
         l-tipo
         " "
         c-esp
         " "
         movto-estoq.nro-docto   FORMAT "X(11)"
         " "
         movto-estoq.cod-emitente
         " "
         movto-estoq.quantidade
       
         SKIP.
END.
OUTPUT CLOSE.

Nenhum comentário:

Postar um comentário