194 lines
2.7 KiB
Plaintext
Executable File
194 lines
2.7 KiB
Plaintext
Executable File
// m70100e.uml - masksheet riga pagamento quadri D,D1,E,E1
|
|
|
|
PAGE "Pagamento " -1 -1 50 19
|
|
|
|
DATE 101
|
|
BEGIN
|
|
PROMPT 1 1 "Data pagamento "
|
|
FIELD LF_RPAG->DATAPAG
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 49 15
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 3 "Compenso"
|
|
END
|
|
|
|
NUMBER 102 15
|
|
BEGIN
|
|
PROMPT 33 3 ""
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->COMPENSO
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 4 "CPA"
|
|
END
|
|
|
|
NUMBER 103 15
|
|
BEGIN
|
|
PROMPT 33 4 ""
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->IMPCPA
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 5 "Imponibile"
|
|
END
|
|
|
|
NUMBER 104 15
|
|
BEGIN
|
|
PROMPT 33 5 ""
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->IMPONIBILE
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 6 "% Ritenuta "
|
|
END
|
|
|
|
NUMBER 105 6
|
|
BEGIN
|
|
PROMPT 33 6 ""
|
|
PICTURE ".2"
|
|
FLAGS "R"
|
|
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
|
WARNING "L'aliquota deve essere compresa tra 0 e 100"
|
|
FIELD LF_RPAG->PERC
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 7 "Ritenuta"
|
|
END
|
|
|
|
NUMBER 106 15
|
|
BEGIN
|
|
PROMPT 33 7 ""
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->RITENUTA
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 8 "Spese"
|
|
END
|
|
|
|
NUMBER 107 15
|
|
BEGIN
|
|
PROMPT 33 8 ""
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->SPESA
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 9 "Somme regime convenzionale"
|
|
END
|
|
|
|
NUMBER 108 15
|
|
BEGIN
|
|
PROMPT 33 9 ""
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->SOMREGCONV
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 10 "Compenso netto"
|
|
END
|
|
|
|
NUMBER 109 15
|
|
BEGIN
|
|
PROMPT 33 10 ""
|
|
PICTURE "."
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->NETTO
|
|
END
|
|
|
|
// --------------------------------------------------
|
|
// Inizio campi gestiti a programma ma non a maschera
|
|
// --------------------------------------------------
|
|
NUMBER 110 15
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
PICTURE "."
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->SOMNSRIT
|
|
END
|
|
|
|
NUMBER 111 15
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
PICTURE "."
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->AMMLORDO
|
|
END
|
|
|
|
NUMBER 112 15
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
PICTURE "."
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->QUOTAPROV
|
|
END
|
|
|
|
NUMBER 113 15
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
PICTURE "."
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->IMPNETTO
|
|
END
|
|
|
|
NUMBER 114 15
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
PICTURE "."
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->COMNETTO
|
|
END
|
|
|
|
NUMBER 115 5
|
|
BEGIN
|
|
PROMPT 80 80 ""
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->NUMVERS
|
|
END
|
|
// ------------------------------------------------
|
|
// Fine campi gestiti a programma ma non a maschera
|
|
// ------------------------------------------------
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_AZZERAPAG 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "A~zzera"
|
|
MESSAGE RESET,1@
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|