Aggiunta personalizzazione stampa mastrini e stampa bilanci per
Automazione & Ufficio git-svn-id: svn://10.65.10.50/trunk@4875 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
b05e696a65
commit
22235655d1
20
cg/cgp1.cpp
Executable file
20
cg/cgp1.cpp
Executable file
@ -0,0 +1,20 @@
|
||||
#include <xvt.h>
|
||||
#include <checks.h>
|
||||
|
||||
#include "cgp1.h"
|
||||
|
||||
int main(int argc,char** argv)
|
||||
{
|
||||
const int n = (argc > 1) ? atoi(&argv[1][1]) : 0;
|
||||
|
||||
switch(n)
|
||||
{
|
||||
case 0:
|
||||
cgp1100(argc, argv); break;
|
||||
case 1:
|
||||
cgp1200(argc, argv); break;
|
||||
default:
|
||||
error_box("Usage: cgp1 -{0|1}");break;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
7
cg/cgp1.h
Executable file
7
cg/cgp1.h
Executable file
@ -0,0 +1,7 @@
|
||||
#ifndef __CGP1_H
|
||||
#define __CGP1_H
|
||||
|
||||
int cgp1100(int argc, char** argv);
|
||||
int cgp1200(int argc, char** argv);
|
||||
|
||||
#endif // __CGP1_H
|
||||
15
cg/cgp1.url
Executable file
15
cg/cgp1.url
Executable file
@ -0,0 +1,15 @@
|
||||
#include <default.url>
|
||||
|
||||
/* cgp1 -0 Programma personalizzato per stampa mastrini per centri di costo */
|
||||
|
||||
MENU TASK_MENUBAR
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
/* cgp1 -1 Programma personalizzato per stampa bilanci per centri di costo */
|
||||
|
||||
MENUBAR MENU_BAR(1)
|
||||
|
||||
MENU MENU_BAR(1)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
|
||||
|
||||
4101
cg/cgp1100.cpp
Executable file
4101
cg/cgp1100.cpp
Executable file
File diff suppressed because it is too large
Load Diff
50
cg/cgp1100.h
Executable file
50
cg/cgp1100.h
Executable file
@ -0,0 +1,50 @@
|
||||
#ifndef __CGP1100_H
|
||||
#define __CGP1100_H
|
||||
|
||||
#define TAB_IVD "%IVD"
|
||||
#define TAB_TPD "%TPD"
|
||||
#define TAB_REG "REG"
|
||||
#define TAB_ESC "ESC"
|
||||
|
||||
#define F_ANNO 101
|
||||
#define F_TIPOCF_INI 102
|
||||
#define F_GRUPPOINI 103
|
||||
#define F_CONTOINI_CONTO 104
|
||||
#define F_CONTOINI_CLIENTE 204
|
||||
#define F_CONTOINI_FORN 304
|
||||
#define F_SOTTOCINI_CONTO 105
|
||||
#define F_SOTTOCINI_CLIENTE 205
|
||||
#define F_SOTTOCINI_FORN 305
|
||||
#define F_TIPOCF_FINE 106
|
||||
#define F_GRUPPOFINE 107
|
||||
#define F_CONTOFINE_CONTO 108
|
||||
#define F_CONTOFINE_CLIENTE 208
|
||||
#define F_CONTOFINE_FORN 308
|
||||
#define F_SOTTOCFINE_CONTO 109
|
||||
#define F_SOTTOCFINE_CLIENTE 209
|
||||
#define F_SOTTOCFINE_FORN 309
|
||||
#define F_DESCRINI_CONTO 125
|
||||
#define F_DESCRINI_CLIENTE 135
|
||||
#define F_DESCRINI_FORN 145
|
||||
#define F_DESCRFINE_CONTO 129
|
||||
#define F_DESCRFINE_CLIENTE 139
|
||||
#define F_DESCRFINE_FORN 149
|
||||
#define F_DATAINI 110
|
||||
#define F_DATAFINE 111
|
||||
#define F_STAMPANUM 112
|
||||
#define F_STAMPAPROGRE 113
|
||||
#define F_STAMPATOTIVA 114
|
||||
#define F_TIPOSTAMPA 115
|
||||
#define F_STAMPAMOVPROV 116
|
||||
#define F_MOVCAS 117
|
||||
#define F_CDC 118
|
||||
#define F_MEMORIZZA 500
|
||||
#define F_NUMCARAT 501
|
||||
#define F_NUMMAST 502
|
||||
#define F_FORMATO 503
|
||||
#define F_CODDITTA 504
|
||||
#define F_RAGSOC 505
|
||||
#define F_SCELTE 506
|
||||
|
||||
#endif // __CGP1100_H
|
||||
|
||||
986
cg/cgp1100a.uml
Executable file
986
cg/cgp1100a.uml
Executable file
@ -0,0 +1,986 @@
|
||||
#include "cgp1100.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 2
|
||||
|
||||
BUTTON DLG_PRINT 16 2
|
||||
BEGIN
|
||||
PROMPT -13 -11 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON F_MEMORIZZA 16 2
|
||||
BEGIN
|
||||
PROMPT -23 -11 "~Memorizza scelte"
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 16 2
|
||||
BEGIN
|
||||
PROMPT -33 -11 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Stampa Mastrini" -1 -1 78 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 4 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 4 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 4 11 "Dalla data competenza"
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 40 11 "Alla data competenza "
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 4 11 "Dalla data operazione "
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 40 11 "Alla data operazione "
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 47 1 "Codice 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 RUN cg0 -5 esc
|
||||
ADD NONE
|
||||
END
|
||||
|
||||
LIST F_TIPOCF_INI 25
|
||||
BEGIN
|
||||
PROMPT 4 4 "Ricerca "
|
||||
ITEM " |Gruppo/conto/sottoconto"
|
||||
MESSAGE HIDE,2@|HIDE,3@|RESET,2@|RESET,3@|RESET,1@|SHOW,1@|RESET,F_GRUPPOINI
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE HIDE,1@|HIDE,3@|RESET,1@|RESET,3@|RESET,2@|SHOW,2@|RESET,F_GRUPPOINI
|
||||
ITEM "F|Fornitori"
|
||||
MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@|RESET,3@|SHOW,3@|RESET,F_GRUPPOINI
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPOINI 3
|
||||
BEGIN
|
||||
PROMPT 4 5 "Da Gruppo - Conto - Sottoconto "
|
||||
GROUP 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOINI_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 41 5 ""
|
||||
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 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOINI_CLIENTE 3
|
||||
BEGIN
|
||||
PROMPT 41 5 ""
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
|
||||
INPUT GRUPPO F_GRUPPOINI
|
||||
INPUT CONTO F_CONTOINI_CLIENTE
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
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 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOINI_FORN 3
|
||||
BEGIN
|
||||
PROMPT 41 5 ""
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (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 9
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCINI_CONTO 6
|
||||
BEGIN
|
||||
PROMPT 48 5 ""
|
||||
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 9
|
||||
END
|
||||
|
||||
STRING F_DESCRINI_CONTO 50
|
||||
BEGIN
|
||||
PROMPT 4 6 "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 48 5 ""
|
||||
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
|
||||
MESSAGE COPY,F_SOTTOCINI_CONTO
|
||||
GROUP 2 9
|
||||
END
|
||||
|
||||
STRING F_DESCRINI_CLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 4 6 "Ragione sociale C "
|
||||
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
|
||||
MESSAGE COPY,F_DESCRINI_CONTO
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 2 9
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCINI_FORN 6
|
||||
BEGIN
|
||||
PROMPT 48 5 ""
|
||||
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
|
||||
FLAGS "R"
|
||||
GROUP 3 9
|
||||
MESSAGE COPY,F_SOTTOCINI_CONTO
|
||||
END
|
||||
|
||||
STRING F_DESCRINI_FORN 50
|
||||
BEGIN
|
||||
PROMPT 4 6 "Ragione Sociale F "
|
||||
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
|
||||
MESSAGE COPY,F_DESCRINI_CONTO
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 3 9
|
||||
END
|
||||
|
||||
LIST F_TIPOCF_FINE 25
|
||||
BEGIN
|
||||
PROMPT 4 7 "Ricerca "
|
||||
ITEM " |Gruppo/conto/sottoconto"
|
||||
MESSAGE HIDE,5@|HIDE,6@|RESET,5@|RESET,6@|RESET,4@|SHOW,4@|RESET,F_GRUPPOFINE
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE HIDE,4@|HIDE,6@|RESET,4@|RESET,6@|RESET,5@|SHOW,5@|RESET,F_GRUPPOFINE
|
||||
ITEM "F|Fornitori"
|
||||
MESSAGE HIDE,4@|HIDE,5@|RESET,4@|RESET,5@|RESET,6@|SHOW,6@|RESET,F_GRUPPOFINE
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPOFINE 3
|
||||
BEGIN
|
||||
PROMPT 4 8 "A Gruppo - Conto - Sottoconto "
|
||||
GROUP 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOFINE_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 41 8 ""
|
||||
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
|
||||
VALIDATE REQIF_FUNC 1 F_SOTTOCFINE_CONTO
|
||||
WARNING "Conto inesistente o mancante"
|
||||
// MESSAGE DIRTY,F_SOTTOCFINE_CONTO
|
||||
GROUP 4 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOFINE_CLIENTE 3
|
||||
BEGIN
|
||||
PROMPT 41 8 ""
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (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 9
|
||||
END
|
||||
|
||||
NUMBER F_CONTOFINE_FORN 3
|
||||
BEGIN
|
||||
PROMPT 41 8 ""
|
||||
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") && (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 9
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCFINE_CONTO 6
|
||||
BEGIN
|
||||
PROMPT 48 8 ""
|
||||
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 9
|
||||
END
|
||||
|
||||
STRING F_DESCRFINE_CONTO 50
|
||||
BEGIN
|
||||
PROMPT 4 9 "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_SOTTOCFINE_CONTO
|
||||
GROUP 4 9
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCFINE_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 48 8 ""
|
||||
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
|
||||
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
||||
GROUP 5 9
|
||||
END
|
||||
|
||||
STRING F_DESCRFINE_CLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 4 9 "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 48 8 ""
|
||||
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 9
|
||||
END
|
||||
|
||||
STRING F_DESCRFINE_FORN 50
|
||||
BEGIN
|
||||
PROMPT 4 9 "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
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 26 11 ""
|
||||
END
|
||||
|
||||
DATE F_DATAFINE
|
||||
BEGIN
|
||||
PROMPT 62 11 ""
|
||||
END
|
||||
|
||||
BOOLEAN F_MOVCAS
|
||||
BEGIN
|
||||
PROMPT 4 12 "Stampa movimenti di cassa"
|
||||
END
|
||||
|
||||
NUMBER F_CDC 7
|
||||
BEGIN
|
||||
PROMPT 44 12 "Centro di costo "
|
||||
USE CDC
|
||||
INPUT CODTAB F_CDC
|
||||
DISPLAY "Codice@7" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CDC CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATOTIVA
|
||||
BEGIN
|
||||
PROMPT 4 13 "Stampa totali documenti IVA"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAPROGRE
|
||||
BEGIN
|
||||
PROMPT 44 13 "Stampa progressivi attuali"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVPROV
|
||||
BEGIN
|
||||
PROMPT 4 14 "Stampa movimenti provvisori"
|
||||
END
|
||||
|
||||
LIST F_STAMPANUM 15
|
||||
BEGIN
|
||||
PROMPT 4 15 "Stampa numerazione "
|
||||
ITEM "1|Operazione"
|
||||
ITEM "2|Riga giornale"
|
||||
ITEM "3|Nessuna"
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA 34
|
||||
BEGIN
|
||||
PROMPT 4 16 "Tipo stampa "
|
||||
ITEM "1|Mastrini movimentati nel periodo"
|
||||
ITEM "2|Mastrini con saldi diversi da 0"
|
||||
ITEM "3|Completa"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Parametri" -1 -1 78 20
|
||||
|
||||
LIST F_NUMCARAT 10
|
||||
BEGIN
|
||||
PROMPT 4 2 "Numero caratteri "
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
LIST F_FORMATO 23
|
||||
BEGIN
|
||||
PROMPT 4 4 "Formato modulo di stampa "
|
||||
ITEM "66|11 pollici (27,94 cm)"
|
||||
ITEM "72|12 pollici (30,48 cm)"
|
||||
END
|
||||
|
||||
LIST F_NUMMAST 10
|
||||
BEGIN
|
||||
PROMPT 4 6 "Numero mastrini per pagina "
|
||||
ITEM "1|Uno"
|
||||
ITEM "2|Due"
|
||||
ITEM "3|Continua"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SCELTE
|
||||
BEGIN
|
||||
PROMPT 0 8 ""
|
||||
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."
|
||||
ITEM "Mov.cassa"
|
||||
ITEM "Centro di costo"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "Scelte" -1 -1 68 15
|
||||
|
||||
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 (CONTO!="") && (SOTTOCONTO="") && (TMCF="C")
|
||||
INPUT GRUPPO F_GRUPPOINI
|
||||
INPUT CONTO F_CONTOINI_CLIENTE
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
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 (CONTO!="") && (SOTTOCONTO="") && (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
|
||||
// OUTPUT F_DESCRINI_CONTO DESCR
|
||||
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
|
||||
FLAGS "R"
|
||||
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
|
||||
MESSAGE COPY,F_DESCRINI_CONTO
|
||||
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
|
||||
FLAGS "R"
|
||||
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
|
||||
MESSAGE COPY,F_DESCRINI_CONTO
|
||||
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
|
||||
FLAGS "R"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
STRING F_DESCRINI_CONTO 50
|
||||
BEGIN
|
||||
PROMPT 1 3 "Descrizione "
|
||||
// FIELD LF_PCON->DESCR
|
||||
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 (CONTO!="") && (SOTTOCONTO="") && (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 (CONTO!="") && (SOTTOCONTO="") && (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
|
||||
FLAGS "R"
|
||||
GROUP 5
|
||||
MESSAGE COPY,F_SOTTOCFINE_CONTO
|
||||
END
|
||||
|
||||
STRING F_DESCRFINE_CLIENTE 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Cliente "
|
||||
// FIELD LF_CLIFO->RAGSOC
|
||||
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
|
||||
FLAGS "R"
|
||||
WARNING "Sottoconto inesistente o mancante"
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
STRING F_DESCRFINE_CONTO 50
|
||||
BEGIN
|
||||
PROMPT 1 5 "Descrizione "
|
||||
// FIELD LF_PCON->DESCR
|
||||
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_SOTTOCFINE_CONTO
|
||||
CHECKTYPE NORMAL
|
||||
GROUP 4
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 1 6 "Dalla data "
|
||||
END
|
||||
|
||||
DATE F_DATAFINE
|
||||
BEGIN
|
||||
PROMPT 44 6 "Alla data "
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPATOTIVA
|
||||
BEGIN
|
||||
PROMPT 1 7 "Stampa totali documenti IVA"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAPROGRE
|
||||
BEGIN
|
||||
PROMPT 38 7 "Stampa progressivi attuali"
|
||||
END
|
||||
|
||||
BOOLEAN F_STAMPAMOVPROV
|
||||
BEGIN
|
||||
PROMPT 1 8 "Stampa movimenti provvisori"
|
||||
END
|
||||
|
||||
LIST F_STAMPANUM 15
|
||||
BEGIN
|
||||
PROMPT 1 9 "Stampa numerazione "
|
||||
ITEM "1|Operazione"
|
||||
ITEM "2|Riga giornale"
|
||||
ITEM "3|Nessuna"
|
||||
END
|
||||
|
||||
LIST F_TIPOSTAMPA 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
|
||||
|
||||
BOOLEAN F_MOVCAS
|
||||
BEGIN
|
||||
PROMPT 1 11 "Stampa movimenti di cassa"
|
||||
END
|
||||
|
||||
NUMBER F_CDC 7
|
||||
BEGIN
|
||||
PROMPT 1 12 "Centro di costo "
|
||||
USE CDC
|
||||
INPUT CODTAB F_CDC
|
||||
DISPLAY "Codice@7" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CDC CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
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
|
||||
4350
cg/cgp1200.cpp
Executable file
4350
cg/cgp1200.cpp
Executable file
File diff suppressed because it is too large
Load Diff
42
cg/cgp1200.h
Executable file
42
cg/cgp1200.h
Executable file
@ -0,0 +1,42 @@
|
||||
#ifndef __CGP1200_H
|
||||
#define __CGP1200_H
|
||||
|
||||
#define F_CODDITTA 101
|
||||
#define F_DATASTAMPA 102
|
||||
#define F_RAGSOC 104
|
||||
#define F_BILANCIO 105
|
||||
#define F_ANNO 106
|
||||
#define F_MOVCAS 107
|
||||
#define F_CDC 108
|
||||
#define F_DATALIM 109
|
||||
#define F_TOTALI 110
|
||||
#define F_CODICI 111
|
||||
#define F_SALDO 112
|
||||
#define F_VERIFICA 113
|
||||
#define F_STAMPAV 114
|
||||
#define F_DATADA 115
|
||||
#define F_DATAA 116
|
||||
#define F_SITUAZIONE 118
|
||||
#define F_STAMPAC 119
|
||||
#define F_ORDINAMENTO 120
|
||||
#define F_MODULO 121
|
||||
#define F_STAMPAMPROV 122
|
||||
#define F_QUADRATURA 123
|
||||
|
||||
#endif // __CGP1200_H
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
231
cg/cgp1200a.uml
Executable file
231
cg/cgp1200a.uml
Executable file
@ -0,0 +1,231 @@
|
||||
#include "cgp1200.h"
|
||||
|
||||
PAGE "Stampa bilancio" -1 -1 76 17
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 2 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 2 2 "Ragione sociale "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DATASTAMPA
|
||||
BEGIN
|
||||
PROMPT 48 1 "Data stampa "
|
||||
HELP "Data che verra' stampata sul bilancio"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Codice esercizio "
|
||||
HELP "Esercizio di cui si vuole ottenere il bilancio"
|
||||
USE ESC
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
FLAGS "Z"
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "L' esercizio non esiste"
|
||||
ADD RUN cg0 -5 esc
|
||||
END
|
||||
|
||||
RADIOBUTTON F_BILANCIO 37
|
||||
BEGIN
|
||||
PROMPT 2 5 "Tipo bilancio "
|
||||
HELP "Indicare il tipo di bilancio da stampare"
|
||||
ITEM "1|Bilancio a sezioni contrapposte"
|
||||
MESSAGE SHOW,F_DATALIM|SHOW,F_TOTALI
|
||||
MESSAGE SHOW,F_CODICI|SHOW,F_SALDO
|
||||
MESSAGE HIDE,F_VERIFICA|RESET,F_VERIFICA
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV|HIDE,F_DATADA|RESET,F_DATADA
|
||||
MESSAGE HIDE,F_DATAA|RESET,F_DATAA|HIDE,F_SITUAZIONE|RESET,F_SITUAZIONE
|
||||
MESSAGE HIDE,F_ORDINAMENTO|RESET,F_ORDINAMENTO|HIDE,F_STAMPAC|RESET,F_STAMPAC
|
||||
MESSAGE HIDE,96|HIDE,97|HIDE,98|HIDE,99
|
||||
ITEM "2|Bilancio di verifica"
|
||||
MESSAGE HIDE,F_DATALIM|RESET,F_DATALIM|HIDE,F_TOTALI|RESET,F_TOTALI
|
||||
MESSAGE HIDE,F_CODICI|RESET,F_CODICI|HIDE,F_SALDO|RESET,F_SALDO
|
||||
MESSAGE HIDE,F_STAMPAV|RESET,F_STAMPAV
|
||||
MESSAGE SHOW,F_VERIFICA|K_SPACE,F_VERIFICA
|
||||
END
|
||||
|
||||
BOOLEAN F_MOVCAS
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa movimenti di cassa"
|
||||
END
|
||||
|
||||
NUMBER F_CDC 7
|
||||
BEGIN
|
||||
PROMPT 33 9 "Centro di costo "
|
||||
USE CDC
|
||||
INPUT CODTAB F_CDC
|
||||
DISPLAY "Codice@7" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CDC CODTAB
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
DATE F_DATALIM
|
||||
BEGIN
|
||||
PROMPT 2 10 "Data limite "
|
||||
HELP "Data fino alla quale si vuole la stampa"
|
||||
END
|
||||
|
||||
BOOLEAN F_TOTALI
|
||||
BEGIN
|
||||
PROMPT 33 10 "Non stampare totali per gruppo "
|
||||
HELP "Indicare se non si devono stampare i totali dei gruppi"
|
||||
END
|
||||
|
||||
BOOLEAN F_CODICI
|
||||
BEGIN
|
||||
PROMPT 2 11 "Non stampare codici conti "
|
||||
HELP "Indicare se non si devono stampare i codici dei conti"
|
||||
END
|
||||
|
||||
BOOLEAN F_SALDO
|
||||
BEGIN
|
||||
PROMPT 33 11 "Non stampare movimenti con saldo a zero "
|
||||
HELP "Indicare se non si devono stampare i movimenti con saldo nullo"
|
||||
END
|
||||
|
||||
TEXT 96
|
||||
BEGIN
|
||||
PROMPT 2 11 "Dalla data competenza "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
TEXT 97
|
||||
BEGIN
|
||||
PROMPT 38 11 "Alla data competenza "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
TEXT 98
|
||||
BEGIN
|
||||
PROMPT 2 11 "Dalla data operazione "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
TEXT 99
|
||||
BEGIN
|
||||
PROMPT 38 11 "Alla data operazione "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
DATE F_DATADA
|
||||
BEGIN
|
||||
PROMPT 24 11 ""
|
||||
HELP "Data dalla quale iniziare la stampa"
|
||||
END
|
||||
|
||||
DATE F_DATAA
|
||||
BEGIN
|
||||
PROMPT 60 11 ""
|
||||
END
|
||||
|
||||
LIST F_STAMPAMPROV 15
|
||||
BEGIN
|
||||
PROMPT 2 12 "Bilancio "
|
||||
ITEM "1|Normale"
|
||||
ITEM "2|Globale"
|
||||
ITEM "3|Solo provvisori"
|
||||
END
|
||||
|
||||
LIST F_MODULO 8
|
||||
BEGIN
|
||||
PROMPT 2 13 "Stampa su modulo stretto "
|
||||
HELP "Indicare il numero di caratteri del foglio (larghezza)"
|
||||
ITEM "1|132 crt."
|
||||
ITEM "2|198 crt."
|
||||
END
|
||||
|
||||
BOOLEAN F_QUADRATURA
|
||||
BEGIN
|
||||
PROMPT 2 14 "Quadratura con Libro Giornale"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Parametri bilancio di verifica" -1 -1 74 20
|
||||
|
||||
RADIOBUTTON F_VERIFICA 27
|
||||
BEGIN
|
||||
PROMPT 2 1 "Stampa bilancio di verifica "
|
||||
HELP "Tipo di bilancio di verifica"
|
||||
ITEM "1|Bilancio"
|
||||
ITEM "2|Saldi di mastro"
|
||||
ITEM "3|Situazione C/F"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAC 36
|
||||
BEGIN
|
||||
PROMPT 34 1 "Tipo stampa "
|
||||
HELP "Help tipo di stampa del bilancio"
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAV 36
|
||||
BEGIN
|
||||
PROMPT 34 1 "Tipo stampa "
|
||||
HELP "Help tipo di stampa del bilancio"
|
||||
ITEM "1|Conti movimentati"
|
||||
ITEM "2|Conti con saldo diverso da zero"
|
||||
ITEM "3|Tutti i conti"
|
||||
END
|
||||
|
||||
LIST F_SITUAZIONE 11
|
||||
BEGIN
|
||||
PROMPT 2 10 "Tipo situazione "
|
||||
HELP "Indicare il tipo di situazione che si vuole ottenere"
|
||||
ITEM " |Entrambi"
|
||||
ITEM "C|Clienti"
|
||||
ITEM "F|Fornitori"
|
||||
END
|
||||
|
||||
LIST F_ORDINAMENTO 11
|
||||
BEGIN
|
||||
PROMPT 2 11 "Tipo ordinamento "
|
||||
HELP "Indicare il tipo di ordinamento da effettuare"
|
||||
ITEM "1|Per codice"
|
||||
ITEM "2|Alfabetico"
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user