#include "db1200a.h"  

PAGE "Stampa anagrafica distinte" -1 -1 80 20

  GROUPBOX DLG_NULL 68 5
  BEGIN
    PROMPT 1 1 "Gruppo selezione stampa"
    
  END  
    
  STRING F_DISTDA 20 
  BEGIN
    FLAGS "U"
    PROMPT 2 2 "Dal codice "
    USE LF_DIST                 
    JOIN LF_ANAMAG INTO CODART==CODDIST
    INPUT CODDIST F_DISTDA
    DISPLAY "Codice@20" CODDIST
    DISPLAY "Virtuale" VIRTUALE
    DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
    OUTPUT F_DISTDA CODDIST
    CHECKTYPE NORMAL
  END

  STRING F_DISTA 20 
  BEGIN
    FLAGS "U"
    PROMPT 2 4 "Al codice  "
    USE LF_DIST                 
    JOIN LF_ANAMAG INTO CODART==CODDIST
    INPUT CODDIST F_DISTA 
    DISPLAY "Codice@20" CODDIST
    DISPLAY "Virtuale" VIRTUALE
    DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
    OUTPUT F_DISTA CODDIST
    CHECKTYPE NORMAL
  END          
  
  BOOLEAN F_DIST_ARTICOLI
  BEGIN
    PROMPT 2 6 "Escludi le distinte articolo"
  END
  
  BOOLEAN F_DIST_LAVORAZIONI
  BEGIN
     PROMPT 2 7 "Escludi le distinte lavorazione"
  END
  
  BOOLEAN F_DIST_VIRTUALI
  BEGIN
    PROMPT 2 8  "Escludi le distinte virtuali"
  END

  BOOLEAN F_DETT_RIGHE    
  BEGIN
    PROMPT 2 10 "Stampa il dettaglio delle righe" 
    MESSAGE TRUE ENABLE,1@
    MESSAGE FALSE DISABLE,1@
  END

  NUMBER F_SORT 1
  BEGIN
    PROMPT 2 11 "Ordina "
    USE ORD
    INPUT CODTAB F_SORT
    DISPLAY "Codice ordinamento" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_SORT CODTAB
    OUTPUT F_SORTDESC S0
    CHECKTYPE NORMAL
    FLAGS "U"
    MESSAGE EMPTY "Immissione",F_SORTDESC
    GROUP 1
  END

  STRING F_SORTDESC 50
  BEGIN
    PROMPT 14 11 ""
    FLAGS "D"
  END

  BOOLEAN F_RIGHE_ARTICOLI
  BEGIN
    PROMPT 2 12 "Escludi le righe articolo"
    GROUP 1,2
  END
  
  BOOLEAN F_RIGHE_LAVORAZIONI
  BEGIN
    PROMPT 2 13 "Escludi le righe lavorazione"
    GROUP 1,2
  END
  
  BOOLEAN F_RIGHE_VIRTUALI
  BEGIN
    PROMPT 2 14  "Escludi le righe virtuali"
    GROUP 1,2
  END

  BOOLEAN F_RIGHE_VARIABILI
  BEGIN
    PROMPT 2 15  "Escludi le righe variabili"
    GROUP 1,2
  END




  BUTTON DLG_OK 10 2 
  BEGIN
    PROMPT -12 -1 ""
  END
  
  BUTTON DLG_QUIT 10 2 
  BEGIN
    PROMPT -22 -1 ""
  END 
  

ENDMASK

ENDPAGE