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"
|
||||
|
||||
PAGE "" -1 -1 73 16
|
||||
|
||||
|
||||
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 in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Anno esercizio "
|
||||
HELP "Anno d'esercizio di cui si vuole la stampa"
|
||||
USE ESC KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 2 6 "Stampa movimenti dalla data "
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 45 6 "alla data "
|
||||
HELP "Data fino a cui eseguire la stampa"
|
||||
END
|
||||
|
||||
|
||||
LIST F_TIPOELENCO 8
|
||||
BEGIN
|
||||
PROMPT 2 7 "Tipo elenco "
|
||||
HELP "Indicare cosa includere nella stampa"
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||
ITEM "F|Fornitori"
|
||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||
ITEM "E|Entrambi"
|
||||
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
||||
END
|
||||
|
||||
NUMBER F_CODICEINI 6
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa dal codice "
|
||||
HELP "Indicare il codice da cui iniziare la stampa"
|
||||
GROUP 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODICEINI CODCF
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CODICEFIN 6
|
||||
BEGIN
|
||||
PROMPT 45 8 "al codice "
|
||||
HELP "Indicare il codice a cui terminare la stampa"
|
||||
GROUP 1
|
||||
COPY USE F_CODICEINI
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODICEFIN CODCF
|
||||
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
||||
WARNING "Limite superiore errato"
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CODICEINI1 6
|
||||
BEGIN
|
||||
PROMPT 2 8 "Stampa dal codice "
|
||||
HELP "Indicare il codice da cui iniziare la stampa"
|
||||
GROUP 2
|
||||
COPY USE F_CODICEINI
|
||||
INPUT TIPOCF F_CODICEINI1
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODICEINI1 CODCF
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
NUMBER F_CODICEFIN1 6
|
||||
BEGIN
|
||||
PROMPT 45 8 "al codice "
|
||||
HELP "Indicare il codice a cui terminare la stampa"
|
||||
GROUP 2
|
||||
COPY USE F_CODICEINI
|
||||
INPUT TIPOCF F_CODICEFIN1
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODICEFIN1 CODCF
|
||||
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
||||
WARNING "Limite superiore errato"
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
BOOLEAN F_CAMBIO
|
||||
BEGIN
|
||||
//GROUP 2
|
||||
PROMPT 2 10 "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 11 "Stampa movimenti provvisori "
|
||||
HELP "Indicare se stampare i movimenti provvisori"
|
||||
END
|
||||
|
||||
/*
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 15 "(N.B. se non indicato nessun valore stampa completa in ordine di data) "
|
||||
END
|
||||
*/
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
#include "cg3100.h"
|
||||
|
||||
PAGE "" -1 -1 73 16
|
||||
|
||||
|
||||
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 in cui viene effettuata la stampa"
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Anno esercizio "
|
||||
HELP "Anno d'esercizio di cui si vuole la stampa"
|
||||
USE ESC KEY 1
|
||||
CHECKTYPE NORMAL
|
||||
INPUT CODTAB F_ANNO
|
||||
DISPLAY "Anno" CODTAB
|
||||
DISPLAY "Data inizio esercizio" D0
|
||||
DISPLAY "Data fine esercizio" D1
|
||||
OUTPUT F_ANNO CODTAB
|
||||
FLAGS "RZ"
|
||||
END
|
||||
|
||||
DATE F_DATAINI
|
||||
BEGIN
|
||||
PROMPT 2 5 "Stampa movimenti dalla data "
|
||||
HELP "Data da cui iniziare la stampa"
|
||||
END
|
||||
|
||||
DATE F_DATAFIN
|
||||
BEGIN
|
||||
PROMPT 45 5 "alla data "
|
||||
HELP "Data fino a cui eseguire la stampa"
|
||||
END
|
||||
|
||||
LIST F_TIPOELENCO 9
|
||||
BEGIN
|
||||
PROMPT 2 6 "Tipo elenco "
|
||||
HELP "Indicare cosa includere nella stampa"
|
||||
ITEM "C|Clienti"
|
||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||
ITEM "F|Fornitori"
|
||||
MESSAGE HIDE,2@|SHOW,1@|RESET,1@
|
||||
ITEM "E|Entrambi"
|
||||
MESSAGE HIDE,1@|SHOW,2@|RESET,2@
|
||||
END
|
||||
|
||||
NUMBER F_CODICEINI 6
|
||||
BEGIN
|
||||
PROMPT 2 7 "Stampa dal codice "
|
||||
HELP "Indicare il codice da cui iniziare la stampa"
|
||||
GROUP 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
INPUT CODCF F_CODICEINI
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODICEINI CODCF
|
||||
OUTPUT F_RAGSOCINI RAGSOC
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCINI 50
|
||||
BEGIN
|
||||
PROMPT 2 8 ""
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
INPUT RAGSOC F_RAGSOCINI
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
OUTPUT F_RAGSOCINI RAGSOC
|
||||
OUTPUT F_CODICEINI CODCF
|
||||
END
|
||||
|
||||
NUMBER F_CODICEFIN 6
|
||||
BEGIN
|
||||
PROMPT 2 9 "al codice "
|
||||
HELP "Indicare il codice a cui terminare la stampa"
|
||||
GROUP 1
|
||||
COPY USE F_CODICEINI
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
INPUT CODCF F_CODICEFIN
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODICEFIN CODCF
|
||||
OUTPUT F_RAGSOCFIN RAGSOC
|
||||
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
||||
WARNING "Limite superiore errato"
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCFIN 50
|
||||
BEGIN
|
||||
PROMPT 2 10 ""
|
||||
GROUP 1
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||
INPUT RAGSOC F_RAGSOCFIN
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
OUTPUT F_RAGSOCFIN RAGSOC
|
||||
OUTPUT F_CODICEFIN CODCF
|
||||
END
|
||||
|
||||
NUMBER F_CODICEINI1 6
|
||||
BEGIN
|
||||
PROMPT 2 7 "Stampa dal codice "
|
||||
HELP "Indicare il codice da cui iniziare la stampa"
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 1
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODICEINI1
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
OUTPUT F_CODICEINI1 CODCF
|
||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||
FLAGS "R"
|
||||
END
|
||||
|
||||
STRING F_RAGSOCINI1 50
|
||||
BEGIN
|
||||
PROMPT 2 8 ""
|
||||
GROUP 2
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOCINI1
|
||||
DISPLAY "Tipo" TIPOCF
|
||||
DISPLAY "Ragione sociale@50" RAGSOC
|
||||
DISPLAY "Codice" CODCF
|
||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||
OUTPUT F_CODICEINI1 CODCF
|
||||
END
|
||||
|
||||
NUMBER F_CODICEFIN1 6
|
||||
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