campo-sirio/or/or1100a.uml

#include "or1100a.h"

TOOLBAR "" 0 -3 0 3

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Stampa ordini" -1 -1 78 21

RADIOBUTTON F_TIPO 30
BEGIN
  PROMPT 2 1 "Tipo stampa"
  ITEM "0|Numero/Data"
  MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_AGE@|SHOW,GR_CLIFO@|ENABLE,F_DATA_O_NUM|ENABLE,F_DETTAGLIO|" ",F_DETTAGLIO|CLEAR,GR_DETAIL@|"X",F_OPZ_VALORE|CLEAR,GR_DETAILART@
  ITEM "1|Cliente/Fornitore"
  MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_AGE@|SHOW,GR_CLIFO@|ENABLE,GR_CLIFO@|DISABLE,F_DATA_O_NUM|"D", F_DATA_O_NUM|ENABLE,F_DETTAGLIO|" ",F_DETTAGLIO|CLEAR,GR_DETAIL@|CLEAR,GR_DETAILART@
  ITEM "2|Agente"
  MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_CLIFO@|SHOW,GR_AGE@|ENABLE,GR_AGE@|DISABLE,F_DATA_O_NUM|"D", F_DATA_O_NUM|ENABLE,F_DETTAGLIO|" ",F_DETTAGLIO|CLEAR,GR_DETAIL@|CLEAR,GR_DETAILART@|ENABLE,F_DETAIL_BY_CLI
  ITEM "3|Articolo"
  MESSAGE DISABLE,GR_TUTTI@|HIDE,GR_AGE@|SHOW,GR_CLIFO@|DISABLE,F_DATA_O_NUM|"D", F_DATA_O_NUM|DISABLE,F_DETTAGLIO|"X",F_DETTAGLIO|ENABLE,GR_CLIFO@|ENABLE,GR_ART@|ENABLE,GR_DETAILART@|ENABLE,GR_DETAIL@|DISABLE,F_DETAIL_BY_DOC
END

GROUPBOX DLG_NULL 40 6
BEGIN
  PROMPT 35 1 "Ordine"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 36 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 65 2 "Anno "
//  CHECKTYPE REQUIRED
END

LIST F_PROVV 12
BEGIN
  PROMPT 36 3 "Tipo numerazione        "
  ITEM "D|Definitiva"
  ITEM "P|Provvisoria"
END

LISTBOX F_DATA_O_NUM 20
BEGIN
 PROMPT 36 4 "Selezione su    "
 ITEM "N|Numero documento"
 MESSAGE HIDE,GR_DATA@|SHOW,GR_NDOC@|REQUIRED,F_ANNO
 ITEM "D|Data documento" 
 MESSAGE SHOW,GR_DATA@|HIDE,GR_NDOC@|NORMAL,F_ANNO
END

NUMBER F_NDOCFROM 7
BEGIN
  PROMPT 36 5  "Dal "
  USE 33
  JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
  JOIN 13 TO 20 INTO COM=COMCF
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOCFROM
  DISPLAY "Data@10" DATADOC
  DISPLAY "Numero@7" NDOC
  DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
  DISPLAY "Comune@20" 13->DENCOM
  OUTPUT F_NDOCFROM NDOC
  CHECKTYPE NORMAL
  GROUP GR_NDOC
END

NUMBER F_NDOCTO 7
BEGIN
  PROMPT 62 5  "Al "
  USE 33
  JOIN 20 INTO CODCF=CODCF TIPOCF=TIPOCF
  JOIN 13 TO 20 INTO COM=COMCF
  INPUT PROVV F_PROVV SELECT
  INPUT ANNO F_ANNO SELECT
  INPUT CODNUM F_CODNUM SELECT
  INPUT NDOC F_NDOCTO
  DISPLAY "Data@10" DATADOC
  DISPLAY "Numero@7" NDOC
  DISPLAY "Cliente/Fornitore@40" 20->RAGSOC
  DISPLAY "Comune@20" 13->DENCOM
  OUTPUT F_NDOCTO NDOC
  GROUP GR_NDOC
  CHECKTYPE NORMAL
END

DATE F_EMISFROM
BEGIN
  PROMPT 36 5 "Dal "
  GROUP GR_DATA
END

DATE F_EMISTO
BEGIN
  PROMPT 59 5 "Al "
  GROUP GR_DATA
END

GROUPBOX DLG_NULL 30 4
BEGIN
  PROMPT 2 7 "Cliente"
  GROUP GR_CLIFO
END

LIST F_TIPOCF 1 11
BEGIN
  PROMPT 3 8 "Tipo C/F       "
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
  GROUP GR_TUTTI GR_CLIFO
END

NUMBER F_CFFROM 6
BEGIN
  PROMPT 3 9 "Dal "
  USE LF_CLIFO KEY 1
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CFFROM
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CFFROM CODCF
  CHECKTYPE NORMAL
  GROUP GR_TUTTI GR_CLIFO
END

