Strunzatielle XI - Disabilitato temporaneamente prog. bilanci
git-svn-id: svn://10.65.10.50/trunk@2909 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa
parent
c711835274
commit
ec6bf26b5c
@ -19,8 +19,8 @@ int main(int argc,char** argv)
|
||||
cg1300(argc,argv); break;
|
||||
case 3:
|
||||
cg1400(argc,argv); break;
|
||||
case 4:
|
||||
cg1500(argc,argv); break;
|
||||
// case 4:
|
||||
// cg1500(argc,argv); break;
|
||||
case 5:
|
||||
cg1600(argc,argv); break;
|
||||
case 6:
|
||||
|
||||
202
cg/cg1200a.uml
202
cg/cg1200a.uml
@ -30,156 +30,156 @@ END
|
||||
|
||||
RADIOBUTTON RDB_CG12_TYPE 22
|
||||
BEGIN
|
||||
PROMPT 4 4 "Oggetto"
|
||||
HELP "Selezionare l'archivio che si desidera stampare"
|
||||
ITEM "1|Clienti" MESSAGE RESET,2@|SHOW,1@|HIDE,2@
|
||||
ITEM "2|Fornitori" MESSAGE RESET,1@|SHOW,2@|HIDE,1@
|
||||
ITEM "3|Entrambi" MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@
|
||||
PROMPT 4 4 "Oggetto"
|
||||
HELP "Selezionare l'archivio che si desidera stampare"
|
||||
ITEM "1|Clienti" MESSAGE RESET,2@|SHOW,1@|HIDE,2@
|
||||
ITEM "2|Fornitori" MESSAGE RESET,1@|SHOW,2@|HIDE,1@
|
||||
ITEM "3|Entrambi" MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@
|
||||
END
|
||||
|
||||
RADIOBUTTON RDB_CG12_SORT 22
|
||||
BEGIN
|
||||
PROMPT 4 9 "Ordinamento"
|
||||
HELP "Selezionare il tipo di ordinamento dei record stampati"
|
||||
ITEM "1|per Codice" MESSAGE CLEAR,4@|ENABLE,3@
|
||||
ITEM "2|per Ragione Sociale" MESSAGE CLEAR,3@|ENABLE,4@
|
||||
PROMPT 4 9 "Ordinamento"
|
||||
HELP "Selezionare il tipo di ordinamento dei record stampati"
|
||||
ITEM "1|per Codice" MESSAGE CLEAR,4@|ENABLE,3@
|
||||
ITEM "2|per Ragione Sociale" MESSAGE CLEAR,3@|ENABLE,4@
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 35 10
|
||||
BEGIN
|
||||
PROMPT 32 4 "Selezione "
|
||||
PROMPT 32 4 "Selezione "
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 34 8 "da Ragione Sociale/Nominativo"
|
||||
PROMPT 34 8 "da Ragione Sociale/Nominativo"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 34 10 "a Ragione Sociale/Nominativo"
|
||||
PROMPT 34 10 "a Ragione Sociale/Nominativo"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 34 5 "da Codice"
|
||||
PROMPT 34 5 "da Codice"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 48 5 "a Codice"
|
||||
PROMPT 48 5 "a Codice"
|
||||
END
|
||||
|
||||
STRING FLD_CLI_CODFR 5
|
||||
BEGIN
|
||||
PROMPT 34 6 ""
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF FLD_CLI_CODFR
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT FLD_CLI_CODFR CODCF
|
||||
GROUP 1 3
|
||||
PROMPT 34 6 ""
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF FLD_CLI_CODFR
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT FLD_CLI_CODFR CODCF
|
||||
GROUP 1 3
|
||||
HELP "Codice di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_CLI_CODTO 5
|
||||
BEGIN
|
||||
PROMPT 48 6 ""
|
||||
COPY USE FLD_CLI_CODFR
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF FLD_CLI_CODTO
|
||||
COPY DISPLAY FLD_CLI_CODFR
|
||||
OUTPUT FLD_CLI_CODTO CODCF
|
||||
GROUP 1 3
|
||||
PROMPT 48 6 ""
|
||||
COPY USE FLD_CLI_CODFR
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF FLD_CLI_CODTO
|
||||
COPY DISPLAY FLD_CLI_CODFR
|
||||
OUTPUT FLD_CLI_CODTO CODCF
|
||||
GROUP 1 3
|
||||
HELP "Codice di fine stampa: vuoto = fine archivio"
|
||||
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
END
|
||||
|
||||
STRING FLD_CLI_RAGSOCFR 50 29
|
||||
BEGIN
|
||||
PROMPT 34 9 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC FLD_CLI_RAGSOCFR
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
OUTPUT FLD_CLI_RAGSOCFR RAGSOC
|
||||
OUTPUT F_TIPOAPERFR TIPOAPER
|
||||
GROUP 1 4
|
||||
PROMPT 34 9 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC FLD_CLI_RAGSOCFR
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Codice Fiscale@16" COFI
|
||||
OUTPUT FLD_CLI_RAGSOCFR RAGSOC
|
||||
OUTPUT F_TIPOAPERFR TIPOAPER
|
||||
GROUP 1 4
|
||||
HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_CLI_RAGSOCTO 50 29
|
||||
BEGIN
|
||||
PROMPT 34 11 ""
|
||||
COPY USE FLD_CLI_RAGSOCFR
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC FLD_CLI_RAGSOCTO
|
||||
COPY DISPLAY FLD_CLI_RAGSOCFR
|
||||
OUTPUT FLD_CLI_RAGSOCTO RAGSOC
|
||||
OUTPUT F_TIPOAPERTO TIPOAPER
|
||||
GROUP 1 4
|
||||
PROMPT 34 11 ""
|
||||
COPY USE FLD_CLI_RAGSOCFR
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC FLD_CLI_RAGSOCTO
|
||||
COPY DISPLAY FLD_CLI_RAGSOCFR
|
||||
OUTPUT FLD_CLI_RAGSOCTO RAGSOC
|
||||
OUTPUT F_TIPOAPERTO TIPOAPER
|
||||
GROUP 1 4
|
||||
HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
|
||||
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
END
|
||||
|
||||
STRING FLD_FOR_CODFR 5
|
||||
BEGIN
|
||||
PROMPT 34 6 ""
|
||||
COPY USE FLD_CLI_CODFR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF FLD_FOR_CODFR
|
||||
COPY DISPLAY FLD_CLI_CODFR
|
||||
OUTPUT FLD_FOR_CODFR CODCF
|
||||
GROUP 2 3
|
||||
PROMPT 34 6 ""
|
||||
COPY USE FLD_CLI_CODFR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF FLD_FOR_CODFR
|
||||
COPY DISPLAY FLD_CLI_CODFR
|
||||
OUTPUT FLD_FOR_CODFR CODCF
|
||||
GROUP 2 3
|
||||
HELP "Codice C/F di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_FOR_CODTO 5
|
||||
BEGIN
|
||||
PROMPT 48 6 ""
|
||||
COPY USE FLD_FOR_CODFR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF FLD_FOR_CODTO
|
||||
COPY DISPLAY FLD_CLI_CODFR
|
||||
OUTPUT FLD_FOR_CODTO CODCF
|
||||
GROUP 2 3
|
||||
PROMPT 48 6 ""
|
||||
COPY USE FLD_FOR_CODFR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT CODCF FLD_FOR_CODTO
|
||||
COPY DISPLAY FLD_CLI_CODFR
|
||||
OUTPUT FLD_FOR_CODTO CODCF
|
||||
GROUP 2 3
|
||||
HELP "Codice C/F di fine stampa: vuoto = fine archivio"
|
||||
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
END
|
||||
|
||||
STRING FLD_FOR_RAGSOCFR 50 29
|
||||
BEGIN
|
||||
PROMPT 34 9 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC FLD_FOR_RAGSOCFR
|
||||
COPY DISPLAY FLD_CLI_RAGSOCFR
|
||||
OUTPUT FLD_FOR_RAGSOCFR RAGSOC
|
||||
OUTPUT F_TIPOAPERFR TIPOAPER
|
||||
GROUP 2 4
|
||||
PROMPT 34 9 ""
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC FLD_FOR_RAGSOCFR
|
||||
COPY DISPLAY FLD_CLI_RAGSOCFR
|
||||
OUTPUT FLD_FOR_RAGSOCFR RAGSOC
|
||||
OUTPUT F_TIPOAPERFR TIPOAPER
|
||||
GROUP 2 4
|
||||
HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
|
||||
END
|
||||
|
||||
STRING FLD_FOR_RAGSOCTO 50 29
|
||||
BEGIN
|
||||
PROMPT 34 11 ""
|
||||
COPY USE FLD_FOR_RAGSOCFR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC FLD_FOR_RAGSOCTO
|
||||
COPY DISPLAY FLD_CLI_RAGSOCFR
|
||||
OUTPUT FLD_FOR_RAGSOCTO RAGSOC
|
||||
OUTPUT F_TIPOAPERTO TIPOAPER
|
||||
GROUP 2 4
|
||||
PROMPT 34 11 ""
|
||||
COPY USE FLD_FOR_RAGSOCFR
|
||||
INPUT TIPOCF "F"
|
||||
INPUT RAGSOC FLD_FOR_RAGSOCTO
|
||||
COPY DISPLAY FLD_CLI_RAGSOCFR
|
||||
OUTPUT FLD_FOR_RAGSOCTO RAGSOC
|
||||
OUTPUT F_TIPOAPERTO TIPOAPER
|
||||
GROUP 2 4
|
||||
HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
|
||||
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)}
|
||||
WARNING "Limite superiore errato"
|
||||
END
|
||||
|
||||
STRING F_TIPOAPERFR 1
|
||||
@ -196,51 +196,51 @@ END
|
||||
|
||||
BOOLEAN CHK_CG12_MOVIM
|
||||
BEGIN
|
||||
PROMPT 4 13 "Solo movimentati"
|
||||
PROMPT 4 13 "Solo movimentati"
|
||||
HELP "Indicare se stampare solo inclusi archivio movimenti"
|
||||
END
|
||||
|
||||
LIST LST_CG12_INTERLINE 1
|
||||
LIST LST_CG12_INTERLINE 2
|
||||
BEGIN
|
||||
PROMPT 4 14 "Righe interlinea "
|
||||
ITEM "0|0"
|
||||
ITEM "1|1"
|
||||
ITEM "2|2"
|
||||
PROMPT 4 14 "Righe interlinea "
|
||||
ITEM "0|0"
|
||||
ITEM "1|1"
|
||||
ITEM "2|2"
|
||||
HELP "Indicare il numero di righe di interlinea tra i nominativi"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 51 4
|
||||
BEGIN
|
||||
PROMPT 2 16 "Stampa"
|
||||
PROMPT 2 16 "Stampa"
|
||||
END
|
||||
|
||||
BUTTON BUT_CG12_ELENCO 9 2
|
||||
BEGIN
|
||||
PROMPT 4 17 "~Elenco"
|
||||
MESSAGE EXIT,BUT_CG12_ELENCO
|
||||
PROMPT 4 17 "~Elenco"
|
||||
MESSAGE EXIT,BUT_CG12_ELENCO
|
||||
END
|
||||
|
||||
BUTTON BUT_CG12_RUBRICHE 9 2
|
||||
BEGIN
|
||||
PROMPT 16 17 "~Rubriche"
|
||||
MESSAGE EXIT,BUT_CG12_RUBRICHE
|
||||
PROMPT 16 17 "~Rubriche"
|
||||
MESSAGE EXIT,BUT_CG12_RUBRICHE
|
||||
END
|
||||
|
||||
BUTTON BUT_CG12_ETICHETTE 9 2
|
||||
BEGIN
|
||||
PROMPT 28 17 "E~tichette"
|
||||
MESSAGE EXIT,BUT_CG12_ETICHETTE
|
||||
PROMPT 28 17 "E~tichette"
|
||||
MESSAGE EXIT,BUT_CG12_ETICHETTE
|
||||
END
|
||||
|
||||
BUTTON BUT_CG12_VENDITE 9 2
|
||||
BEGIN
|
||||
PROMPT 40 17 "~Vendite"
|
||||
MESSAGE EXIT,BUT_CG12_VENDITE
|
||||
MESSAGE EXIT,BUT_CG12_VENDITE
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT 55 17 ""
|
||||
PROMPT 55 17 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user