425 lines
7.3 KiB
Plaintext
Executable File
425 lines
7.3 KiB
Plaintext
Executable File
#include "771234a.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_SAVEREC 8 2
|
|
BEGIN
|
|
PROMPT -17 -1 "~Registra"
|
|
MESSAGE EXIT,K_SAVE
|
|
PICTURE BMP_SAVEREC
|
|
PICTURE BMP_SAVERECDN
|
|
END
|
|
|
|
BUTTON DLG_NEWREC 8 2
|
|
BEGIN
|
|
PROMPT -27 -1 "~Nuovo"
|
|
MESSAGE EXIT,K_INS
|
|
PICTURE BMP_NEWREC
|
|
PICTURE BMP_NEWRECDN
|
|
END
|
|
|
|
BUTTON DLG_DELREC 8 2
|
|
BEGIN
|
|
PROMPT -37 -1 "~Elimina"
|
|
MESSAGE EXIT,K_DEL
|
|
PICTURE BMP_DELREC
|
|
PICTURE BMP_DELRECDN
|
|
END
|
|
|
|
BUTTON DLG_FINDREC 8 2
|
|
BEGIN
|
|
PROMPT -47 -1 "Ri~cerca"
|
|
MESSAGE EXIT,K_F9
|
|
PICTURE 126
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 8 2
|
|
BEGIN
|
|
PROMPT -57 -1 "~Annulla"
|
|
MESSAGE EXIT,K_ESC
|
|
PICTURE 102
|
|
END
|
|
|
|
BUTTON DLG_QUIT 8 2
|
|
BEGIN
|
|
PROMPT -67 -1 "~Fine"
|
|
MESSAGE EXIT,K_QUIT
|
|
PICTURE BMP_QUIT
|
|
PICTURE BMP_QUITDN
|
|
END
|
|
|
|
BUTTON DLG_DISTINTA 8 2
|
|
BEGIN
|
|
PROMPT -77 -1 "~Distinta"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Prospetto 1" -1 -1 78 18
|
|
|
|
GROUPBOX DLG_NULL 78 3
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 3 1 "Ditta "
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA F_CODDITTA
|
|
OUTPUT F_RAGDITTA RAGSOC
|
|
FIELD LF_QUAG->CODDITTA
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "GRD"
|
|
MESSAGE COPY,1@
|
|
END
|
|
|
|
STRING F_RAGDITTA 50
|
|
BEGIN
|
|
PROMPT 17 1 "Ragione "
|
|
FLAGS "D"
|
|
MESSAGE COPY,2@
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 3 "@bUtili dei quali e' stata deliberata la distribuzione nell'anno 1996"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 4 "I - Utili in denaro"
|
|
END
|
|
|
|
SPREADSHEET F_P1_I 78 4
|
|
BEGIN
|
|
PROMPT 0 5 ""
|
|
ITEM "Data delibera"
|
|
ITEM "Ammontare azione"
|
|
ITEM "Numero azioni"
|
|
ITEM "Ammontare complessivo"
|
|
END
|
|
|
|
NUMBER F_P1_I_TOT1 11
|
|
BEGIN
|
|
PROMPT 29 10 "Totali "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_P1_I_TOT2 17
|
|
BEGIN
|
|
PROMPT 54 10 ""
|
|
PICTURE "."
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 11 "II - Utili in natura"
|
|
END
|
|
|
|
DATE F_DATADELIB
|
|
BEGIN
|
|
PROMPT 1 12 "Data delibera "
|
|
FIELD LF_QUAG->P2DATADE
|
|
END
|
|
|
|
SPREADSHEET F_P1_II 78 5
|
|
BEGIN
|
|
PROMPT 0 13 ""
|
|
ITEM "Descrizione dei beni distribuiti@35"
|
|
ITEM "Valore ultimo bilancio@15"
|
|
END
|
|
|
|
NUMBER F_P1_II_TOT 15
|
|
BEGIN
|
|
PROMPT 1 19 "Totale utili in natura "
|
|
PICTURE "."
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_P2IMPQ 15
|
|
BEGIN
|
|
PROMPT 1 20 "Importo imputabile a ciascuna quota o azione "
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P2IMPQ
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Prospetto 2 - I" -1 -1 78 18
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 1 "@bUtili pagati e ritenute effettuate"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "I - Utili in denaro"
|
|
END
|
|
|
|
NUMBER F_UTILIAP21 15
|
|
BEGIN
|
|
PROMPT 1 4 "Utili anno precedente "
|
|
PICTURE "."
|
|
FIELD LF_QUAG->UTILIAP21
|
|
END
|
|
|
|
NUMBER F_UTILI21 15
|
|
BEGIN
|
|
PROMPT 1 5 "Utili deliberati anno in corso "
|
|
PICTURE "."
|
|
FIELD LF_QUAG->UTILI21
|
|
END
|
|
|
|
NUMBER F_UTILIAC21 15
|
|
BEGIN
|
|
PROMPT 1 6 "Utili anno in corso "
|
|
PICTURE "."
|
|
FIELD LF_QUAG->UTILIAC21
|
|
END
|
|
|
|
SPREADSHEET F_P2_I 78 12
|
|
BEGIN
|
|
PROMPT 0 7 ""
|
|
ITEM "Utili I sem. 1996"
|
|
ITEM "Utili II sem. 1996"
|
|
ITEM "Aliquota"
|
|
ITEM "Titolo ritenuta"
|
|
ITEM "Ritenute effettuate"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Prospetto 2 - II" -1 -1 78 18
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 1 "@bUtili pagati e ritenute effettuate"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 2 "II - Utili in natura"
|
|
END
|
|
|
|
NUMBER F_UTILIAP22 15
|
|
BEGIN
|
|
PROMPT 1 4 "Utili anno precedente "
|
|
PICTURE "."
|
|
FIELD LF_QUAG->UTILIAP22
|
|
END
|
|
|
|
NUMBER F_UTILI22 15
|
|
BEGIN
|
|
PROMPT 1 5 "Utili deliberati anno in corso "
|
|
PICTURE "."
|
|
FIELD LF_QUAG->UTILI22
|
|
END
|
|
|
|
NUMBER F_UTILIAC22 15
|
|
BEGIN
|
|
PROMPT 1 6 "Utili anno in corso "
|
|
PICTURE "."
|
|
FIELD LF_QUAG->UTILIAC22
|
|
END
|
|
|
|
SPREADSHEET F_P2_II 78 12
|
|
BEGIN
|
|
PROMPT 0 7 ""
|
|
ITEM "Utili I sem. 1996"
|
|
ITEM "Utili II sem. 1996"
|
|
ITEM "Aliquota"
|
|
ITEM "Titolo ritenuta"
|
|
ITEM "Ritenute effettuate"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Prospetto 3" -1 -1 78 18
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 1 "@bRitenute versate"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 31 3 "Causale dei versamenti"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 63 3 "Importo versato"
|
|
END
|
|
|
|
NUMBER F_P31 15
|
|
BEGIN
|
|
PROMPT 63 5 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P31
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P32AT 15
|
|
BEGIN
|
|
PROMPT 63 7 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P32AT
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P32AR 15
|
|
BEGIN
|
|
PROMPT 63 8 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P32AR
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P32BT 15
|
|
BEGIN
|
|
PROMPT 63 9 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P32BT
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P32BR 15
|
|
BEGIN
|
|
PROMPT 63 10 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P32BR
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P33A 15
|
|
BEGIN
|
|
PROMPT 63 13 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P33A
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P33B 15
|
|
BEGIN
|
|
PROMPT 63 14 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P33B
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P34A 15
|
|
BEGIN
|
|
PROMPT 63 16 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P34A
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P34B 15
|
|
BEGIN
|
|
PROMPT 63 17 ""
|
|
PICTURE "."
|
|
FIELD LF_QUAG->P34B
|
|
MESSAGE K_TAB,F_P3TOT
|
|
END
|
|
|
|
NUMBER F_P3TOT 15
|
|
BEGIN
|
|
PROMPT 63 19 ""
|
|
PICTURE "."
|
|
FLAGS "D"
|
|
NUM_CALC {#F_P31+#F_P32AT-#F_P32AR+#F_P32BT-#F_P32BR+#F_P33A+#F_P33B+#F_P34A+#F_P34B}
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 4 "Sez. 1) Ritenute 10% sugli utili in denaro di cui e' stata "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 5 " deliberata la distribuzione nell'anno 1996."
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 6 "Sez. 2) Maggiori ritenute sugli utili in denaro corrisposti:"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 7 " a) nel primo semestre 1996"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 8 " meno recuperi "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 9 " b) nel secondo semestre 1996"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 10 " meno recuperi"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 11 "Sez. 3) Ritenute, d'acconto o d'imposta sugli utili"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 12 " in natura corrisposti:"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 13 " a) effettuate nel primo semestre 1996"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 14 " b) effettuate nel secondo semestre 1996"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 15 "Sez. 4) Ritenuta d'imposta del 10% sugli utili corrisposti"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 16 " da societa' cooperative ai soci persone fisiche "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 17 " a) effettuate nel primo semestre 1996"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 1 18 " b) effettuate nel secondo semestre 1996"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 52 19 "@bTotale"
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|
|
#include "771234b.uml" // Maschera spreadsheet prospetto 1 - I
|
|
#include "771234c.uml" // Maschera spreadsheet prospetto 1 - II
|
|
#include "771234d.uml" // Maschera spreadsheet prospetto 2 - I
|
|
#include "771234e.uml" // Maschera spreadsheet prospetto 2 - II
|