279 lines
4.9 KiB
Plaintext
Executable File
279 lines
4.9 KiB
Plaintext
Executable File
PAGE "RIGA IVA" -1 -1 70 15
|
|
|
|
GROUPBOX DLG_NULL 67 4
|
|
BEGIN
|
|
PROMPT 1 1 "Conto"
|
|
END
|
|
|
|
LIST 106 1 12
|
|
BEGIN
|
|
PROMPT 2 2 "Tipo "
|
|
FIELD TMCF
|
|
ITEM " |Conto"
|
|
MESSAGE SHOW,109|HIDE,209|HIDE,309|SHOW,110|HIDE,210|HIDE,310
|
|
ITEM "C|Cliente"
|
|
MESSAGE SHOW,209|HIDE,109|HIDE,309|SHOW,210|HIDE,110|HIDE,310
|
|
ITEM "F|Fornitore"
|
|
MESSAGE SHOW,309|HIDE,109|HIDE,209|SHOW,310|HIDE,110|HIDE,210
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER 107 3
|
|
BEGIN
|
|
PROMPT 21 2 "Gruppo "
|
|
FIELD GRUPPO
|
|
END
|
|
|
|
NUMBER 108 3
|
|
BEGIN
|
|
PROMPT 33 2 "Conto "
|
|
FIELD CONTO
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
|
|
INPUT GRUPPO 107
|
|
INPUT CONTO 108
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT 106 TMCF
|
|
OUTPUT 107 GRUPPO
|
|
OUTPUT 108 CONTO
|
|
OUTPUT 110 DESCR
|
|
OUTPUT 105 TIPOSPRIC
|
|
ADD RUN cg0 -0
|
|
MESSAGE DIRTY,109|DIRTY,209|DIRTY,309
|
|
VALIDATE REQIF_FUNC 1 101
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto inesistente nella riga IVA"
|
|
END
|
|
|
|
|
|
NUMBER 109 6
|
|
BEGIN
|
|
PROMPT 46 2 "Sottoconto "
|
|
FIELD SOTTOCONTO
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO 107
|
|
INPUT CONTO 108
|
|
INPUT SOTTOCONTO 109
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT 109 SOTTOCONTO
|
|
OUTPUT 105 TIPOSPRIC
|
|
OUTPUT 107 GRUPPO
|
|
OUTPUT 108 CONTO
|
|
OUTPUT 110 DESCR
|
|
ADD RUN cg0 -0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 101
|
|
WARNING "Sottoconto inesistente nella riga IVA"
|
|
END
|
|
|
|
|
|
NUMBER 209 6
|
|
BEGIN
|
|
PROMPT 46 2 "Cliente "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF 209
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT 209 CODCF
|
|
OUTPUT 210 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
FLAGS "G"
|
|
MESSAGE COPY,109|RESET,105
|
|
VALIDATE REQIF_FUNC 1 101
|
|
WARNING "Cliente inesistente nella riga IVA"
|
|
END
|
|
|
|
NUMBER 309 6
|
|
BEGIN
|
|
PROMPT 46 2 "Fornitore "
|
|
USE LF_CLIFO
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF 309
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
OUTPUT 107 GRUPPO
|
|
OUTPUT 108 CONTO
|
|
OUTPUT 309 CODCF
|
|
OUTPUT 310 RAGSOC
|
|
CHECKTYPE NORMAL
|
|
ADD RUN cg0 -1
|
|
FLAGS "G"
|
|
MESSAGE COPY,109|RESET,105
|
|
VALIDATE REQIF_FUNC 1 101
|
|
WARNING "Fornitore inesistente nella riga IVA"
|
|
END
|
|
|
|
STRING 110 50
|
|
BEGIN
|
|
PROMPT 2 3 "Descriz. "
|
|
FIELD LF_PCON->DESCR
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR 107
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT 109
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto inesistente o mancante sulla riga IVA"
|
|
ADD RUN cg0 -0
|
|
END
|
|
|
|
STRING 210 50
|
|
BEGIN
|
|
PROMPT 2 3 "Cliente "
|
|
FIELD LF_CLIFO->RAGSOC
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC 210
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT 209
|
|
MESSAGE COPY,110
|
|
ADD RUN cg0 -1
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente sulla riga IVA"
|
|
END
|
|
|
|
STRING 310 50
|
|
BEGIN
|
|
PROMPT 2 3 "Fornitore "
|
|
FIELD LF_PCON->SOTTOCONTO
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC 310
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT 309
|
|
MESSAGE COPY,110
|
|
ADD RUN cg0 -1
|
|
CHECKTYPE NORMAL
|
|
WARNING "Fornitore inesistente sulla riga IVA"
|
|
END
|
|
|
|
|
|
|
|
GROUPBOX DLG_NULL 67 5
|
|
BEGIN
|
|
PROMPT 1 5 "Imposta"
|
|
END
|
|
|
|
STRING 102 4
|
|
BEGIN
|
|
PROMPT 2 6 "IVA "
|
|
FLAGS "U"
|
|
USE %IVA
|
|
INPUT CODTAB 102
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "%@6" R0
|
|
DISPLAY "Tipo" S1
|
|
OUTPUT 102 CODTAB
|
|
OUTPUT 211 S0
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 101
|
|
END
|
|
|
|
STRING 211 50
|
|
BEGIN
|
|
PROMPT 15 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER 103 1
|
|
BEGIN
|
|
PROMPT 2 7 "Detraz. "
|
|
SHEET "Codice|Descrizione@60"
|
|
INPUT 103
|
|
ITEM " |Regime normale"
|
|
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
|
|
ITEM "3|IVA indicata per il solo calcolo di ventilazione"
|
|
ITEM "9|IVA non detraibile per l'articolo 19"
|
|
OUTPUT 103
|
|
OUTPUT 213
|
|
END
|
|
|
|
STRING 213 50
|
|
BEGIN
|
|
PROMPT 15 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
|
|
NUMBER 101 14
|
|
BEGIN
|
|
PROMPT 2 8 "Imponibile "
|
|
FLAGS "RV"
|
|
PICTURE "."
|
|
END
|
|
|
|
NUMBER 104 14
|
|
BEGIN
|
|
PROMPT 41 8 "Imposta "
|
|
FLAGS "RV"
|
|
PICTURE "."
|
|
END
|
|
|
|
|
|
GROUPBOX DLG_NULL 67 3
|
|
BEGIN
|
|
PROMPT 1 10 "Costo/Ricavo"
|
|
END
|
|
|
|
STRING 105 1
|
|
BEGIN
|
|
PROMPT 2 11 "Tipo "
|
|
FLAGS "D"
|
|
HELP "Specifica il tipo Costo/Ricavo"
|
|
SHEET "Codice|Descrizione@50"
|
|
INPUT 105
|
|
ITEM " |Acquisti o vendite in genere"
|
|
ITEM "1|Acquisti beni per rivendita"
|
|
ITEM "2|Acquisti beni ammortizzabili"
|
|
ITEM "3|Acquisti beni ammortizzabili con detr. 6%"
|
|
ITEM "4|Vendita beni strumentali art. 17"
|
|
ITEM "5|Beni per rivendita da non ventilare"
|
|
ITEM "8|Altri beni strumentali acquistati in leasing"
|
|
OUTPUT 105
|
|
OUTPUT 212
|
|
END
|
|
|
|
STRING 212 50
|
|
BEGIN
|
|
PROMPT 15 11 ""
|
|
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_DELREC 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 "Elimina"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|