campo-sirio/ce/cestloc.uml
alex 8a05210c2d Patch level : xx.7.054
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riportata la version 1.7 patch 054 aga sul main trunk


git-svn-id: svn://10.65.10.50/trunk@9655 c028cbd2-c16b-5b4b-a496-9718f37d4682
2001-04-30 14:22:43 +00:00

60 lines
918 B
Plaintext
Executable File

//definizione maschera per stampa tabella localizzazioni cespiti
#include "cestloc.h"
PAGE "Stampa Localizzazioni cespiti" -1 -1 78 8
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
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK