AlexBonazzi
19117184ad
Files correlati : cg4.exe cg5.exe cg5300a.msk cg5500b.msk cg5500c.msk cg3200a.msk Commento : Esposto il totale versamenti e il totale interessi in IVA Aggiunta la colonna interessi allo sheet versamenti IVA Accorciata la scritta Stampa per competenza IVA
990 lines
20 KiB
Plaintext
Executable File
990 lines
20 KiB
Plaintext
Executable File
#include "cg3200.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
|
|
#include <printbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
#ifdef CONT_SEP
|
|
PAGE "Stampa Mastrini Contabilità separata" -1 -1 76 16
|
|
#else
|
|
PAGE "Stampa Mastrini" 0 0 0 2
|
|
#endif
|
|
|
|
NUMBER F_CODDITTA 5
|
|
BEGIN
|
|
PROMPT 1 1 "Ditta "
|
|
FLAGS "FRD"
|
|
USE LF_NDITTE KEY 1
|
|
CHECKTYPE REQUIRED
|
|
INPUT CODDITTA F_CODDITTA
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Ragione sociale @50" RAGSOC
|
|
OUTPUT F_CODDITTA CODDITTA
|
|
OUTPUT F_RAGSOC RAGSOC
|
|
END
|
|
|
|
STRING F_RAGSOC 50
|
|
BEGIN
|
|
PROMPT 15 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_DATASTAMPA
|
|
BEGIN
|
|
PROMPT 1 2 "Data di stampa "
|
|
FLAGS "A"
|
|
END
|
|
|
|
BOOLEAN F_DATA_LIQ
|
|
BEGIN
|
|
PROMPT 31 2 "St.per comp.IVA "
|
|
MESSAGE TRUE CLEAR,F_ANNO
|
|
MESSAGE FALSE ENABLE,F_ANNO
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 51 2 "Esercizio "
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio " D1
|
|
OUTPUT F_ANNO CODTAB
|
|
CHECKTYPE NORMAL
|
|
MESSAGE HIDE,98|HIDE,99|SHOW,96|SHOW,97
|
|
MESSAGE EMPTY HIDE,96|HIDE,97|SHOW,98|SHOW,99
|
|
FLAGS "RZ"
|
|
ADD NONE
|
|
END
|
|
|
|
LIST F_TIPOCF_INI 25
|
|
BEGIN
|
|
PROMPT 1 3 "Ricerca "
|
|
ITEM " |Gruppo/conto/sottoconto"
|
|
MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
|
|
END
|
|
|
|
NUMBER F_GRUPPOINI 3
|
|
BEGIN
|
|
PROMPT 1 4 "Dal Conto "
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_CONTOINI_CONTO 3
|
|
BEGIN
|
|
PROMPT 22 4 ""
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CONTO CONTO
|
|
OUTPUT F_TIPOCF_INI TMCF
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto inesistente o mancante"
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_CONTO 6
|
|
BEGIN
|
|
PROMPT 29 4 ""
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCINI_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CONTO CONTO
|
|
OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
|
|
OUTPUT F_DESCRINI_CONTO DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP 1 9
|
|
END
|
|
|
|
STRING F_DESCRINI_CONTO 50
|
|
BEGIN
|
|
PROMPT 1 5 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCRINI_CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCINI_CONTO
|
|
GROUP 1 9
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 29 4 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_SOTTOCINI_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Partita IVA" PAIV
|
|
OUTPUT F_SOTTOCINI_CLIENTE CODCF
|
|
OUTPUT F_DESCRINI_CLIENTE RAGSOC
|
|
OUTPUT F_PAIVINI_CLIENTE PAIV
|
|
MESSAGE COPY,F_SOTTOCINI_CONTO
|
|
GROUP 2 9
|
|
END
|
|
|
|
STRING F_PAIVINI_CLIENTE 12
|
|
BEGIN
|
|
PROMPT 43 4 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente o mancante"
|
|
INPUT TIPOCF "C"
|
|
INPUT PAIV F_PAIVINI_CLIENTE
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_CLIENTE
|
|
GROUP 2 9
|
|
END
|
|
|
|
STRING F_DESCRINI_CLIENTE 50
|
|
BEGIN
|
|
PROMPT 1 5 "Ragione sociale "
|
|
FIELD LF_CLIFO->RAGSOC
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCRINI_CLIENTE
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_CLIENTE
|
|
CHECKTYPE NORMAL
|
|
GROUP 2 9
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_FORN 6
|
|
BEGIN
|
|
PROMPT 29 4 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_SOTTOCINI_FORN
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Partita IVA" PAIV
|
|
OUTPUT F_SOTTOCINI_FORN CODCF
|
|
OUTPUT F_DESCRINI_FORN RAGSOC
|
|
OUTPUT F_PAIVINI_FORN PAIV
|
|
GROUP 3 9
|
|
MESSAGE COPY,F_SOTTOCINI_CONTO
|
|
END
|
|
|
|
STRING F_PAIVINI_FORN 12
|
|
BEGIN
|
|
PROMPT 43 4 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
CHECKTYPE NORMAL
|
|
WARNING "Fornitore inesistente o mancante"
|
|
INPUT TIPOCF "F"
|
|
INPUT PAIV F_PAIVINI_FORN
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_FORN
|
|
GROUP 3 9
|
|
END
|
|
|
|
STRING F_DESCRINI_FORN 50
|
|
BEGIN
|
|
PROMPT 1 5 "Ragione Sociale "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DESCRINI_FORN
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_FORN
|
|
CHECKTYPE NORMAL
|
|
GROUP 3 9
|
|
END
|
|
|
|
LIST F_TIPOCF_FINE 25
|
|
BEGIN
|
|
PROMPT 1 6 "Ricerca "
|
|
ITEM " |Gruppo/conto/sottoconto"
|
|
MESSAGE HIDE,5@|HIDE,6@|SHOW,4@
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,4@|HIDE,6@|SHOW,5@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,4@|HIDE,5@|SHOW,6@
|
|
END
|
|
|
|
NUMBER F_GRUPPOFINE 3
|
|
BEGIN
|
|
PROMPT 1 7 "Al Conto "
|
|
GROUP 9
|
|
END
|
|
|
|
NUMBER F_CONTOFINE_CONTO 3
|
|
BEGIN
|
|
PROMPT 22 7 ""
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="") /* &&(TMCF="") */
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Tipo" TMCF
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CONTO CONTO
|
|
OUTPUT F_TIPOCF_FINE TMCF
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
|
|
WARNING "Conto inesistente o mancante"
|
|
GROUP 9
|
|
END
|
|
|
|
|
|
NUMBER F_SOTTOCFINE_CONTO 6
|
|
BEGIN
|
|
PROMPT 29 7 ""
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CONTO CONTO
|
|
OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
|
|
OUTPUT F_DESCRFINE_CONTO DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto inesistente o mancante"
|
|
GROUP 4 9
|
|
END
|
|
|
|
STRING F_DESCRFINE_CONTO 50
|
|
BEGIN
|
|
PROMPT 1 8 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT DESCR F_DESCRFINE_CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCFINE_CONTO
|
|
GROUP 4 9
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 29 7 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente o mancante"
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_SOTTOCFINE_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCFINE_CLIENTE CODCF
|
|
OUTPUT F_DESCRFINE_CLIENTE RAGSOC
|
|
OUTPUT F_PAIVFINE_CLIENTE PAIV
|
|
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
|
GROUP 5 9
|
|
END
|
|
|
|
STRING F_PAIVFINE_CLIENTE 12
|
|
BEGIN
|
|
PROMPT 43 7 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente o mancante"
|
|
INPUT TIPOCF "C"
|
|
INPUT PAIV F_PAIVFINE_CLIENTE
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_CLIENTE
|
|
GROUP 5 9
|
|
END
|
|
|
|
STRING F_DESCRFINE_CLIENTE 50
|
|
BEGIN
|
|
PROMPT 1 8 "Ragione sociale "
|
|
FIELD LF_CLIFO->RAGSOC
|
|
CHECKTYPE NORMAL
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCRFINE_CLIENTE
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_CLIENTE
|
|
MESSAGE COPY,F_DESCRFINE_CONTO
|
|
GROUP 5 9
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_FORN 6
|
|
BEGIN
|
|
PROMPT 29 7 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Fornitore inesistente o mancante"
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_SOTTOCFINE_FORN
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCFINE_FORN CODCF
|
|
OUTPUT F_DESCRFINE_FORN RAGSOC
|
|
OUTPUT F_PAIVFINE_FORN PAIV
|
|
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
|
GROUP 6 9
|
|
END
|
|
|
|
STRING F_PAIVFINE_FORN 12
|
|
BEGIN
|
|
PROMPT 43 7 "Partita IVA "
|
|
USE LF_CLIFO KEY 5
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente o mancante"
|
|
INPUT TIPOCF "F"
|
|
INPUT PAIV F_PAIVFINE_CLIENTE
|
|
DISPLAY "Partita IVA" PAIV
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_FORN
|
|
GROUP 6 9
|
|
END
|
|
|
|
STRING F_DESCRFINE_FORN 50
|
|
BEGIN
|
|
PROMPT 1 8 "Ragione Sociale "
|
|
USE LF_CLIFO KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DESCRFINE_FORN
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_FORN
|
|
MESSAGE COPY,F_DESCRFINE_CONTO
|
|
GROUP 6 9
|
|
END
|
|
|
|
TEXT 96
|
|
BEGIN
|
|
PROMPT 1 9 "Dalla data competenza"
|
|
END
|
|
|
|
TEXT 97
|
|
BEGIN
|
|
PROMPT 40 9 "Alla data competenza "
|
|
END
|
|
|
|
TEXT 98
|
|
BEGIN
|
|
PROMPT 1 9 "Dalla data operazione "
|
|
END
|
|
|
|
TEXT 99
|
|
BEGIN
|
|
PROMPT 40 9 "Alla data operazione "
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 26 9 ""
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 62 9 ""
|
|
END
|
|
|
|
BOOLEAN F_STAMPATOTIVA
|
|
BEGIN
|
|
PROMPT 1 10 "Stampa totali documenti IVA"
|
|
GROUP 8
|
|
END
|
|
|
|
BOOLEAN F_STAMPAPROGRE
|
|
BEGIN
|
|
PROMPT 40 10 "Stampa progressivi attuali"
|
|
GROUP 8
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMOVPROV
|
|
BEGIN
|
|
PROMPT 1 11 "Stampa movimenti provvisori"
|
|
GROUP 8
|
|
END
|
|
|
|
BOOLEAN F_SORTDESC
|
|
BEGIN
|
|
PROMPT 40 11 "Stampa ordinata per descrizione"
|
|
GROUP 8
|
|
END
|
|
|
|
RADIOBUTTON F_NUMCARAT 1 31
|
|
BEGIN
|
|
PROMPT 1 11 ""
|
|
ITEM "1|Stampa Normale (132 crt.)"
|
|
MESSAGE HIDE,F_SALDO_DES
|
|
ITEM "2|Stampa Estesa (198 crt.)"
|
|
MESSAGE SHOW,F_SALDO_DES
|
|
END
|
|
|
|
RADIOBUTTON F_SALDO_DES 1 38
|
|
BEGIN
|
|
PROMPT 40 11 ""
|
|
ITEM "1|Stampa saldi progressivi"
|
|
ITEM "2|Stampa saldo scalare"
|
|
ITEM "3|Stampa descrizione contropartite"
|
|
END
|
|
|
|
BOOL F_NOT_STAMPA_CONT
|
|
BEGIN
|
|
PROMPT 1 14 "Non stampare le contropartita"
|
|
END
|
|
|
|
LIST F_STAMPANUM 15
|
|
BEGIN
|
|
PROMPT 1 15 "Stampa numerazione "
|
|
ITEM "1|Operazione"
|
|
ITEM "2|Riga giornale"
|
|
ITEM "3|Nessuna"
|
|
END
|
|
|
|
LIST F_SELEZ_STAMPA 34
|
|
BEGIN
|
|
PROMPT 1 16 "Selezione mastrini "
|
|
ITEM "1|Movimentati nel periodo"
|
|
ITEM "2|Con saldo diverso da 0"
|
|
ITEM "3|Tutti"
|
|
END
|
|
|
|
LIST F_NUMMAST 10
|
|
BEGIN
|
|
PROMPT 1 17 "Mastrini per pagina "
|
|
ITEM "1|Uno"
|
|
ITEM "2|Due"
|
|
ITEM "3|Continua"
|
|
END
|
|
|
|
#ifdef CONT_SEP
|
|
STRING F_CONTSEP 6
|
|
BEGIN
|
|
PROMPT 2 19 "Contabilità separata "
|
|
USE &NPENT
|
|
INPUT CODTAB F_CONTSEP
|
|
DISPLAY "Codice@6" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CONTSEP CODTAB
|
|
CHECKTYPE NORMAL
|
|
MODULE NP
|
|
END
|
|
#endif
|
|
|
|
BOOLEAN F_SEPARATOR
|
|
BEGIN
|
|
PROMPT 40 17 "Non stampare il separatore delle migliaia"
|
|
GROUP 8
|
|
END
|
|
|
|
BUTTON F_MEMORIZZA 18 2
|
|
BEGIN
|
|
PROMPT -11 -1 "~Memorizza scelte"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri" -1 -1 78 20
|
|
|
|
SPREADSHEET F_SCELTE
|
|
BEGIN
|
|
PROMPT 0 1 ""
|
|
ITEM "Anno"
|
|
ITEM "Tipo@4"
|
|
ITEM "Gr."
|
|
ITEM "Co."
|
|
ITEM "Sottoc."
|
|
ITEM "Tipo@4"
|
|
ITEM "Gr."
|
|
ITEM "Co."
|
|
ITEM "Sottoc."
|
|
ITEM "Dal@10"
|
|
ITEM "Al@10"
|
|
ITEM "Stampa numerazione"
|
|
ITEM "Progr."
|
|
ITEM "Totali IVA"
|
|
ITEM "Tipo stampa"
|
|
ITEM "Provv."
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Scelte" -1 -1 68 14
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 1 "Esercizio "
|
|
USE ESC
|
|
INPUT CODTAB F_ANNO
|
|
DISPLAY "Codice Esercizio" CODTAB
|
|
DISPLAY "Data inizio esercizio" D0
|
|
DISPLAY "Data fine esercizio " D1
|
|
OUTPUT F_ANNO CODTAB
|
|
CHECKTYPE NORMAL
|
|
FLAGS "Z"
|
|
ADD NONE
|
|
END
|
|
|
|
LIST F_TIPOCF_INI 25
|
|
BEGIN
|
|
PROMPT 1 2 "Dal conto "
|
|
ITEM " |Gruppo/conto/sottoconto"
|
|
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|SHOW,1@
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|SHOW,2@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|SHOW,3@
|
|
END
|
|
|
|
NUMBER F_GRUPPOINI 3
|
|
BEGIN
|
|
PROMPT 44 2 ""
|
|
END
|
|
|
|
NUMBER F_CONTOINI_CLIENTE 3
|
|
BEGIN
|
|
PROMPT 50 2 ""
|
|
USE LF_PCON SELECT (TMCF="C")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CLIENTE
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Tipo" TMCF
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CLIENTE CONTO
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CLIENTE
|
|
WARNING "Conto inesistente o mancante"
|
|
MESSAGE DIRTY,F_SOTTOCINI_CLIENTE
|
|
MESSAGE COPY,F_CONTOINI_CONTO
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_CONTOINI_FORN 3
|
|
BEGIN
|
|
PROMPT 50 2 ""
|
|
USE LF_PCON SELECT (TMCF="F")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_FORN
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_FORN CONTO
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_FORN
|
|
WARNING "Conto inesistente o mancante"
|
|
MESSAGE DIRTY,F_SOTTOCINI_FORN
|
|
MESSAGE COPY,F_CONTOINI_CONTO
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER F_CONTOINI_CONTO 3
|
|
BEGIN
|
|
PROMPT 50 2 ""
|
|
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF="")
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CONTO CONTO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto inesistente o mancante"
|
|
MESSAGE DIRTY,F_SOTTOCINI_CONTO
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCINI_CONTO
|
|
GROUP 1
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 58 2 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_SOTTOCINI_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCINI_CLIENTE CODCF
|
|
OUTPUT F_DESCRINI_CLIENTE RAGSOC
|
|
GROUP 2
|
|
MESSAGE COPY,F_SOTTOCINI_CONTO
|
|
END
|
|
|
|
STRING F_DESCRINI_CLIENTE 50
|
|
BEGIN
|
|
PROMPT 1 3 "Cliente "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCRINI_CLIENTE
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_CLIENTE
|
|
CHECKTYPE NORMAL
|
|
GROUP 2
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_FORN 6
|
|
BEGIN
|
|
PROMPT 58 2 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_SOTTOCINI_FORN
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCINI_FORN CODCF
|
|
OUTPUT F_DESCRINI_FORN RAGSOC
|
|
GROUP 3
|
|
MESSAGE COPY,F_SOTTOCINI_CONTO
|
|
END
|
|
|
|
STRING F_DESCRINI_FORN 50
|
|
BEGIN
|
|
PROMPT 1 3 "Fornitore "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DESCRINI_FORN
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCINI_FORN
|
|
CHECKTYPE NORMAL
|
|
GROUP 3
|
|
END
|
|
|
|
NUMBER F_SOTTOCINI_CONTO 6
|
|
BEGIN
|
|
PROMPT 58 2 ""
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOINI
|
|
INPUT CONTO F_CONTOINI_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCINI_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SOTTOCINI_CONTO SOTTOCONTO
|
|
OUTPUT F_GRUPPOINI GRUPPO
|
|
OUTPUT F_CONTOINI_CONTO CONTO
|
|
OUTPUT F_DESCRINI_CONTO DESCR
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
STRING F_DESCRINI_CONTO 50
|
|
BEGIN
|
|
PROMPT 1 3 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCRINI_CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCINI_CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP 1
|
|
END
|
|
|
|
LIST F_TIPOCF_FINE 25
|
|
BEGIN
|
|
PROMPT 1 4 "Al conto "
|
|
ITEM " |Gruppo/conto/sottoconto"
|
|
MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|SHOW,4@
|
|
ITEM "C|Clienti"
|
|
MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|SHOW,5@
|
|
ITEM "F|Fornitori"
|
|
MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|SHOW,6@
|
|
END
|
|
|
|
NUMBER F_GRUPPOFINE 3
|
|
BEGIN
|
|
PROMPT 44 4 ""
|
|
END
|
|
|
|
NUMBER F_CONTOFINE_CLIENTE 3
|
|
BEGIN
|
|
PROMPT 50 4 ""
|
|
USE LF_PCON SELECT (TMCF="C")
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CLIENTE
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CLIENTE CONTO
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CLIENTE
|
|
WARNING "Conto inesistente o mancante"
|
|
MESSAGE DIRTY,F_SOTTOCFINE_CLIENTE
|
|
MESSAGE COPY,F_CONTOFINE_CONTO
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER F_CONTOFINE_FORN 3
|
|
BEGIN
|
|
PROMPT 50 4 ""
|
|
USE LF_PCON SELECT (TMCF="F")
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_FORN
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_FORN CONTO
|
|
CHECKTYPE NORMAL
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_FORN
|
|
WARNING "Conto inesistente o mancante"
|
|
MESSAGE DIRTY,F_SOTTOCFINE_FORN
|
|
MESSAGE COPY,F_CONTOFINE_CONTO
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_CONTOFINE_CONTO 3
|
|
BEGIN
|
|
PROMPT 50 4 ""
|
|
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="")
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CONTO CONTO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Conto inesistente o mancante"
|
|
MESSAGE DIRTY,F_SOTTOCFINE_CONTO
|
|
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
|
|
GROUP 4
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_CLIENTE 6
|
|
BEGIN
|
|
PROMPT 58 4 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Cliente inesistente o mancante"
|
|
INPUT TIPOCF "C"
|
|
INPUT CODCF F_SOTTOCFINE_CLIENTE
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCFINE_CLIENTE CODCF
|
|
OUTPUT F_DESCRFINE_CLIENTE RAGSOC
|
|
GROUP 5
|
|
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
|
END
|
|
|
|
STRING F_DESCRFINE_CLIENTE 50
|
|
BEGIN
|
|
PROMPT 1 5 "Cliente "
|
|
USE LF_CLIFO KEY 2
|
|
INPUT TIPOCF "C"
|
|
INPUT RAGSOC F_DESCRFINE_CLIENTE
|
|
DISPLAY "Ragione Sociale Cliente@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_CLIENTE
|
|
MESSAGE COPY,F_DESCRFINE_CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP 5
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_FORN 6
|
|
BEGIN
|
|
PROMPT 58 4 ""
|
|
USE LF_CLIFO
|
|
CHECKTYPE NORMAL
|
|
WARNING "Fornitore inesistente o mancante"
|
|
INPUT TIPOCF "F"
|
|
INPUT CODCF F_SOTTOCFINE_FORN
|
|
DISPLAY "Codice" CODCF
|
|
DISPLAY "Ragione Sociale@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
OUTPUT F_SOTTOCFINE_FORN CODCF
|
|
OUTPUT F_DESCRFINE_FORN RAGSOC
|
|
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
|
GROUP 6
|
|
END
|
|
|
|
STRING F_DESCRFINE_FORN 50
|
|
BEGIN
|
|
PROMPT 1 5 "Fornitore "
|
|
USE LF_CLIFO KEY 2
|
|
CHECKTYPE NORMAL
|
|
INPUT TIPOCF "F"
|
|
INPUT RAGSOC F_DESCRFINE_FORN
|
|
DISPLAY "Ragione Sociale Fornitore@50" RAGSOC
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Codice" CODCF
|
|
COPY OUTPUT F_SOTTOCFINE_FORN
|
|
MESSAGE COPY,F_DESCRFINE_CONTO
|
|
GROUP 6
|
|
END
|
|
|
|
NUMBER F_SOTTOCFINE_CONTO 6
|
|
BEGIN
|
|
PROMPT 58 4 ""
|
|
USE LF_PCON SELECT SOTTOCONTO!=""
|
|
INPUT GRUPPO F_GRUPPOFINE
|
|
INPUT CONTO F_CONTOFINE_CONTO
|
|
INPUT SOTTOCONTO F_SOTTOCFINE_CONTO
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_SOTTOCFINE_CONTO SOTTOCONTO
|
|
OUTPUT F_GRUPPOFINE GRUPPO
|
|
OUTPUT F_CONTOFINE_CONTO CONTO
|
|
OUTPUT F_DESCRFINE_CONTO DESCR
|
|
CHECKTYPE NORMAL
|
|
WARNING "Sottoconto inesistente o mancante"
|
|
GROUP 4
|
|
END
|
|
|
|
STRING F_DESCRFINE_CONTO 50
|
|
BEGIN
|
|
PROMPT 1 5 "Descrizione "
|
|
USE LF_PCON KEY 2
|
|
INPUT DESCR F_DESCRFINE_CONTO
|
|
DISPLAY "Descrizione@50" DESCR
|
|
DISPLAY "Gruppo" GRUPPO
|
|
DISPLAY "Conto" CONTO
|
|
DISPLAY "Sottoconto" SOTTOCONTO
|
|
COPY OUTPUT F_SOTTOCFINE_CONTO
|
|
CHECKTYPE NORMAL
|
|
GROUP 4
|
|
END
|
|
|
|
DATE F_DATAINI
|
|
BEGIN
|
|
PROMPT 1 6 "Dalla data "
|
|
END
|
|
|
|
DATE F_DATAFINE
|
|
BEGIN
|
|
PROMPT 28 6 "Alla data "
|
|
END
|
|
|
|
BOOLEAN F_STAMPATOTIVA
|
|
BEGIN
|
|
PROMPT 1 7 "Stampa totali documenti IVA"
|
|
GROUP 8
|
|
END
|
|
|
|
BOOLEAN F_STAMPAPROGRE
|
|
BEGIN
|
|
PROMPT 38 7 "Stampa progressivi attuali"
|
|
GROUP 8
|
|
END
|
|
|
|
BOOLEAN F_STAMPAMOVPROV
|
|
BEGIN
|
|
PROMPT 1 8 "Stampa movimenti provvisori"
|
|
GROUP 8
|
|
END
|
|
|
|
LIST F_STAMPANUM 15
|
|
BEGIN
|
|
PROMPT 1 9 "Stampa numerazione "
|
|
ITEM "1|Operazione"
|
|
ITEM "2|Riga giornale"
|
|
ITEM "3|Nessuna"
|
|
END
|
|
|
|
LIST F_SELEZ_STAMPA 34
|
|
BEGIN
|
|
PROMPT 1 10 "Tipo stampa "
|
|
ITEM "1|Mastrini movimentati nel periodo"
|
|
ITEM "2|Mastrini con saldi diversi da 0"
|
|
ITEM "3|Completa"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 10 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|