7899ed22f7
Files correlati : Ricompilazione Demo : [ ] Commento : Revisione Maschere modulo or git-svn-id: svn://10.65.10.50/trunk@16681 c028cbd2-c16b-5b4b-a496-9718f37d4682
446 lines
7.9 KiB
Plaintext
Executable File
446 lines
7.9 KiB
Plaintext
Executable File
#include "or1200a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -15 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_SETPRINT 10 2
|
|
BEGIN
|
|
PROMPT -25 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_INFO 10 2
|
|
BEGIN
|
|
PROMPT -35 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_HELP 10 2
|
|
BEGIN
|
|
PROMPT -45 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -55 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Disponibilita' articoli" 0 0 0 0
|
|
|
|
GROUPBOX DLG_NULL 41 7
|
|
BEGIN
|
|
PROMPT 1 1 "Ordine"
|
|
END
|
|
|
|
/*
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 2 "Codice Num. "
|
|
FLAG "U"
|
|
USE %NUM SELECT I1==3
|
|
INPUT CODTAB F_CODNUM
|
|
DISPLAY "Cod. Num." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CODNUM CODTAB
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
*/
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 2 2 "Anno "
|
|
// CHECKTYPE REQUIRED
|
|
END
|
|
|
|
LIST F_PROVV 12
|
|
BEGIN
|
|
PROMPT 2 3 "Tipo numerazione "
|
|
ITEM "D|Definitiva"
|
|
ITEM "P|Provvisoria"
|
|
END
|
|
|
|
DATE F_DATE_H
|
|
BEGIN
|
|
PROMTP 2 4 "Data iniziale "
|
|
FLAGS "A"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
DATE F_DATAOSS
|
|
BEGIN
|
|
PROMPT 2 6 "Data osservazione "
|
|
VALIDATE DATE_CMP_FUNC >= F_DATE_H
|
|
WARNING "La data osservazione deve essere maggiore della data iniziale"
|
|
END
|
|
|
|
NUMBER F_DETAIL_LEV 1
|
|
BEGIN
|
|
PROMPT 45 2 "Livello dettaglio "
|
|
GROUP GR_GIAC
|
|
USE FCG
|
|
INPUT CODTAB F_DETAIL_LEV
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione livello@50" S0
|
|
OUTPUT F_DETAIL_LEV CODTAB
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BOOLEAN F_DETAIL_MAG
|
|
BEGIN
|
|
PROMPT 45 3 "Dettaglia magazzini"
|
|
END
|
|
|
|
BOOLEAN F_DETAIL_DEP
|
|
BEGIN
|
|
PROMPT 45 4 "Dettaglia depositi"
|
|
GROUP GR_DEP
|
|
END
|
|
|
|
LISTBOX F_PERIODS 1
|
|
BEGIN
|
|
PROMPT 2 8 "Numero periodi "
|
|
ITEM "1|1"
|
|
ITEM "2|2"
|
|
ITEM "3|3"
|
|
ITEM "4|4"
|
|
ITEM "5|5"
|
|
ITEM "6|6"
|
|
END
|
|
|
|
LIST F_RIGHETUTTE 12
|
|
BEGIN
|
|
PROMPT 2 9 "Tipo righe ordine "
|
|
ITEM "T|Tutte"
|
|
ITEM "O|Non evase"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 31 4
|
|
BEGIN
|
|
PROMPT 1 10 "Articolo"
|
|
END
|
|
|
|
STRING F_ARTFROM 20
|
|
BEGIN
|
|
PROMPT 2 11 "Dal "
|
|
FLAGS "U"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_ARTFROM
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ARTFROM CODART
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
END
|
|
|
|
STRING F_ARTTO 20
|
|
BEGIN
|
|
PROMPT 2 12 "Al "
|
|
FLAGS "U"
|
|
USE LF_ANAMAG
|
|
INPUT CODART F_ARTTO
|
|
DISPLAY "Codice@20" CODART
|
|
DISPLAY "Descrizione@50" DESCR
|
|
OUTPUT F_ARTTO CODART
|
|
CHECKTYPE NORMAL
|
|
ADD RUN ve2 -3
|
|
END
|
|
|
|
BOOLEAN F_GIACEFF
|
|
BEGIN
|
|
PROMPT 36 11 "Giacenza effettiva"
|
|
END
|
|
|
|
BOOLEAN F_VALCOMP
|
|
BEGIN
|
|
PROMPT 36 12 "Valorizza componenti"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 31 4
|
|
BEGIN
|
|
PROMPT 1 15 "Magazzino"
|
|
END
|
|
|
|
STRING F_MAGFROM 3
|
|
BEGIN
|
|
PROMPT 2 16 "Dal "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_MAGFROM
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAGFROM CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_MAGTO 3
|
|
BEGIN
|
|
PROMPT 2 17 "Al "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]==""
|
|
INPUT CODTAB F_MAGTO
|
|
DISPLAY "Codice " CODTAB[1,3]
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAGTO CODTAB[1,3]
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 40 4
|
|
BEGIN
|
|
PROMPT 35 15 "Deposito"
|
|
END
|
|
|
|
STRING F_DEPFROM 2
|
|
BEGIN
|
|
PROMPT 36 16 "Dal "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_MAGFROM
|
|
INPUT CODTAB[4,5] F_DEPFROM
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Denominazione dep.@50 " S0
|
|
OUTPUT F_MAGFROM CODTAB[1,3]
|
|
OUTPUT F_DEPFROM CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
GROUP GR_DEP
|
|
END
|
|
|
|
STRING F_DEPTO 2
|
|
BEGIN
|
|
PROMPT 36 17 "Al "
|
|
FLAGS "U"
|
|
USE MAG SELECT CODTAB[4,5]!=""
|
|
INPUT CODTAB[1,3] F_MAGTO
|
|
INPUT CODTAB[4,5] F_DEPTO
|
|
DISPLAY "Codice " CODTAB
|
|
DISPLAY "Denominazione mag.@50 " S0
|
|
OUTPUT F_MAGTO CODTAB[1,3]
|
|
OUTPUT F_DEPTO CODTAB[4,5]
|
|
CHECKTYPE NORMAL
|
|
GROUP GR_DEP
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Livelli giacenza" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 74 10
|
|
BEGIN
|
|
PROMPT 2 2 "Livelli di giacenza"
|
|
END
|
|
|
|
STRING F_GIAC1 1
|
|
BEGIN
|
|
PROMPT 3 3 "1. "
|
|
FLAGS "DP"
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC1
|
|
OUTPUT F_GIAC1_DES S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_GIAC1_DES 60
|
|
BEGIN
|
|
PROMPT 12 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC1_FROM 24
|
|
BEGIN
|
|
PROMPT 12 4 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC1
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC1
|
|
INPUT CODTAB[2,25] F_GIAC1_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC1_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC1_TO 23
|
|
BEGIN
|
|
PROMPT 47 4 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC1
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC1
|
|
INPUT CODTAB[2,25] F_GIAC1_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC1_TO CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC2 1
|
|
BEGIN
|
|
PROMPT 3 5 "2. "
|
|
FLAGS "DP"
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC2
|
|
OUTPUT F_GIAC2_DES S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_GIAC2_DES 60
|
|
BEGIN
|
|
PROMPT 12 5 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC2_FROM 23
|
|
BEGIN
|
|
PROMPT 12 6 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC2
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC2
|
|
INPUT CODTAB[2,25] F_GIAC2_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC2_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC2_TO 23
|
|
BEGIN
|
|
PROMPT 47 6 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC2
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC2
|
|
INPUT CODTAB[2,25] F_GIAC2_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC2_TO CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC3 1
|
|
BEGIN
|
|
PROMPT 3 7 "3. "
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC3
|
|
OUTPUT F_GIAC3_DES S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DP"
|
|
END
|
|
|
|
STRING F_GIAC3_DES 60
|
|
BEGIN
|
|
PROMPT 12 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC3_FROM 23
|
|
BEGIN
|
|
PROMPT 12 8 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC3
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC3
|
|
INPUT CODTAB[2,25] F_GIAC3_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC3_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC3_TO 23
|
|
BEGIN
|
|
PROMPT 47 8 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC3
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC3
|
|
INPUT CODTAB[2,25] F_GIAC3_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC3_TO CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC4 1
|
|
BEGIN
|
|
PROMPT 3 9 "4. "
|
|
USE FCG
|
|
INPUT CODTAB[1,1] F_GIAC4
|
|
OUTPUT F_GIAC4_DES S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "DP"
|
|
END
|
|
|
|
STRING F_GIAC4_DES 60
|
|
BEGIN
|
|
PROMPT 12 9 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_GIAC4_FROM 23
|
|
BEGIN
|
|
PROMPT 12 10 "Da "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC4
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC4
|
|
INPUT CODTAB[2,25] F_GIAC4_FROM
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC4_FROM CODTAB[2,25]
|
|
CHECKTYPE SEARCH
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
STRING F_GIAC4_TO 23
|
|
BEGIN
|
|
PROMPT 47 10 "A "
|
|
FLAGS "D"
|
|
KEY 1
|
|
USE GCG SELECT CODTAB[1,1]=#F_GIAC4
|
|
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
|
INPUT CODTAB[1,1] F_GIAC4
|
|
INPUT CODTAB[2,25] F_GIAC4_TO
|
|
DISPLAY "N.Liv." CODTAB[1,1]
|
|
DISPLAY "Livello@20 " 500@->S0
|
|
DISPLAY "Codice@23" CODTAB[2,25]
|
|
DISPLAY "Descrizione@50 " GCG->S0
|
|
OUTPUT F_GIAC4_TO CODTAB[2,25]
|
|
GROUP GR_GIAC
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|