cg1200a.uml Allungato codice cliente/fornitore da 5 a 6
cg3.url Aggiunto menu dei colori cg3600.cpp Completata visualizzazione mastrini a video cg3600a.uml Maschera di query mastrini cglib.h Migliorata gestione esercizi cglib02.cpp Resa statica la tabella degli esercizi cg3600.h Nomi dei campi per la visualizzazione mastrini cg3600b.uml Maschera di visualizzazione sheet mastrini git-svn-id: svn://10.65.10.50/trunk@3931 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
bac717a9ac
commit
96f813af8d
@ -1,5 +1,5 @@
|
||||
#include "cg1200a.h"
|
||||
#include <lffiles.h>
|
||||
|
||||
PAGE "Selezione" -1 -1 70 19
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
@ -70,7 +70,7 @@ BEGIN
|
||||
PROMPT 48 5 "a Codice"
|
||||
END
|
||||
|
||||
STRING FLD_CLI_CODFR 5
|
||||
STRING FLD_CLI_CODFR 6
|
||||
BEGIN
|
||||
PROMPT 34 6 ""
|
||||
USE LF_CLIFO KEY 1
|
||||
@ -84,7 +84,7 @@ BEGIN
|
||||
HELP "Codice di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_CLI_CODTO 5
|
||||
STRING FLD_CLI_CODTO 6
|
||||
BEGIN
|
||||
PROMPT 48 6 ""
|
||||
COPY USE FLD_CLI_CODFR
|
||||
@ -128,7 +128,7 @@ BEGIN
|
||||
WARNING "Limite superiore errato"
|
||||
END
|
||||
|
||||
STRING FLD_FOR_CODFR 5
|
||||
STRING FLD_FOR_CODFR 6
|
||||
BEGIN
|
||||
PROMPT 34 6 ""
|
||||
COPY USE FLD_CLI_CODFR
|
||||
@ -140,7 +140,7 @@ BEGIN
|
||||
HELP "Codice C/F di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_FOR_CODTO 5
|
||||
STRING FLD_FOR_CODTO 6
|
||||
BEGIN
|
||||
PROMPT 48 6 ""
|
||||
COPY USE FLD_FOR_CODFR
|
||||
|
||||
@ -48,8 +48,15 @@ MENU MENU_BAR(4)
|
||||
|
||||
/* ----------------------------------------------------
|
||||
* cg3 -5
|
||||
*
|
||||
* cg3600.cpp Mastrini a video
|
||||
* ---------------------------------------------------- */
|
||||
MENUBAR MENU_BAR(5)
|
||||
|
||||
MENU MENU_BAR(5)
|
||||
SUBMENU MENU_FILE "~File"
|
||||
SUBMENU MENU_FILE "~File"
|
||||
SUBMENU M_FONT "~Opzioni"
|
||||
|
||||
MENU M_FONT
|
||||
ITEM MENU_ITEM(1) "~Colori righe"
|
||||
|
||||
|
||||
2022
cg/cg3600.cpp
2022
cg/cg3600.cpp
File diff suppressed because it is too large
Load Diff
@ -19,12 +19,16 @@
|
||||
#define F_ACAUSALE 115
|
||||
#define F_ADESCAUS 116
|
||||
#define F_MASTRINI 200
|
||||
#define F_TOTRIG_IMP 201
|
||||
#define F_TOTRIG_SAL 201
|
||||
#define F_TOTRIG_DAR 202
|
||||
#define F_TOTRIG_AVE 203
|
||||
#define F_TOTPER_IMP 211
|
||||
#define F_TOTPER_SAL 211
|
||||
#define F_TOTPER_DAR 212
|
||||
#define F_TOTPER_AVE 213
|
||||
#define F_TOTATT_IMP 221
|
||||
#define F_TOTATT_SAL 221
|
||||
#define F_TOTATT_DAR 222
|
||||
#define F_TOTATT_AVE 223
|
||||
#define F_TOTPRO_SAL 231
|
||||
#define F_TOTPRO_DAR 232
|
||||
#define F_TOTPRO_AVE 233
|
||||
|
||||
564
cg/cg3600a.uml
564
cg/cg3600a.uml
@ -1,305 +1,259 @@
|
||||
#include "cg3600a.h"
|
||||
|
||||
TOOLBAR "" 0 21 0 0
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -14 -11 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -24 -11 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_FINDREC 10 2
|
||||
BEGIN
|
||||
PROMPT -34 -11 ""
|
||||
PICTURE BMP_FINDREC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -44 -11 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Mastrini" -1 -1 76 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 0 "Ditta "
|
||||
FLAGS "DF"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 22 0 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_TIPO 10
|
||||
BEGIN
|
||||
PROMPT 1 0 "Tipo "
|
||||
ITEM " |Conto" MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
||||
ITEM "C|Cliente" MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
|
||||
ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "Gruppo "
|
||||
USE LF_PCON SELECT (CONTO="")
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_DESGRUPPO DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
STRING F_DESGRUPPO 50
|
||||
BEGIN
|
||||
PROMPT 22 1 ""
|
||||
USE LF_PCON KEY 2 SELECT (CONTO="")
|
||||
INPUT DESCR F_DESGRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
COPY OUTPUT F_GRUPPO
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 1 2 "Conto "
|
||||
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Tipo" TMCF
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_TIPO TMCF
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_DESCONTO DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
STRING F_DESCONTO 50
|
||||
BEGIN
|
||||
PROMPT 22 2 ""
|
||||
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")
|
||||
INPUT DESCR F_DESGRUPPO
|
||||
COPY DISPLAY F_GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Tipo" TMCF
|
||||
COPY OUTPUT F_CONTO
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Sottoconto "
|
||||
USE LF_PCON SELECT (SOTTOCONTO!="")
|
||||
COPY INPUT F_CONTO
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT F_DESSOTTOC DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
STRING F_DESSOTTOC 50
|
||||
BEGIN
|
||||
PROMPT 22 3 ""
|
||||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
|
||||
INPUT DESCR F_DESSOTTOC
|
||||
COPY DISPLAY F_DESCONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_SOTTOCONTO
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1
|
||||
ADD RUN cg0 -0
|
||||
END
|
||||
|
||||
NUMBER F_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Cliente "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CLIENTE
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CLIENTE CODCF
|
||||
OUTPUT F_RAGSOCCLI RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
ADD RUN cg0 -1 C
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCLI 50
|
||||
BEGIN
|
||||
PROMPT 22 3 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOCCLI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2
|
||||
ADD RUN cg0 -1 C
|
||||
END
|
||||
|
||||
STRING F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 1 3 "Fornitore "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_FORNITORE
|
||||
COPY DISPLAY F_CLIENTE
|
||||
OUTPUT F_FORNITORE CODCF
|
||||
OUTPUT F_RAGSOCFOR RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 3
|
||||
ADD RUN cg0 -1 F
|
||||
END
|
||||
|
||||
STRING F_RAGSOCFOR 50
|
||||
BEGIN
|
||||
PROMPT 22 3 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_RAGSOCFOR
|
||||
COPY DISPLAY F_RAGSOCCLI
|
||||
COPY OUTPUT F_FORNITORE
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 3
|
||||
ADD RUN cg0 -1 F
|
||||
END
|
||||
|
||||
NUMBER F_ESERCIZIO 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "Esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ESERCIZIO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Inizio esercizio" D0
|
||||
DISPLAY "Fine esercizio" D1
|
||||
OUTPUT F_ESERCIZIO CODTAB
|
||||
ADD NONE
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 22 4 "Dalla data "
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 51 4 "Alla data "
|
||||
VALIDATE DATE_CMP_FUNC >= F_DADATA
|
||||
WARNING "La data finale deve essere maggiore di quella iniziale"
|
||||
END
|
||||
|
||||
STRING F_DACAUSALE 3
|
||||
BEGIN
|
||||
PROMPT 1 5 "Da causale "
|
||||
FLAGS "U"
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_DACAUSALE
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_DACAUSALE CODCAUS
|
||||
OUTPUT F_DADESCAUS DESCR
|
||||
STR_EXPR (#F_ACAUSALE="")||(#F_DACAUSALE<=#F_ACAUSALE)
|
||||
WARNING "La causale iniziale deve precedere quella finale"
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_DADESCAUS 50
|
||||
BEGIN
|
||||
PROMPT 22 5 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DADESCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_DACAUSALE
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_ACAUSALE 3
|
||||
BEGIN
|
||||
PROMPT 1 6 "A causale "
|
||||
FLAGS "U"
|
||||
COPY USE F_DACAUSALE
|
||||
INPUT CODCAUS F_ACAUSALE
|
||||
COPY DISPLAY F_DACAUSALE
|
||||
OUTPUT F_ACAUSALE CODCAUS
|
||||
OUTPUT F_ADESCAUS DESCR
|
||||
STR_EXPR (#F_ACAUSALE>=#F_DACAUSALE)
|
||||
WARNING "La causale finale deve seguire quella iniziale"
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_ADESCAUS 50
|
||||
BEGIN
|
||||
PROMPT 22 6 ""
|
||||
COPY USE F_DADESCAUS
|
||||
INPUT DESCR F_ADESCAUS
|
||||
COPY DISPLAY F_DADESCAUS
|
||||
COPY OUTPUT F_ACAUSALE
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
SPREADSHEET F_MASTRINI 0 5
|
||||
BEGIN
|
||||
PROMPT 1 7 "Mastrini"
|
||||
FLAGS "M"
|
||||
ITEM "Data Op. \nData Doc.@10"
|
||||
ITEM "C@1"
|
||||
ITEM "Operazione@20F"
|
||||
ITEM "N.Doc. \nN.Prot.@7"
|
||||
ITEM "Importo@18R"
|
||||
ITEM "Saldo@20R"
|
||||
ITEM "Causale@20"
|
||||
ITEM "Dare@18R"
|
||||
ITEM "Avere@18R"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 -3 "Totali all'ultima riga visualizzata "
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 -2 "Totali al periodo "
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 -1 "Totali attuali "
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg3600.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 0
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -11 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_FINDREC 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -11 ""
|
||||
PICTURE BMP_FINDREC
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -11 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Mastrini" -1 -1 76 20
|
||||
|
||||
NUMBER F_CODDITTA 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "Ditta "
|
||||
FLAGS "DF"
|
||||
USE LF_NDITTE
|
||||
INPUT CODDITTA F_CODDITTA
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 22 1 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LIST F_TIPO 10
|
||||
BEGIN
|
||||
PROMPT 1 3 "Tipo "
|
||||
ITEM " |Conto" MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
|
||||
ITEM "C|Cliente" MESSAGE HIDE,1@|SHOW,2@|HIDE,3@
|
||||
ITEM "F|Fornitore" MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
|
||||
END
|
||||
|
||||
NUMBER F_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 1 4 "Gruppo "
|
||||
USE LF_PCON SELECT (CONTO="")
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_DESGRUPPO DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESGRUPPO 50
|
||||
BEGIN
|
||||
PROMPT 22 4 ""
|
||||
USE LF_PCON KEY 2 SELECT (CONTO="")
|
||||
INPUT DESCR F_DESGRUPPO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
COPY OUTPUT F_GRUPPO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 1 5 "Conto "
|
||||
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")
|
||||
INPUT GRUPPO F_GRUPPO
|
||||
INPUT CONTO F_CONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Tipo" TMCF
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_TIPO TMCF
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_DESCONTO DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_DESCONTO 50
|
||||
BEGIN
|
||||
PROMPT 22 5 ""
|
||||
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")
|
||||
INPUT DESCR F_DESGRUPPO
|
||||
COPY DISPLAY F_GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Tipo" TMCF
|
||||
COPY OUTPUT F_CONTO
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 1 6 "Sottoconto "
|
||||
USE LF_PCON SELECT (SOTTOCONTO!="")
|
||||
COPY INPUT F_CONTO
|
||||
INPUT SOTTOCONTO F_SOTTOCONTO
|
||||
DISPLAY "Gruppo" GRUPPO
|
||||
DISPLAY "Conto" CONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_GRUPPO GRUPPO
|
||||
OUTPUT F_CONTO CONTO
|
||||
OUTPUT F_SOTTOCONTO SOTTOCONTO
|
||||
OUTPUT F_DESSOTTOC DESCR
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1 4
|
||||
END
|
||||
|
||||
STRING F_DESSOTTOC 50
|
||||
BEGIN
|
||||
PROMPT 22 6 ""
|
||||
USE LF_PCON KEY 2 SELECT (SOTTOCONTO!="")
|
||||
INPUT DESCR F_DESSOTTOC
|
||||
COPY DISPLAY F_DESCONTO
|
||||
DISPLAY "Sottoconto" SOTTOCONTO
|
||||
COPY OUTPUT F_SOTTOCONTO
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 1 4
|
||||
END
|
||||
|
||||
NUMBER F_CLIENTE 6
|
||||
BEGIN
|
||||
PROMPT 1 6 "Cliente "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CLIENTE
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CLIENTE CODCF
|
||||
OUTPUT F_RAGSOCCLI RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2 4
|
||||
END
|
||||
|
||||
STRING F_RAGSOCCLI 50
|
||||
BEGIN
|
||||
PROMPT 22 6 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOCCLI
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
COPY OUTPUT F_CLIENTE
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 2 4
|
||||
END
|
||||
|
||||
STRING F_FORNITORE 6
|
||||
BEGIN
|
||||
PROMPT 1 6 "Fornitore "
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF F_FORNITORE
|
||||
COPY DISPLAY F_CLIENTE
|
||||
OUTPUT F_FORNITORE CODCF
|
||||
OUTPUT F_RAGSOCFOR RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 3 4
|
||||
END
|
||||
|
||||
STRING F_RAGSOCFOR 50
|
||||
BEGIN
|
||||
PROMPT 22 6 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC F_RAGSOCFOR
|
||||
COPY DISPLAY F_RAGSOCCLI
|
||||
COPY OUTPUT F_FORNITORE
|
||||
CHECKTYPE REQUIRED
|
||||
GROUP 3 4
|
||||
END
|
||||
|
||||
NUMBER F_ESERCIZIO 4
|
||||
BEGIN
|
||||
PROMPT 1 8 "Esercizio "
|
||||
USE ESC
|
||||
INPUT CODTAB F_ESERCIZIO
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Inizio esercizio" D0
|
||||
DISPLAY "Fine esercizio" D1
|
||||
OUTPUT F_ESERCIZIO CODTAB
|
||||
ADD NONE
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 22 8 "Dalla data "
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 51 8 "Alla data "
|
||||
VALIDATE DATE_CMP_FUNC >= F_DADATA
|
||||
WARNING "La data finale deve essere maggiore di quella iniziale"
|
||||
END
|
||||
|
||||
STRING F_DACAUSALE 3
|
||||
BEGIN
|
||||
PROMPT 1 10 "Da causale "
|
||||
FLAGS "U"
|
||||
USE LF_CAUSALI
|
||||
INPUT CODCAUS F_DACAUSALE
|
||||
DISPLAY "Codice" CODCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT F_DACAUSALE CODCAUS
|
||||
OUTPUT F_DADESCAUS DESCR
|
||||
STR_EXPR (#F_ACAUSALE="")||(#F_DACAUSALE<=#F_ACAUSALE)
|
||||
WARNING "La causale iniziale deve precedere quella finale"
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_DADESCAUS 50
|
||||
BEGIN
|
||||
PROMPT 22 10 ""
|
||||
USE LF_CAUSALI KEY 2
|
||||
INPUT DESCR F_DADESCAUS
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
DISPLAY "Codice" CODCAUS
|
||||
COPY OUTPUT F_DACAUSALE
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_ACAUSALE 3
|
||||
BEGIN
|
||||
PROMPT 1 11 "A causale "
|
||||
FLAGS "U"
|
||||
COPY USE F_DACAUSALE
|
||||
INPUT CODCAUS F_ACAUSALE
|
||||
COPY DISPLAY F_DACAUSALE
|
||||
OUTPUT F_ACAUSALE CODCAUS
|
||||
OUTPUT F_ADESCAUS DESCR
|
||||
STR_EXPR (#F_ACAUSALE>=#F_DACAUSALE)
|
||||
WARNING "La causale finale deve seguire quella iniziale"
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
STRING F_ADESCAUS 50
|
||||
BEGIN
|
||||
PROMPT 22 11 ""
|
||||
COPY USE F_DADESCAUS
|
||||
INPUT DESCR F_ADESCAUS
|
||||
COPY DISPLAY F_DADESCAUS
|
||||
COPY OUTPUT F_ACAUSALE
|
||||
CHECKTYPE SEARCH
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
194
cg/cg3600b.uml
Executable file
194
cg/cg3600b.uml
Executable file
@ -0,0 +1,194 @@
|
||||
#include "cg3600.h"
|
||||
|
||||
TOOLBAR "" 0 20 0 0
|
||||
|
||||
BUTTON DLG_LINK 10 2
|
||||
BEGIN
|
||||
PROMPT -12 -11 ""
|
||||
PICTURE BMP_LINK
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -22 -11 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Mastrini" -1 -1 76 20
|
||||
|
||||
NUMBER F_GRUPPO 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "Conto "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CONTO 3
|
||||
BEGIN
|
||||
PROMPT 12 0 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_SOTTOCONTO 6
|
||||
BEGIN
|
||||
PROMPT 17 0 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DESSOTTOC 50
|
||||
BEGIN
|
||||
PROMPT 25 0 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ESERCIZIO 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "Esercizio "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 25 1 "Dalla data "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 54 1 "Alla data "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
SPREADSHEET F_MASTRINI 0 -6
|
||||
BEGIN
|
||||
PROMPT 1 2 "Mastrini"
|
||||
FLAGS "DM2"
|
||||
ITEM "Data Op. \nData Com.@10F"
|
||||
ITEM "C@1F"
|
||||
ITEM "Operazione@20F"
|
||||
ITEM "Causale@20"
|
||||
ITEM "Dare@15R"
|
||||
ITEM "Avere@15R"
|
||||
ITEM "N.Doc. \nN.Prot.@7"
|
||||
ITEM "Importo@17R"
|
||||
ITEM "Saldo fine\ngiornata@17R"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 26 -5 "@bSaldo"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 45 -5 "@bDare"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 61 -5 "@bAvere"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 -4 "Prog. precedenti"
|
||||
END
|
||||
|
||||
STRING F_TOTPRO_SAL 17
|
||||
BEGIN
|
||||
PROMPT 20 -4 ""
|
||||
FLAGS "DR"
|
||||
END
|
||||
|
||||
NUMBER F_TOTPRO_DAR 15
|
||||
BEGIN
|
||||
PROMPT 39 -4 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_TOTPRO_AVE 15
|
||||
BEGIN
|
||||
PROMPT 56 -4 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 -3 "Tot. riga corrente"
|
||||
END
|
||||
|
||||
STRING F_TOTRIG_SAL 17
|
||||
BEGIN
|
||||
PROMPT 20 -3 ""
|
||||
FLAGS "DR"
|
||||
END
|
||||
|
||||
NUMBER F_TOTRIG_DAR 15
|
||||
BEGIN
|
||||
PROMPT 39 -3 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_TOTRIG_AVE 15
|
||||
BEGIN
|
||||
PROMPT 56 -3 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 -2 "Tot. periodo"
|
||||
END
|
||||
|
||||
STRING F_TOTPER_SAL 17
|
||||
BEGIN
|
||||
PROMPT 20 -2 ""
|
||||
FLAGS "DR"
|
||||
END
|
||||
|
||||
NUMBER F_TOTPER_DAR 15
|
||||
BEGIN
|
||||
PROMPT 39 -2 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_TOTPER_AVE 15
|
||||
BEGIN
|
||||
PROMPT 56 -2 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 1 -1 "Tot. attuali"
|
||||
END
|
||||
|
||||
STRING F_TOTATT_SAL 17
|
||||
BEGIN
|
||||
PROMPT 20 -1 ""
|
||||
FLAGS "DR"
|
||||
END
|
||||
|
||||
NUMBER F_TOTATT_DAR 15
|
||||
BEGIN
|
||||
PROMPT 39 -1 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_TOTATT_AVE 15
|
||||
BEGIN
|
||||
PROMPT 56 -1 ""
|
||||
PICTURE "."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
17
cg/cglib.h
17
cg/cglib.h
@ -185,23 +185,26 @@ public:
|
||||
virtual ~TEsercizio() {}
|
||||
};
|
||||
|
||||
class TEsercizi_contabili : private TArray
|
||||
class TEsercizi_contabili : public TObject
|
||||
{
|
||||
long _firm;
|
||||
static TArray _esercizi;
|
||||
static long _firm;
|
||||
|
||||
protected:
|
||||
void check() const;
|
||||
static void check();
|
||||
|
||||
const TEsercizio& esc(int i) const
|
||||
{ return (const TEsercizio&)operator[](i); }
|
||||
{ return (const TEsercizio&)_esercizi[i]; }
|
||||
|
||||
int date2index(const TDate& d) const;
|
||||
int esc2index(int codice) const;
|
||||
|
||||
int items() const { return _esercizi.items(); }
|
||||
|
||||
public:
|
||||
void update();
|
||||
static void update();
|
||||
|
||||
const TEsercizio& esercizio(int codice) const;
|
||||
const TEsercizio& operator [](int codice) const { return esercizio(codice); }
|
||||
|
||||
int date2esc(const TDate& date) const;
|
||||
int pred(int codice) const;
|
||||
@ -209,7 +212,7 @@ public:
|
||||
int first() const;
|
||||
int last() const;
|
||||
bool exist(int codice) const;
|
||||
|
||||
|
||||
TEsercizi_contabili();
|
||||
virtual ~TEsercizi_contabili() {}
|
||||
};
|
||||
|
||||
@ -321,6 +321,9 @@ void TSaldo_agg::registra()
|
||||
// Gestione Tabella esercizi
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
TArray TEsercizi_contabili::_esercizi;
|
||||
long TEsercizi_contabili::_firm = 0;
|
||||
|
||||
TEsercizio::TEsercizio(const TRectype& rec)
|
||||
{
|
||||
_codice = rec.get_int("CODTAB");
|
||||
@ -339,24 +342,25 @@ int TEsercizio::compare(const TSortable& s) const
|
||||
return c;
|
||||
}
|
||||
|
||||
TEsercizi_contabili::TEsercizi_contabili() : _firm(0)
|
||||
{ }
|
||||
TEsercizi_contabili::TEsercizi_contabili()
|
||||
{
|
||||
}
|
||||
|
||||
void TEsercizi_contabili::update()
|
||||
{
|
||||
_firm = prefix().get_codditta();
|
||||
|
||||
destroy();
|
||||
TTable esc("ESC");
|
||||
for (int err = esc.first(); err == NOERR; err = esc.next())
|
||||
_esercizi.destroy();
|
||||
TTable tab_esc("ESC");
|
||||
for (int err = tab_esc.first(); err == NOERR; err = tab_esc.next())
|
||||
{
|
||||
TEsercizio* e = new TEsercizio(esc.curr());
|
||||
add(e);
|
||||
TEsercizio* e = new TEsercizio(tab_esc.curr());
|
||||
_esercizi.add(e);
|
||||
}
|
||||
sort();
|
||||
_esercizi.sort();
|
||||
}
|
||||
|
||||
void TEsercizi_contabili::check() const
|
||||
void TEsercizi_contabili::check()
|
||||
{
|
||||
if (_firm != prefix().get_codditta())
|
||||
{
|
||||
@ -365,7 +369,7 @@ void TEsercizi_contabili::check() const
|
||||
error_box("Questo programma carinissimo usa gli esercizi,\n"
|
||||
"purtroppo non tiene conto del cambio ditta!");
|
||||
#endif
|
||||
((TEsercizi_contabili*)this)->update(); // Fool the compiler
|
||||
update();
|
||||
}
|
||||
}
|
||||
|
||||
@ -434,9 +438,3 @@ const TEsercizio& TEsercizi_contabili::esercizio(int codice) const
|
||||
const int i = esc2index(codice);
|
||||
return esc(i);
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user