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"
|
#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 5 "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 5 "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 9
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Tipo elenco "
|
PROMPT 2 6 "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 7 "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
|
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
|
||||||
OUTPUT F_RAGSOCINI RAGSOC
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
FLAGS "R"
|
FLAGS "R"
|
||||||
END
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
STRING F_RAGSOCINI 50
|
|
||||||
BEGIN
|
STRING F_RAGSOCINI 50
|
||||||
PROMPT 2 8 ""
|
BEGIN
|
||||||
GROUP 1
|
PROMPT 2 8 ""
|
||||||
USE LF_CLIFO KEY 2
|
GROUP 1
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
USE LF_CLIFO KEY 2
|
||||||
INPUT RAGSOC F_RAGSOCINI
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
DISPLAY "Tipo" TIPOCF
|
INPUT RAGSOC F_RAGSOCINI
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Tipo" TIPOCF
|
||||||
DISPLAY "Codice" CODCF
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_RAGSOCINI RAGSOC
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_CODICEINI CODCF
|
OUTPUT F_RAGSOCINI RAGSOC
|
||||||
END
|
OUTPUT F_CODICEINI CODCF
|
||||||
|
CHECKTYPE NORMAL
|
||||||
NUMBER F_CODICEFIN 6
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 2 9 "al codice "
|
NUMBER F_CODICEFIN 6
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
BEGIN
|
||||||
GROUP 1
|
PROMPT 2 9 "al codice "
|
||||||
COPY USE F_CODICEINI
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
GROUP 1
|
||||||
INPUT CODCF F_CODICEFIN
|
COPY USE F_CODICEINI
|
||||||
DISPLAY "Tipo" TIPOCF
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
DISPLAY "Codice" CODCF
|
INPUT CODCF F_CODICEFIN
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Tipo" TIPOCF
|
||||||
OUTPUT F_CODICEFIN CODCF
|
DISPLAY "Codice" CODCF
|
||||||
OUTPUT F_RAGSOCFIN RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
OUTPUT F_CODICEFIN CODCF
|
||||||
WARNING "Limite superiore errato"
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
FLAGS "R"
|
NUM_EXPR {(#F_CODICEFIN==0)||(#F_CODICEFIN>=#F_CODICEINI)}
|
||||||
END
|
WARNING "Limite superiore errato"
|
||||||
|
FLAGS "R"
|
||||||
STRING F_RAGSOCFIN 50
|
CHECKTYPE NORMAL
|
||||||
BEGIN
|
END
|
||||||
PROMPT 2 10 ""
|
|
||||||
GROUP 1
|
STRING F_RAGSOCFIN 50
|
||||||
USE LF_CLIFO KEY 2
|
BEGIN
|
||||||
INPUT TIPOCF F_TIPOELENCO SELECT
|
PROMPT 2 10 ""
|
||||||
INPUT RAGSOC F_RAGSOCFIN
|
GROUP 1
|
||||||
DISPLAY "Tipo" TIPOCF
|
USE LF_CLIFO KEY 2
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
INPUT TIPOCF F_TIPOELENCO SELECT
|
||||||
DISPLAY "Codice" CODCF
|
INPUT RAGSOC F_RAGSOCFIN
|
||||||
OUTPUT F_RAGSOCFIN RAGSOC
|
DISPLAY "Tipo" TIPOCF
|
||||||
OUTPUT F_CODICEFIN CODCF
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
END
|
DISPLAY "Codice" CODCF
|
||||||
|
OUTPUT F_RAGSOCFIN RAGSOC
|
||||||
NUMBER F_CODICEINI1 6
|
OUTPUT F_CODICEFIN CODCF
|
||||||
BEGIN
|
CHECKTYPE NORMAL
|
||||||
PROMPT 2 7 "Stampa dal codice "
|
END
|
||||||
HELP "Indicare il codice da cui iniziare la stampa"
|
|
||||||
GROUP 2
|
NUMBER F_CODICEINI1 6
|
||||||
USE LF_CLIFO KEY 1
|
BEGIN
|
||||||
INPUT TIPOCF "C"
|
PROMPT 2 7 "Stampa dal codice "
|
||||||
INPUT CODCF F_CODICEINI1
|
HELP "Indicare il codice da cui iniziare la stampa"
|
||||||
DISPLAY "Tipo" TIPOCF
|
GROUP 2
|
||||||
DISPLAY "Codice" CODCF
|
USE LF_CLIFO KEY 1
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
INPUT TIPOCF "C"
|
||||||
OUTPUT F_CODICEINI1 CODCF
|
INPUT CODCF F_CODICEINI1
|
||||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
DISPLAY "Tipo" TIPOCF
|
||||||
FLAGS "R"
|
DISPLAY "Codice" CODCF
|
||||||
END
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
STRING F_RAGSOCINI1 50
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
BEGIN
|
FLAGS "R"
|
||||||
PROMPT 2 8 ""
|
CHECKTYPE NORMAL
|
||||||
GROUP 2
|
END
|
||||||
USE LF_CLIFO KEY 2
|
|
||||||
INPUT TIPOCF "C"
|
STRING F_RAGSOCINI1 50
|
||||||
INPUT RAGSOC F_RAGSOCINI1
|
BEGIN
|
||||||
DISPLAY "Tipo" TIPOCF
|
PROMPT 2 8 ""
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
GROUP 2
|
||||||
DISPLAY "Codice" CODCF
|
USE LF_CLIFO KEY 2
|
||||||
OUTPUT F_RAGSOCINI1 RAGSOC
|
INPUT TIPOCF "C"
|
||||||
OUTPUT F_CODICEINI1 CODCF
|
INPUT RAGSOC F_RAGSOCINI1
|
||||||
END
|
DISPLAY "Tipo" TIPOCF
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
NUMBER F_CODICEFIN1 6
|
DISPLAY "Codice" CODCF
|
||||||
BEGIN
|
OUTPUT F_RAGSOCINI1 RAGSOC
|
||||||
PROMPT 2 9 "al codice "
|
OUTPUT F_CODICEINI1 CODCF
|
||||||
HELP "Indicare il codice a cui terminare la stampa"
|
CHECKTYPE NORMAL
|
||||||
GROUP 2
|
END
|
||||||
COPY USE F_CODICEINI1
|
|
||||||
INPUT TIPOCF "F"
|
NUMBER F_CODICEFIN1 6
|
||||||
INPUT CODCF F_CODICEFIN1
|
BEGIN
|
||||||
DISPLAY "Tipo" TIPOCF
|
PROMPT 2 9 "al codice "
|
||||||
DISPLAY "Codice" CODCF
|
HELP "Indicare il codice a cui terminare la stampa"
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
GROUP 2
|
||||||
OUTPUT F_CODICEFIN1 CODCF
|
COPY USE F_CODICEINI1
|
||||||
OUTPUT F_RAGSOCFIN1 RAGSOC
|
INPUT TIPOCF "F"
|
||||||
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
INPUT CODCF F_CODICEFIN1
|
||||||
WARNING "Limite superiore errato"
|
DISPLAY "Tipo" TIPOCF
|
||||||
FLAGS "R"
|
DISPLAY "Codice" CODCF
|
||||||
END
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
STRING F_RAGSOCFIN1 50
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
BEGIN
|
NUM_EXPR {(#F_CODICEFIN1==0)||(#F_CODICEFIN1>=#F_CODICEINI1)}
|
||||||
PROMPT 2 10 ""
|
WARNING "Limite superiore errato"
|
||||||
GROUP 2
|
FLAGS "R"
|
||||||
USE LF_CLIFO KEY 2
|
CHECKTYPE NORMAL
|
||||||
INPUT TIPOCF "F"
|
END
|
||||||
INPUT RAGSOC F_RAGSOCFIN1
|
|
||||||
DISPLAY "Tipo" TIPOCF
|
STRING F_RAGSOCFIN1 50
|
||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
BEGIN
|
||||||
DISPLAY "Codice" CODCF
|
PROMPT 2 10 ""
|
||||||
OUTPUT F_RAGSOCFIN1 RAGSOC
|
GROUP 2
|
||||||
OUTPUT F_CODICEFIN1 CODCF
|
USE LF_CLIFO KEY 2
|
||||||
END
|
INPUT TIPOCF "F"
|
||||||
|
INPUT RAGSOC F_RAGSOCFIN1
|
||||||
BOOLEAN F_CAMBIO
|
DISPLAY "Tipo" TIPOCF
|
||||||
BEGIN
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
|
DISPLAY "Codice" CODCF
|
||||||
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
OUTPUT F_RAGSOCFIN1 RAGSOC
|
||||||
END
|
OUTPUT F_CODICEFIN1 CODCF
|
||||||
|
CHECKTYPE NORMAL
|
||||||
BOOLEAN F_STAMPAMOVP
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT 2 13 "Stampa movimenti provvisori "
|
BOOLEAN F_CAMBIO
|
||||||
HELP "Indicare se stampare i movimenti provvisori"
|
BEGIN
|
||||||
END
|
PROMPT 2 12 "Cambio pagina per cliente/fornitore "
|
||||||
|
HELP "Indicare se cambiare pagina nel passaggio da cliente/fornitore a cliente/fornitore"
|
||||||
BUTTON DLG_PRINT 9 2
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT -12 -1 "~Stampa"
|
BOOLEAN F_STAMPAMOVP
|
||||||
MESSAGE EXIT,K_ENTER
|
BEGIN
|
||||||
END
|
PROMPT 2 13 "Stampa movimenti provvisori "
|
||||||
|
HELP "Indicare se stampare i movimenti provvisori"
|
||||||
BUTTON DLG_QUIT 9 2
|
END
|
||||||
BEGIN
|
|
||||||
PROMPT -22 -1 ""
|
BUTTON DLG_PRINT 9 2
|
||||||
END
|
BEGIN
|
||||||
|
PROMPT -12 -1 "~Stampa"
|
||||||
ENDPAGE
|
MESSAGE EXIT,K_ENTER
|
||||||
|
END
|
||||||
ENDMASK
|
|
||||||
|
BUTTON DLG_QUIT 9 2
|
||||||
|
BEGIN
|
||||||
|
PROMPT -22 -1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user