NUMBER F_CFTO 6
BEGIN
  PROMPT 19 9 "Al  "
  USE LF_CLIFO KEY 1
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CFTO
  DISPLAY "Codice@6R" CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CFTO CODCF
  CHECKTYPE NORMAL
  GROUP GR_TUTTI GR_CLIFO
END

GROUPBOX DLG_NULL 30 4
BEGIN
  PROMPT 2 7 "Agente"
  GROUP GR_TUTTI GR_AGE
END

STRING F_AGEFROM 6
BEGIN
  PROMPT 3 8 "Dal                 "
  FLAGS "U"
  USE LF_AGENTI
  INPUT CODAGE F_AGEFROM
  DISPLAY "Codice" CODAGE
  DISPLAY "Descr@50" RAGSOC
  OUTPUT F_AGEFROM CODAGE
  GROUP GR_TUTTI GR_AGE
END

STRING F_AGETO 6
BEGIN
  PROMPT 3 9 "Al                  "
  FLAGS "U"
  COPY USE F_AGEFROM
  INPUT CODAGE F_AGETO
  COPY DISPLAY F_AGEFROM
  OUTPUT F_AGETO CODAGE
  GROUP GR_TUTTI GR_AGE
END

GROUPBOX DLG_NULL 40 4
BEGIN
  PROMPT 35 7 "Data consegna"
END

DATE F_CONSFROM
BEGIN
  PROMPT 36 8 "Dal                        "
END

DATE F_CONSTO
BEGIN
  PROMPT 36 9 "Al                         "
END


BOOLEAN F_DETTAGLIO
BEGIN
  PROMPT 3 11 "Dettaglio righe"
END

BOOLEAN F_DETAIL_BY_CLI
BEGIN
  PROMPT 37 11 "Ordina per cliente"
  FLAGS "D"
  GROUP GR_TUTTI
END

LIST F_STATOORD 6
BEGIN
  PROMPT 3 12 "Tipo ordini         "
  ITEM "T|Tutti"
  ITEM "E|Evasi"
  ITEM "A|Aperti"
END

BOOLEAN F_DETAIL_BY_DOC
BEGIN
  PROMPT 37 12 "Dettaglio per documento"
  FLAGS "D"
  MESSAGE TRUE DISABLE,GR_DETAILART@
  MESSAGE FALSE ENABLE,GR_DETAILART@
  GROUP GR_DETAIL
END

LIST F_STATORORD 6
BEGIN
  PROMPT 3 13 "Tipo righe ordini   "
  FLAGS "D"
  GROUP GR_DETAIL
  ITEM "T|Tutte"
   MESSAGE DISABLE, F_FORCE_EVASE
  ITEM "E|Evase"
   MESSAGE ENABLE, F_FORCE_EVASE
  ITEM "A|Aperte"
   MESSAGE DISABLE, F_FORCE_EVASE
END

NUMBER F_DETAIL_LEV 1
BEGIN
  PROMPT 37 13 "Livello dettaglio      "
  FLAGS "D"
  GROUP GR_DETAILART
  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_FORCE_EVASE
BEGIN
  PROMPT 3 14 "Stampa righe evase con residuo"
  FLAGS "D" 
END

LIST F_RAGG_PER_ART 12
BEGIN
  PROMPT 37 14 "Periodo raggruppamento "
  ITEM "0|Giornaliero"
  ITEM "1|1 mese"
  ITEM "2|2 mesi"
  ITEM "3|3 mesi"
  ITEM "4|4 mesi"
  FLAGS "D"
  GROUP GR_DETAILART
END

GROUPBOX DLG_NULL 30 4
BEGIN
  PROMPT 2 15 "Articolo"
END

STRING F_ARTFROM 20
BEGIN
  PROMPT 3 16 "Dal   "
  FLAGS "DU"
  USE LF_ANAMAG
  INPUT CODART F_ARTFROM
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ARTFROM CODART
  ADD RUN ve2 -3
  GROUP GR_DETAIL GR_ART
END

STRING F_ARTTO 20
BEGIN
  PROMPT 3 17 "Al    "
  FLAGS "DU"
  USE LF_ANAMAG
  INPUT CODART F_ARTTO
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_ARTTO CODART
  ADD RUN ve2 -3 
  GROUP GR_DETAIL GR_ART
END

BOOLEAN F_DETAIL_MAG
BEGIN
  PROMPT 37 16 "Dettaglia magazzini"
  FLAGS "D"
  GROUP GR_DETAILART
END

BOOLEAN F_DETAIL_DEP
BEGIN
  PROMPT 37 17 "Dettaglia depositi"
  FLAGS "D"
  GROUP GR_DETAILART
END

BOOLEAN F_OPZ_VALORE
BEGIN
  PROMPT 3 19 "Visualizza colonne valori"
END

BOOLEAN F_OPZ_PREZZO
BEGIN
  PROMPT 3 20 "Visualizza colonna prezzo"
  GROUP GR_DETAIL GR_ART
END

