campo-sirio/ce/cestloc.uml

//definizione  maschera per stampa tabella localizzazioni cespiti
#include "cestloc.h"

PAGE "Stampa Localizzazioni cespiti" -1 -1 78 6

NUMBER F_INIZIO 10
BEGIN
   PROMPT 2 2 "Da codice "
   FLAGS "Z"
   FIELD CODTAB
   USE LOC KEY 1
   INPUT CODTAB F_INIZIO
   DISPLAY "Codice@10" CODTAB
   DISPLAY "Stabilimento@50" S0
   OUTPUT F_INIZIO CODTAB
   OUTPUT F_D_INIZIO S0
   GROUP 1
   CHEKCTYPE NORMA;
END

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

NUMBER F_FINE 10
BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "Z"
   FIELD CODTAB
   USE LOC KEY 1
   INPUT CODTAB F_FINE
   DISPLAY "Codice@10" CODTAB
   DISPLAY "Stabilimento@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

ENDPAGE

TOOLBAR "bottom" 0 0 0 2
#include <printbar.h>
ENDPAGE

ENDMASK