110 lines
1.4 KiB
Plaintext
Executable File
110 lines
1.4 KiB
Plaintext
Executable File
// m70100c.uml - masksheet riga pagamento
|
|
PAGE "Pagamento " -1 -1 66 13
|
|
|
|
DATE 101
|
|
BEGIN
|
|
PROMPT 1 1 "Data pagamento "
|
|
FIELD LF_RPAG->DATAPAG
|
|
GROUP 1
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 65 7
|
|
BEGIN
|
|
PROMPT 1 2 ""
|
|
END
|
|
|
|
NUMBER 102 15
|
|
BEGIN
|
|
PROMPT 2 3 "Compenso "
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->COMPENSO
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 103 15
|
|
BEGIN
|
|
PROMPT 38 3 "Spese "
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->SPESA
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 104 15
|
|
BEGIN
|
|
PROMPT 2 4 "Imponibile "
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->IMPONIBILE
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 105 6
|
|
BEGIN
|
|
PROMPT 2 5 "% Ritenuta "
|
|
FLAGS "R"
|
|
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
|
|
FIELD LF_RPAG->PERC
|
|
PICTURE ".2"
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 106 15
|
|
BEGIN
|
|
PROMPT 38 5 "Ritenuta "
|
|
PICTURE "."
|
|
FLAGS "R"
|
|
FIELD LF_RPAG->RITENUTA
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 107 15
|
|
BEGIN
|
|
PROMPT 2 6 "Contributi SSN/INPS a carico del percipiente "
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 108 15
|
|
BEGIN
|
|
PROMPT 2 7 "Contributi SSN/INPS complessivi "
|
|
PICTURE "."
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER 109 15
|
|
BEGIN
|
|
PROMPT 2 9 "Netto corrisposto "
|
|
PICTURE "."
|
|
FLAGS "RD"
|
|
FIELD LF_RPAG->NETTO
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER PAGF_NUMVERS 6
|
|
BEGIN
|
|
PROMPT 38 21 "VER "
|
|
FLAGS "D"
|
|
END
|
|
|
|
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 "Azzera"
|
|
MESSAGE RESET,1@
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|