//definizione  maschera per stampa tabella tipi movimento cespiti
#include "cesttmc.h"

PAGE "Stampa Tipi movimento cespiti" -1 -1 78 8

STRING F_INIZIO 1
BEGIN
   PROMPT 2 2 "Da tipo movimento "
   FLAGS "U"
   FIELD CODTAB
   USE %TMC KEY 1
   INPUT CODTAB F_INIZIO
   DISPLAY "Tipo movimento" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_INIZIO CODTAB
   OUTPUT F_D_INIZIO S0
   GROUP 1
   CHEKCTYPE NORMAL
END

STRING F_D_INIZIO 50
BEGIN
   PROMPT 25 2 ""
   FLAGS "D"
END

STRING F_FINE 1
BEGIN
   PROMPT 2 3 "A tipo movimento  "
   FLAGS "U"
   FIELD CODTAB
   USE %TMC KEY 1
   INPUT CODTAB F_FINE
   DISPLAY "Tipo movimento" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_FINE CODTAB
   OUTPUT F_D_FINE S0
   GROUP 2
   CHECKTYPE NORMAL
END
       
STRING F_D_FINE 50
BEGIN
   PROMPT 25 3 ""
   FLAGS "D"
END

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

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

ENDPAGE
ENDMASK