Correzioni alla lista clienti
git-svn-id: svn://10.65.10.50/trunk@873 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
7b331bd29a
commit
a6fe95afb8
446
cg/cg3100b.uml
446
cg/cg3100b.uml
@ -1,219 +1,227 @@
|
||||
#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_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
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"
|
||||
CHECKTYPE NORMAL
|
||||
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
|
||||
CHECKTYPE NORMAL
|
||||
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"
|
||||
CHECKTYPE NORMAL
|
||||
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
|
||||
CHECKTYPE NORMAL
|
||||
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"
|
||||
CHECKTYPE NORMAL
|
||||
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
|
||||
CHECKTYPE NORMAL
|
||||
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"
|
||||
CHECKTYPE NORMAL
|
||||
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
|
||||
CHECKTYPE NORMAL
|
||||
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_PRINT 9 2
|
||||
BEGIN
|
||||
PROMPT -12 -1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -22 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user