469 lines
8.5 KiB
Plaintext
Executable File
469 lines
8.5 KiB
Plaintext
Executable File
#include "cg0300.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
#include <toolbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Immissione progressivi allegati" -1 -1 78 19
|
|
|
|
GROUPBOX DLG_NULL 77 8
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 1 "Anno "
|
|
HELP "Anno di cui si vogliono visualizzare i saldi"
|
|
FIELD LF_ALLEG->ANNO
|
|
FLAGS "PRZA"
|
|
KEY 1
|
|
USE LF_ALLEG KEY 1
|
|
JOIN %AIS TO LF_ALLEG INTO CODTAB=CODATT
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODATT F_CODATT
|
|
INPUT TIPOCF F_TIPOCF
|
|
INPUT CODCF F_CODCF
|
|
INPUT IMMESSO F_IMMESSO
|
|
DISPLAY "Anno" ANNO
|
|
DISPLAY "Codice att." CODATT
|
|
DISPLAY "Descrizione @40" LF_TABCOM->S0
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Immesso" IMMESSO
|
|
OUTPUT F_ANNO ANNO
|
|
OUTPUT F_CODATT CODATT
|
|
OUTPUT F_CODATTH CODATT
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_IMMESSO IMMESSO
|
|
WARNING "Registrazione assente"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 2 2 "Ditta "
|
|
HELP "Ditta di cui si vogliono visualizzare i saldi"
|
|
FLAGS "RPDG"
|
|
KEY 1
|
|
CHECKTYPE REQUIRED
|
|
USE LF_NDITTE
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
WARNING "Ditta assente"
|
|
END
|
|
|
|
STRING F_RAGSOC_D 50 50
|
|
BEGIN
|
|
PROMPT 24 2 ""
|
|
FLAGS "DP"
|
|
END
|
|
|
|
STRING F_CODATT 5
|
|
BEGIN
|
|
PROMPT 2 3 "Cod.attivita' "
|
|
HELP "Codice dell'attivita' della ditta"
|
|
FIELD LF_ALLEG->CODATT
|
|
FLAGS "PRZ"
|
|
KEY 1
|
|
COPY ALL F_ANNO
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Registrazione assente"
|
|
MESSAGE COPY,F_CODATTH
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_CODATTH 5
|
|
BEGIN
|
|
PROMPT 2 3 "Cod.attivita' "
|
|
FIELD LF_ALLEG->CODATT
|
|
FLAGS "HPRZ"
|
|
KEY 1
|
|
USE LF_ATTIV
|
|
JOIN LF_NDITTE TO LF_ATTIV INTO CODDITTA=CODDITTA
|
|
INPUT CODDITTA F_CODDITTA SELECT
|
|
INPUT CODATT F_CODATT
|
|
DISPLAY "Codice" LF_ATTIV->CODDITTA
|
|
DISPLAY "Ragione sociale @50" LF_NDITTE->RAGSOC
|
|
DISPLAY "Codice attivita'" LF_ATTIV->CODATT
|
|
DISPLAY "Descrizione @40" LF_ATTIV->DESCR
|
|
OUTPUT F_CODATT CODATT
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_DENATT LF_ATTIV->DESCR
|
|
HELP "Inserire il codice dell'attivita'"
|
|
MESSAGE COPY,F_CODATTH
|
|
MESSAGE COPY,3@
|
|
WARNING "Attivita' assente"
|
|
GROUP 2
|
|
END
|
|
|
|
STRING F_DENATT 50
|
|
BEGIN
|
|
PROMPT 24 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
LIST F_TIPOCF 16
|
|
BEGIN
|
|
PROMPT 2 4 "Tipo "
|
|
FIELD LF_ALLEG->TIPOCF
|
|
KEY 1
|
|
HELP "Indicare se cliente, fornitore oppure bolletta doganale"
|
|
ITEM "C|Clienti"
|
|
MESSAGE SHOW,F_T1|HIDE,F_T2|HIDE,F_T3|SHOW,F_T5|HIDE,F_T6
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,F_T1|SHOW,F_T2|HIDE,F_T3|HIDE,F_T5|SHOW,F_T6|ENABLE,F_CODCF|SHOW,6@
|
|
ITEM "B|Boll.doganali"
|
|
MESSAGE HIDE,F_T1|HIDE,F_T2|SHOW,F_T3|HIDE,F_T5|SHOW,F_T6|DISABLE,F_CODCF|SHOW,6@
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 36 4 "Codice "
|
|
FIELD LF_ALLEG->CODCF
|
|
FLAGS "R"
|
|
KEY 1
|
|
COPY ALL F_ANNO
|
|
HELP "Codice relativo al cliente o fornitore"
|
|
ADD RUN cg0 -1
|
|
WARNING "Registrazione assente"
|
|
GROUP 1
|
|
CHECKTYPE REQUIRED
|
|
MESSAGE COPY,F_CODCFH
|
|
END
|
|
|
|
NUMBER F_CODCFH 6
|
|
BEGIN
|
|
PROMPT 36 4 "Codice "
|
|
FIELD LF_ALLEG->CODCF
|
|
FLAGS "HR"
|
|
KEY 1
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT CODCF F_CODCF
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Descrizione@50" RAGSOC
|
|
OUTPUT F_TIPOCF TIPOCF
|
|
OUTPUT F_CODCFH CODCF
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
OUTPUT F_COFI COFI
|
|
OUTPUT F_PAIV PAIV
|
|
HELP "Codice relativo al cliente o fornitore"
|
|
ADD RUN cg0 -1
|
|
WARNING "Cliente assente"
|
|
GROUP 2
|
|
MESSAGE COPY,F_CODCF
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BOOLEAN F_IMMESSO
|
|
BEGIN
|
|
PROMPT 64 4 "Immesso"
|
|
HELP "Indicare se il saldo e' stato immesso da utente"
|
|
FIELD LF_ALLEG->IMMESSO
|
|
KEY 1
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 2 5 "Rag.sociale "
|
|
FLAGS "U"
|
|
KEY 2
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT RAGSOC F_RAGSOC
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_CODCFH
|
|
HELP "Ragione sociale del cliente o fornitore"
|
|
WARNING "Ragione sociale assente"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_COFI 16
|
|
BEGIN
|
|
PROMPT 2 6 "Cod.fiscale "
|
|
KEY 3
|
|
USE LF_CLIFO KEY 4
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT COFI F_COFI
|
|
DISPLAY "Codice fiscale " COFI
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
COPY OUTPUT F_CODCFH
|
|
HELP "Codice fiscale del cliente o fornitore"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice fiscale assente"
|
|
GROUP 3
|
|
END
|
|
|
|
STRING F_PAIV 12
|
|
BEGIN
|
|
PROMPT 36 6 "Partita IVA "
|
|
KEY 4
|
|
USE LF_CLIFO KEY 5
|
|
INPUT TIPOCF F_TIPOCF SELECT
|
|
INPUT PAIV F_PAIV
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Tipo" TIPOCF
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione sociale@50" RAGSOC
|
|
DISPLAY "Codice fiscale " COFI
|
|
COPY OUTPUT F_CODCFH
|
|
HELP "Partita IVA del cliente o fornitore"
|
|
CHECKTYPE NORMAL
|
|
WARNING "Partita IVA assente"
|
|
GROUP 3
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 27 8 "Anno corrente"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 43 8 "Anno precedente"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 66 8 "Totale"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 9 "Operazioni imponibili "
|
|
END
|
|
|
|
NUMBER F_IMPESC 15
|
|
BEGIN
|
|
PROMPT 25 9 ""
|
|
HELP "Totale operazioni imponibili anno corrente"
|
|
FIELD LF_ALLEG->IMPESC
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE5
|
|
END
|
|
|
|
NUMBER F_IMPESP 15
|
|
BEGIN
|
|
PROMPT 42 9 ""
|
|
HELP "Totale operazioni imponibili anno corrente"
|
|
FIELD LF_ALLEG->IMPESP
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
MESSAGE K_TAB,F_TOTALE1|K_TAB,F_TOTALE6
|
|
END
|
|
|
|
NUMBER F_TOTALE1 15
|
|
BEGIN
|
|
PROMPT 60 9 ""
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_IMPESP+#F_IMPESC}
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 10 "Imposte addebitate "
|
|
END
|
|
|
|
NUMBER F_IVAESC 15
|
|
BEGIN
|
|
PROMPT 25 10 ""
|
|
HELP "Totale imposte addebitate dell'anno corrente"
|
|
FIELD LF_ALLEG->IVAESC
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE5
|
|
END
|
|
|
|
NUMBER F_IVAESP 15
|
|
BEGIN
|
|
PROMPT 42 10 ""
|
|
HELP "Totale imposte addebitate dell'anno precedente"
|
|
FIELD LF_ALLEG->IVAESP
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
MESSAGE K_TAB,F_TOTALE2|K_TAB,F_TOTALE6
|
|
END
|
|
|
|
NUMBER F_TOTALE2 15
|
|
BEGIN
|
|
PROMPT 60 10 ""
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_IVAESP+#F_IVAESC}
|
|
END
|
|
|
|
TEXT F_T1
|
|
BEGIN
|
|
PROMPT 2 11 "Op. non imp. ed esenti "
|
|
FLAGS "H"
|
|
END
|
|
|
|
TEXT F_T2
|
|
BEGIN
|
|
PROMPT 2 11 "Op. senza appl. d'imp. "
|
|
FLAGS "H"
|
|
END
|
|
|
|
TEXT F_T3
|
|
BEGIN
|
|
PROMPT 2 11 "Operazioni senza appl. d'imposta "
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_NIESC 15
|
|
BEGIN
|
|
PROMPT 25 11 ""
|
|
FIELD LF_ALLEG->NIESC
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Totale operazioni non imponibili ed esenti dell'anno corrente"
|
|
MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE5
|
|
END
|
|
|
|
NUMBER F_NIESP 15
|
|
BEGIN
|
|
PROMPT 42 11 ""
|
|
FIELD LF_ALLEG->NIESP
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Totale operazioni non imponibili ed esenti dell'anno precedente"
|
|
MESSAGE K_TAB,F_TOTALE3|K_TAB,F_TOTALE6
|
|
END
|
|
|
|
NUMBER F_TOTALE3 15
|
|
BEGIN
|
|
PROMPT 60 11 ""
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_NIESP+#F_NIESC}
|
|
END
|
|
|
|
TEXT F_T4
|
|
BEGIN
|
|
PROMPT 2 12 "Op. non imp.(Art.8 2^c)"
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_E8ESC 15
|
|
BEGIN
|
|
PROMPT 25 12 ""
|
|
FIELD LF_ALLEG->E8ESC
|
|
FLAGS "R"
|
|
GROUP 6
|
|
PICTURE "."
|
|
HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno corrente"
|
|
MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE5
|
|
END
|
|
|
|
NUMBER F_E8ESP 15
|
|
BEGIN
|
|
PROMPT 42 12 ""
|
|
FIELD LF_ALLEG->E8ESP
|
|
FLAGS "R"
|
|
GROUP 6
|
|
PICTURE "."
|
|
HELP "Totale operazioni non imponibili (Art. 8 2^c) dell'anno precedente"
|
|
MESSAGE K_TAB,F_TOTALE4|K_TAB,F_TOTALE6
|
|
END
|
|
|
|
NUMBER F_TOTALE4 15
|
|
BEGIN
|
|
PROMPT 60 12 ""
|
|
FLAGS "RD"
|
|
GROUP 6
|
|
PICTURE "."
|
|
NUM_CALC {#F_E8ESP+#F_E8ESC}
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 13 "Totale "
|
|
END
|
|
|
|
NUMBER F_TOTALE5 15
|
|
BEGIN
|
|
PROMPT 25 13 ""
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_IMPESC+#F_IVAESC+#F_NIESC+#F_E8ESC}
|
|
END
|
|
|
|
NUMBER F_TOTALE6 15
|
|
BEGIN
|
|
PROMPT 42 13 ""
|
|
FLAGS "RD"
|
|
PICTURE "."
|
|
NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP}
|
|
END
|
|
|
|
TEXT F_T7
|
|
BEGIN
|
|
PROMPT 2 15 "Numero fatture "
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_NDOCESC 4
|
|
BEGIN
|
|
PROMPT 25 15 ""
|
|
HELP "Numero di fatture ricevute nell'anno in corso dal fornitore"
|
|
FIELD LF_ALLEG->NDOCESC
|
|
FLAGS "R"
|
|
GROUP 6
|
|
MESSAGE K_TAB,F_TOTALE
|
|
END
|
|
|
|
NUMBER F_NDOCESP 4
|
|
BEGIN
|
|
PROMPT 42 15 ""
|
|
HELP "Numero di fatture ricevute nell'anno precedente dal fornitore"
|
|
FIELD LF_ALLEG->NDOCESP
|
|
FLAGS "R"
|
|
GROUP 6
|
|
MESSAGE K_TAB,F_TOTALE
|
|
END
|
|
|
|
NUMBER F_TOTALE 5
|
|
BEGIN
|
|
PROMPT 60 15 ""
|
|
FLAGS "RD"
|
|
GROUP 6
|
|
NUM_CALC {#F_NDOCESP+#F_NDOCESC}
|
|
END
|
|
|
|
TEXT F_T5
|
|
BEGIN
|
|
PROMPT 2 17 "Operazioni non imponibili (mod 101) "
|
|
FLAGS "H"
|
|
END
|
|
|
|
TEXT F_T6
|
|
BEGIN
|
|
PROMPT 2 17 "Operazioni non imponibili (mod 102) "
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER F_PROG101102 15
|
|
BEGIN
|
|
PROMPT 42 17 ""
|
|
FIELD LF_ALLEG->PROG101102
|
|
FLAGS "R"
|
|
PICTURE "."
|
|
HELP "Totale operazioni non imponibili Art. 8 1^c, Artt. 8 bis, 9 e 72"
|
|
END
|
|
ENDPAGE
|
|
ENDMASK
|