84f9a262dd
Files correlati : Ricompilazione Demo : [ ] Commento :maschere di stampa printbarizzate! git-svn-id: svn://10.65.10.50/trunk@17741 c028cbd2-c16b-5b4b-a496-9718f37d4682
421 lines
7.6 KiB
Plaintext
Executable File
421 lines
7.6 KiB
Plaintext
Executable File
#include "or1200a.h"
|
|
|
|
TOOLBAR "topbar" 0 0 0 2
|
|
#include <printbar.h>
|
|
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
|
|
|