BOOLEAN F_OPZ_RESIDUO
BEGIN
  PROMPT 37 19 "Visualizza colonna residuo"
  GROUP GR_DETAIL GR_ART
END

BOOLEAN F_OPZ_GIACENZA
BEGIN
  PROMPT 37 20 "Visualizza colonna giacenza"
  GROUP GR_DETAIL GR_ART
END

ENDPAGE


PAGE "Avanzate" -1 -1 78 20

GROUPBOX DLG_NULL 74 10
BEGIN
  PROMPT 1 1 "Livelli di giacenza"
END

STRING F_GIAC1 1
BEGIN
  PROMPT 3 2 "1. "
  FLAGS "D"
  USE FCG
  INPUT CODTAB[1,1] F_GIAC1
  OUTPUT F_GIAC1_DES S0
  CHECKTYPE NORMAL
END

STRING F_GIAC1_DES 60
BEGIN
  PROMPT 12 2 ""
  FLAGS "D"
END

STRING F_GIAC1_FROM 24
BEGIN
  PROMPT 12 3 "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_DETAIL GR_GIAC
END

STRING F_GIAC1_TO 23
BEGIN
  PROMPT 47 3 "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_DETAIL GR_GIAC
END

STRING F_GIAC2 1
BEGIN
  PROMPT 3 4 "2. "
  FLAGS "D"
  USE FCG
  INPUT CODTAB[1,1] F_GIAC2
  OUTPUT F_GIAC2_DES S0
  CHECKTYPE NORMAL
END

STRING F_GIAC2_DES 60
BEGIN
  PROMPT 12 4 ""
  FLAGS "D"
END

STRING F_GIAC2_FROM 23
BEGIN
  PROMPT 12 5 "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_DETAIL GR_GIAC
END

STRING F_GIAC2_TO 23
BEGIN
  PROMPT 47 5 "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_DETAIL GR_GIAC
END

STRING F_GIAC3 1
BEGIN
  PROMPT 3 6 "3. "
  USE FCG
  INPUT CODTAB[1,1] F_GIAC3
  OUTPUT F_GIAC3_DES S0
  CHECKTYPE NORMAL
  FLAGS "D"
END

STRING F_GIAC3_DES 60
BEGIN
  PROMPT 12 6 ""
  FLAGS "D"
END

STRING F_GIAC3_FROM 23
BEGIN
  PROMPT 12 7 "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_DETAIL GR_GIAC
END

STRING F_GIAC3_TO 23
BEGIN
  PROMPT 47 7 "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_DETAIL GR_GIAC
END

STRING F_GIAC4 1
BEGIN
  PROMPT 3 8 "4. "
  USE FCG
  INPUT CODTAB[1,1] F_GIAC4
  OUTPUT F_GIAC4_DES S0
  CHECKTYPE NORMAL
  FLAGS "D"
END

STRING F_GIAC4_DES 60
BEGIN
  PROMPT 12 8 ""
  FLAGS "D"
END

STRING F_GIAC4_FROM 23
BEGIN
  PROMPT 12 9 "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_DETAIL GR_GIAC
END

STRING F_GIAC4_TO 23
BEGIN
  PROMPT 47 9 "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_DETAIL GR_GIAC
  GROUP GR_DETAIL
END

BOOLEAN F_PRINTSPESE
BEGIN
  PROMPT 2 12 "Includi le righe spese"
  GROUP GR_PRINT
END

BOOLEAN F_PRINTPREST
BEGIN
  PROMPT 2 13 "Includi le righe prestazioni"
  GROUP GR_PRINT
END

BOOLEAN F_PRINTDESCR
BEGIN
  PROMPT 2 14 "Includi le righe descrizione"
  GROUP GR_PRINT
END

BOOLEAN F_PRINTSCONTI
BEGIN
  PROMPT 36 12 "Includi le righe sconti"
  GROUP GR_PRINT
END

BOOLEAN F_PRINTOMAGGI
BEGIN
  PROMPT 36 13 "Includi le righe omaggio"
  GROUP GR_PRINT
END

GROUPBOX DLG_NULL 32 4
BEGIN
  PROMPT 1 16 "Magazzino"
  GROUP GR_PRINT
END

STRING F_MAGFROM 3
BEGIN
  PROMPT 3 17 "Dal                    "
  FLAGS "DU"
  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
  GROUP  GR_DETAIL GR_MAG
END

STRING F_MAGTO 3
BEGIN
  PROMPT 3 18 "Al                     "
  FLAGS "DU"
  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
  GROUP  GR_DETAIL GR_MAG
END

GROUPBOX DLG_NULL 40 4
BEGIN
  PROMPT 35 16 "Deposito"
END

STRING F_DEPFROM 2
BEGIN
  PROMPT 36 17 "Dal                             "
  FLAGS "DU"
  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_DETAIL GR_MAG
END

STRING F_DEPTO 2
BEGIN
  PROMPT 36 18 "Al                              "
  FLAGS "DU"
  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_DETAIL GR_MAG
END

ENDPAGE

ENDMASK