Sistemati errori di cui al fax idel 29/12/94
git-svn-id: svn://10.65.10.50/trunk@803 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
ecfe1f34a1
commit
889c9838f4
9950
cg/cg1600.cpp
9950
cg/cg1600.cpp
File diff suppressed because it is too large
Load Diff
381
cg/cg3100b.uml
381
cg/cg3100b.uml
@ -1,163 +1,218 @@
|
|||||||
#include "cg3100.h"
|
#include "cg3100.h"
|
||||||
|
|
||||||
PAGE "" -1 -1 73 16
|
PAGE "" -1 -1 73 16
|
||||||
|
|
||||||
|
|
||||||
NUMBER F_CODDITTA 5
|
NUMBER F_CODDITTA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Ditta "
|
PROMPT 2 1 "Ditta "
|
||||||
FLAGS "FRD"
|
FLAGS "FRD"
|
||||||
USE LF_NDITTE KEY 1
|
USE LF_NDITTE KEY 1
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
INPUT CODDITTA F_CODDITTA
|
INPUT CODDITTA F_CODDITTA
|
||||||
DISPLAY "Codice" CODDITTA
|
DISPLAY "Codice" CODDITTA
|
||||||
DISPLAY "Ragione sociale @50" RAGSOC
|
DISPLAY "Ragione sociale @50" RAGSOC
|
||||||
OUTPUT F_CODDITTA CODDITTA
|
OUTPUT F_CODDITTA CODDITTA
|
||||||
OUTPUT F_RAGSOC RAGSOC
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_RAGSOC 50
|
STRING F_RAGSOC 50
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Ragione sociale "
|
PROMPT 2 2 "Ragione sociale "
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATASTAMPA
|
DATE F_DATASTAMPA
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 48 1 "Data stampa "
|
PROMPT 48 1 "Data stampa "
|
||||||
HELP "Data in cui viene effettuata la stampa"
|
HELP "Data in cui viene effettuata la stampa"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
NUMBER F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Anno esercizio "
|
PROMPT 2 4 "Anno esercizio "
|
||||||
HELP "Anno d'esercizio di cui si vuole la stampa"
|
HELP "Anno d'esercizio di cui si vuole la stampa"
|
||||||
USE ESC KEY 1
|
USE ESC KEY 1
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
INPUT CODTAB F_ANNO
|
INPUT CODTAB F_ANNO
|
||||||
DISPLAY "Anno" CODTAB
|
DISPLAY "Anno" CODTAB
|
||||||
DISPLAY "Data inizio esercizio" D0
|
DISPLAY "Data inizio esercizio" D0
|
||||||
DISPLAY "Data fine esercizio" D1
|
DISPLAY "Data fine esercizio" D1
|
||||||
OUTPUT F_ANNO CODTAB
|
OUTPUT F_ANNO CODTAB
|
||||||
FLAGS "RZ"
|
FLAGS "RZ"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAINI
|
DATE F_DATAINI
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Stampa movimenti dalla data "
|
PROMPT 2 5 "Stampa movimenti dalla data "
|
||||||
HELP "Data da cui iniziare la stampa"
|
HELP "Data da cui iniziare la stampa"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE F_DATAFIN
|
DATE F_DATAFIN
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 45 6 "alla data "
|
PROMPT 45 5 "alla data "
|
||||||
HELP "Data fino a cui eseguire la stampa"
|
HELP "Data fino a cui eseguire la stampa"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
LIST F_TIPOELENCO 9
|
||||||
LIST F_TIPOELENCO 8
|
BEGIN
|
||||||
BEGIN
|
PROMPT 2 6 "Tipo elenco "
|
||||||
PROMPT 2 7 "Tipo elenco "
|
HELP "Indicare cosa includere nella stampa"
|
||||||
HELP "Indicare cosa includere nella stampa"
|
ITEM "C|Clienti"
|
||||||
ITEM "C|Clienti"
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
ITEM "F|Fornitori"
|
||||||
ITEM "F|Fornitori"
|
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
ITEM "E|Entrambi"
|
||||||
ITEM "E|Entrambi"
|
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
||||||
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
END
|
||||||
END
|
|
||||||
|
NUMBER F_CODICEINI 6
|
||||||
NUMBER F_CODICEINI 6
|
BEGIN
|
||||||
BEGIN
|
PROMPT 2 7 "Stampa dal codice "
|
||||||
PROMPT 2 8 "Stampa dal codice "
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
HELP "Indicare il codice da cui iniziare la stampa"
|
GROUP 1
|
||||||
GROUP 1
|
USE LF_CLIFO
|
||||||
USE LF_CLIFO
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT CODCF F_CODICEINI
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEINI CODCF
|
OUTPUT F_CODICEINI CODCF
|
||||||
FLAGS "R"
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
END
|
FLAGS "R"
|
||||||
|
END
|
||||||
NUMBER F_CODICEFIN 6
|
|
||||||
BEGIN
|
STRING F_RAGSOCINI 50
|
||||||
PROMPT 45 8 "al codice "
|
BEGIN
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
PROMPT 2 8 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
COPY USE F_CODICEINI
|
USE LF_CLIFO KEY 2
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
DISPLAY "Tipo" TIPOCF
|
INPUT RAGSOC F_RAGSOCINI
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEFIN CODCF
|
DISPLAY "Codice" CODCF
|
||||||
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
WARNING "Limite superiore errato"
|
OUTPUT F_CODICEINI CODCF
|
||||||
FLAGS "R"
|
END
|
||||||
END
|
|
||||||
|
NUMBER F_CODICEFIN 6
|
||||||
NUMBER F_CODICEINI1 6
|
BEGIN
|
||||||
BEGIN
|
PROMPT 2 9 "al codice "
|
||||||
PROMPT 2 8 "Stampa dal codice "
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
HELP "Indicare il codice da cui iniziare la stampa"
|
GROUP 1
|
||||||
GROUP 2
|
COPY USE F_CODICEINI
|
||||||
COPY USE F_CODICEINI
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
INPUT TIPOCF F_CODICEINI1
|
INPUT CODCF F_CODICEFIN
|
||||||
DISPLAY "Tipo" TIPOCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Codice" CODCF
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODICEINI1 CODCF
|
OUTPUT F_CODICEFIN CODCF
|
||||||
FLAGS "R"
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
END
|
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
||||||
|
WARNING "Limite superiore errato"
|
||||||
NUMBER F_CODICEFIN1 6
|
FLAGS "R"
|
||||||
BEGIN
|
END
|
||||||
PROMPT 45 8 "al codice "
|
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
STRING F_RAGSOCFIN 50
|
||||||
GROUP 2
|
BEGIN
|
||||||
COPY USE F_CODICEINI
|
PROMPT 2 10 ""
|
||||||
INPUT TIPOCF F_CODICEFIN1
|
GROUP 1
|
||||||
DISPLAY "Tipo" TIPOCF
|
USE LF_CLIFO KEY 2
|
||||||
DISPLAY "Codice" CODCF
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
INPUT RAGSOC F_RAGSOCFIN
|
||||||
OUTPUT F_CODICEFIN1 CODCF
|
DISPLAY "Tipo" TIPOCF
|
||||||
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
WARNING "Limite superiore errato"
|
DISPLAY "Codice" CODCF
|
||||||
FLAGS "R"
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
END
|
OUTPUT F_CODICEFIN CODCF
|
||||||
|
END
|
||||||
BOOLEAN F_CAMBIO
|
|
||||||
BEGIN
|
NUMBER F_CODICEINI1 6
|
||||||
//GROUP 2
|
BEGIN
|
||||||
PROMPT 2 10 "Cambio pagina per cliente/fornitore "
|
PROMPT 2 7 "Stampa dal codice "
|
||||||
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
END
|
GROUP 2
|
||||||
|
USE LF_CLIFO KEY 1
|
||||||
BOOLEAN F_STAMPAMOVP
|
INPUT TIPOCF "C"
|
||||||
BEGIN
|
INPUT CODCF F_CODICEINI1
|
||||||
PROMPT 2 11 "Stampa movimenti provvisori "
|
DISPLAY "Tipo" TIPOCF
|
||||||
HELP "Indicare se stampare i movimenti provvisori"
|
DISPLAY "Codice" CODCF
|
||||||
END
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
/*
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
TEXT DLG_NULL
|
FLAGS "R"
|
||||||
BEGIN
|
END
|
||||||
PROMPT 3 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
|
|
||||||
END
|
STRING F_RAGSOCINI1 50
|
||||||
*/
|
BEGIN
|
||||||
|
PROMPT 2 8 ""
|
||||||
BUTTON DLG_OK 9 2
|
GROUP 2
|
||||||
BEGIN
|
USE LF_CLIFO KEY 2
|
||||||
PROMPT -12 -1 ""
|
INPUT TIPOCF "C"
|
||||||
END
|
INPUT RAGSOC F_RAGSOCINI1
|
||||||
|
DISPLAY "Tipo" TIPOCF
|
||||||
BUTTON DLG_QUIT 9 2
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
BEGIN
|
DISPLAY "Codice" CODCF
|
||||||
PROMPT -22 -1 ""
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
END
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
|
END
|
||||||
ENDPAGE
|
|
||||||
|
NUMBER F_CODICEFIN1 6
|
||||||
ENDMASK
|
BEGIN
|
||||||
|
PROMPT 2 9 "al codice "
|
||||||
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
|
GROUP 2
|
||||||
|
COPY USE F_CODICEINI1
|
||||||
|
INPUT TIPOCF "F"
|
||||||
|
INPUT CODCF F_CODICEFIN1
|
||||||
|
DISPLAY "Tipo" TIPOCF
|
||||||
|
DISPLAY "Codice" CODCF
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
|
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
||||||
|
WARNING "Limite superiore errato"
|
||||||
|
FLAGS "R"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOCFIN1 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 10 ""
|
||||||
|
GROUP 2
|
||||||
|
USE LF_CLIFO KEY 2
|
||||||
|
INPUT TIPOCF "F"
|
||||||
|
INPUT RAGSOC F_RAGSOCFIN1
|
||||||
|
DISPLAY "Tipo" TIPOCF
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
DISPLAY "Codice" CODCF
|
||||||
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_CAMBIO
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
|
||||||
|
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
||||||
|
END
|
||||||
|
|
||||||
|
BOOLEAN F_STAMPAMOVP
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 13 "Stampa movimenti provvisori "
|
||||||
|
HELP "Indicare se stampare i movimenti provvisori"
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_OK 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -12 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
BUTTON DLG_QUIT 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
3982
cg/cg3200.cpp
3982
cg/cg3200.cpp
File diff suppressed because it is too large
Load Diff
1106
cg/cg3200a.uml
1106
cg/cg3200a.uml
File diff suppressed because it is too large
Load Diff
1859
cg/cg3500.cpp
1859
cg/cg3500.cpp
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user