#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