campo-sirio/or/or1400a.uml

#include "or1400a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -15 -11 "~Elabora"
  PICTURE TOOL_ELABORA
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -25 -11 "~Stampa"
  PICTURE TOOL_PRINT
END

BUTTON DLG_PRINTDOC 10 2
BEGIN
  PROMPT -35 -11 "~Stampa Doc."
  PICTURE TOOL_EDIT
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -45 -11 "E~limina"
  PICTURE TOOL_DELREC
END

BUTTON DLG_NULL 10 2
BEGIN
  PROMPT -57 -11 "Stampa ~Inv."
  MESSAGE RUN,MG4,-1
END

BUTTON DLG_ELABORA 10 2
BEGIN
  PROMPT -67 -11 "~Carichi"
  MESSAGE K_ENTER
END

#include <helpbar.h>

ENDPAGE

PAGE "Gestione Documenti" 0 2 0 0 

DATE F_DATADOC
BEGIN
  PROMPT 1 1 "Data documento "
	FLAGS "A"
END

SPREADSHEET F_ARTICLES
BEGIN
	PROMPT 1 3 "Articoli"
	ITEM "Codice\nArticolo@20"
	ITEM "Descrizione@50"
	ITEM "UM"
	ITEM "Quantità@15"
	ITEM "Data\nConsegna@10"
	ITEM "Codice\nFornitore"
	ITEM "Ragione sociale@50"
	ITEM "Commessa@20"
	ITEM "Fase@10"
	ITEM "Codice\nAggiuntivo 1@20"
	ITEM "Codice\nAggiuntivo 2@20"
	ITEM "Lead\ntime@5"
	ITEM "Lotto minimo\ndi riordino@10"
	ITEM "Descrizione aggiuntiva@50"
	ITEM "Giacenza@15"
	ITEM "Pezzi per\nconfezione@15"
	ITEM "Disponibilità@15"
	ITEM "Campo Aggiuntivo 1@15"
	ITEM "Campo Aggiuntivo 2@15"
	ITEM "Campo Aggiuntivo 3@15"
	ITEM "Campo Aggiuntivo 4@15"
	ITEM "Campo Aggiuntivo 5@15"
	ITEM "Campo Aggiuntivo 6@15"
	ITEM "Campo Aggiuntivo 7@15"
	ITEM "Campo Aggiuntivo 8@15"
	ITEM "Campo Aggiuntivo 9@15"
	ITEM "Campo Aggiuntivo 10@15"
END

ENDPAGE

PAGE "Stato Ordini" 0 0 0 -3

STRING F_DASTATO 1
BEGIN
  PROMPT 1 1 "Dallo stato "
  USE %STD 
  INPUT CODTAB F_DASTATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DASTATO CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_DASTATO
END

STRING F_ASTATO 1
BEGIN
  PROMPT 21 1 "Allo stato "
  COPY USE F_DASTATO
  INPUT CODTAB F_ASTATO
  COPY DISPLAY F_DASTATO
  OUTPUT F_ASTATO CODTAB
  CHECKTYPE NORMAL
  FIELD OR14_ASTATO
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 51 1 "Anno "
  CHECKTYPE REQUIRED
  FIELD OR14_ANNO
END

DATE F_DATADOCCAR
BEGIN
  PROMPT 65 1 "Data doc. "
  FLAGS "A"
END

SPREADSHEET F_ORDERS
BEGIN
	PROMPT 1 2 "Ordini"
	ITEM "Data\nOrdine@10"
	ITEM "Numero\nOrdine"
	ITEM "Riga\nOrdine"
	ITEM "Stato\nOrdine"
	ITEM "Codice\nArticolo@20"
	ITEM "Descrizione@50"
	ITEM "UM"
	ITEM "Quantità@15"
	ITEM "Qta evasa@15"
	ITEM "Residuo@15"
	ITEM "DaEvadere"
	ITEM "Qta da evadere@15"
	ITEM "Data di\nconsegna@10"
	ITEM "Fornitore"
	ITEM "Ragione sociale@50"
	ITEM "Commessa@20"
	ITEM "Fase@10"
	ITEM "Descrizione aggiuntiva@50"
	ITEM "Pezzi\nper conf."
	ITEM "Taglie@10"
	FLAGS "D"
END

ENDPAGE

PAGE "Note" 0 0 0 -3

MEMO F_NOTE 70 -1
BEGIN
  PROMPT 1 1 "Note "
  FLAG "U"
END

ENDPAGE

PAGE "Filtri" 0 0 0 -3

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bGruppo merceologico"
END

STRING F_GRMERC 3
BEGIN
    PROMPT 2 2 "Gruppo merceologico      "
    FLAG "U"
    USE GMC KEY 1 SELECT CODTAB[4,5]==""
    INPUT CODTAB F_GRMERC
    DISPLAY "Codice" CODTAB[1,3]
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC CODTAB[1,3]
    OUTPUT F_DGRMERC S0
    CHECKTYPE SEARCH
    FIELD OR14_GRM
END

STRING F_DGRMERC 50 35
BEGIN
    PROMPT 35 2 ""
    USE GMC KEY 2 SELECT CODTAB[4,5]==""
    INPUT S0 F_DGRMERC
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC CODTAB[1,3]
    OUTPUT F_DGRMERC S0
    CHECKTYPE SEARCH
END

STRING F_SGRMERC 2
BEGIN
    PROMPT 2 3 "Sottogruppo merceologico "
    FLAG "U"
    USE GMC
    INPUT CODTAB[1,3] F_GRMERC
    INPUT CODTAB[4,5] F_SGRMERC
    DISPLAY "Codice" CODTAB
    DISPLAY "Descrizione@50" S0
    OUTPUT F_GRMERC CODTAB[1,3]
    OUTPUT F_SGRMERC CODTAB[4,5]
    OUTPUT F_DSGRMERC S0
    CHECKTYPE NORMAL
		FIELD OR14_SGR
END

STRING F_DSGRMERC 50 35
BEGIN
    PROMPT 35 3 ""
    USE GMC KEY 2 SELECT CODTAB[4,5] != ""
    INPUT S0 F_DSGRMERC
    DISPLAY "Descrizione@50" S0
    DISPLAY "Codice" CODTAB
    COPY OUTPUT F_SGRMERC
    CHECKTYPE NORMAL
END

BOOLEAN F_SOTTOSCORTA
BEGIN
		PROMPT 2 4 "Sottoscorta"
		FIELD OR14_SSC
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 6 "@bCentro di costo  / Commessa"
END

STRING F_CDCT 20
BEGIN
  PROMPT 2 7 "CDC/Commessa   "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_CDCT
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_CDCT CODTAB
  FIELD OR14_CDCT
	CHECKTYPE NORMAL
END

STRING F_FSCT 10
BEGIN
  PROMPT 50 7 "Fase   "
  FLAGS "UZ"
  USE FSC
  INPUT CODTAB F_FSCT
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_FSCT CODTAB
	FIELD OR14_FSCT
  CHECKTYPE NORMAL
END


GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 9 "@bArticolo"
END

STRING F_SCODART 20
BEGIN
  PROMPT 2 10 "Codice                   "
END

STRING F_SDESART 50
BEGIN
  PROMPT 2 11 "Descrizione              "
END

STRING F_SDESAGG 50
BEGIN
  PROMPT 2 12 "Descrizione aggiuntiva   "
END


GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "@bFornitore"
END


STRING F_SCODFOR 7
BEGIN
  PROMPT 2 15 "Codice                   "
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF  F_SCODFOR
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_SCODFOR CODCF
END

STRING F_SRAGSOC 50
BEGIN
  PROMPT 2 16 "Ragione sociale          "
END

ENDPAGE

PAGE "Parametri" 0 0 0 -3

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 1 "@bTipologia documento ordine"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 2 "Numerazione  "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
	FLAG "UG"
	CHECKTYPE REQUIRED
	FIELD OR14_NUM
END

STRING F_DESNUM 50
BEGIN
  PROMPT 24 2 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM
	CHECKTYPE SEARCH
END

STRING F_TIPODOC 4
BEGIN
  PROMPT 2 3 "Tipo         "
  USE %TIP
  INPUT CODTAB F_TIPODOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC CODTAB
  OUTPUT F_DESTIPODOC S0
  CHECKTYPE REQUIRED
  FLAG "UG"
	FIELD OR14_TIP
END

STRING F_DESTIPODOC 50
BEGIN
  PROMPT 24 3 ""
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC
	CHECKTYPE SEARCH
END


GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 6 "@bMagazzino / Deposito"
END

STRING F_MAG 3
BEGIN
  PROMPT 2 7 "Magazzino    "
  FLAGS "UG"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  CHECKTYPE NORMAL
	FIELD OR14_MAG
END

STRING F_DESMAG 50
BEGIN
  PROMPT 24 7 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAG
  DISPLAY "Denominazione magazzino@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  OUTPUT F_MAG CODTAB[1,3]
	CHECKTYPE SEARCH
END

STRING F_DEP 2
BEGIN
  PROMPT 2 8 "Deposito     "
  FLAGS "U"
  USE MAG SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
  INPUT CODTAB[1,3] F_MAG
  INPUT CODTAB[4,5] F_DEP
  DISPLAY "Codice " CODTAB
  DISPLAY "Denominazione dep.@50 " S0
  OUTPUT F_MAG CODTAB[1,3]
  OUTPUT F_DEP CODTAB[4,5]
  CHECKTYPE SEARCH
	FIELD OR14_DEP
END

STRING F_DESDEP 50
BEGIN
  PROMPT 24 8 ""
  USE MAG KEY 2 SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
  INPUT S0 F_DESDEP
  COPY DISPLAY F_DESMAG
  OUTPUT F_DEP CODTAB[4,5]
	CHECKTYPE SEARCH
END

STRING F_MAGC 3
BEGIN
  PROMPT 2 9 "Magazzino    "
  FLAGS "UG"
  USE MAG SELECT CODTAB[4,5]==""
  INPUT CODTAB F_MAGC
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_MAGC CODTAB[1,3]
  CHECKTYPE NORMAL
	FIELD OR14_MAGC
END

STRING F_DESMAGC 50
BEGIN
  PROMPT 24 9 ""
  USE MAG KEY 2 SELECT CODTAB[4,5]==""
  INPUT S0 F_DESMAGC
  DISPLAY "Denominazione magazzino@50" S0
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  OUTPUT F_MAGC CODTAB[1,3]
	CHECKTYPE SEARCH
END

STRING F_DEPC 2
BEGIN
  PROMPT 2 10 "Deposito     "
  FLAGS "U"
  USE MAG SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
  INPUT CODTAB[1,3] F_MAGC
  INPUT CODTAB[4,5] F_DEPC
  DISPLAY "Codice " CODTAB
  DISPLAY "Denominazione dep.@50 " S0
  OUTPUT F_MAGC CODTAB[1,3]
  OUTPUT F_DEPC CODTAB[4,5]
  CHECKTYPE SEARCH
	FIELD OR14_DEPC
END

STRING F_DESDEPC 50
BEGIN
  PROMPT 24 10 ""
  USE MAG KEY 2 SELECT (CODTAB[1,3]==#F_MAG)&&(CODTAB[4,5]!="")
  INPUT S0 F_DESDEPC
  COPY DISPLAY F_DESMAG
  OUTPUT F_DEPC CODTAB[4,5]
	CHECKTYPE SEARCH
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 14 "@bValorizzazione"
END

LIST F_PREZZO 15
BEGIN
	PROMPT 2 15 "Prezzo       "
	ITEM "U|Ultimo Costo"
	ITEM "S|Costo Standard"
	FIELD OR14_TPR
END

ENDPAGE
ENDMASK

TOOLBAR "" 0 -3 0 3

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

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

ENDPAGE

PAGE "Righe ordine" -1 -1 80 20

STRING F_CODART 20
BEGIN
  PROMPT 1 2 "Codice            "
	FLAGS "D"
END

STRING F_DESCR 50 35
BEGIN
  PROMPT 42 2 ""
	FLAGS "D"
END

STRING F_UM 2
BEGIN
  PROMPT 2 4 "Unità di misura  "
  FLAGS "UG"
  USE LF_UMART KEY 2 SELECT CODART==#F_CODART
	JOIN %UMS INTO CODTAB==UM
  INPUT CODART F_CODART SELECT
  INPUT UM F_UM
  DISPLAY "U.M.@10" UM
  DISPLAY "Descrizione@50" %UMS->S0
  DISPLAY "F.C.@10" FC
  OUTPUT F_UM UM 
  CHECKTYPE REQUIRED  
END

NUMBER F_QTA 13 5
BEGIN
	PROMPT 25 4 "Quantità "
END

DATA F_DATACONS
BEGIN
	PROMPT 48 4 "Data di consegna "
	WARNING "Indicare la data di consegna"
	VALIDATE REQIF_FUNC 1 F_QTA
END

NUMBER F_FORNITORE 6
BEGIN
  PROMPT 2 6 "Codice fornitore "
  FIELD CODCF
  USE LF_CLIFO
  INPUT TIPOCF "F"
  INPUT CODCF  F_FORNITORE
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_FORNITORE CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
  ADD RUN CG0 -1
END

STRING F_RAGSOC 50 35
BEGIN
  PROMPT 42 6 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "F"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  COPY OUTPUT F_FORNITORE
  CHECKTYPE SEARCH
  ADD RUN CG0 -1
END
             
STRING F_CDC 20
BEGIN
  PROMPT 2 8 "CDC/Commessa     "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_CDC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_CDC CODTAB
  CHECKTYPE NORMAL
END

STRING F_FSC 10
BEGIN
  PROMPT 42 8 "Fase   "
  FLAGS "UZ"
  USE FSC
  INPUT CODTAB F_FSC
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@70" S0
  OUTPUT F_FSC CODTAB
  CHECKTYPE NORMAL
END

STRING F_CODAGG1 20
BEGIN
  PROMPT 2 9 "Codice agg. 1    "
END

STRING F_CODAGG2 20
BEGIN
  PROMPT 42 9 "Codice agg. 2   "
END

NUMBER F_LEADTIME 5
BEGIN
  PROMPT 2 11 "Lead time        "
	FLAGS "D"
END

NUMBER F_LOTTOMIN 10 3
BEGIN
  PROMPT 42 11 "Lotto  "
	FLAGS "D"
END

MEMO F_DESCRAGG 50 4
BEGIN
  PROMPT 2 12 "Descr.aggiuntiva"
	FLAGS "D"
END

NUMBER F_GIACENZA 15 5
BEGIN
  PROMPT 2 16 "Giacenza"
	FLAGS "D"
END

NUMBER F_PPCONF 15
BEGIN
  PROMPT 42 16 "Pezzi per conf. "
	FLAGS "D"
END

NUMBER F_DISPON 15 5
BEGIN
  PROMPT 2 17 "Disponibilità"
	FLAGS "D"
END

ENDPAGE

PAGE "Campi Utente" -1 -1 80 20

STRING F_USER1 20
BEGIN
  PROMPT 2 2 "Campo utente  1 "
	FLAGS "D"
END

STRING F_USER2 20
BEGIN
  PROMPT 2 4 "Campo utente  2 "
	FLAGS "D"
END

STRING F_USER3 20
BEGIN
  PROMPT 2 6 "Campo utente  3 "
	FLAGS "D"
END

STRING F_USER4 20
BEGIN
  PROMPT 2 8 "Campo utente  4 "
	FLAGS "D"
END

STRING F_USER5 20
BEGIN
  PROMPT 2 10 "Campo utente  5 "
	FLAGS "D"
END

STRING F_USER6 20
BEGIN
  PROMPT 2 12 "Campo utente  6 "
	FLAGS "D"
END

STRING F_USER7 20
BEGIN
  PROMPT 2 14 "Campo utente  7 "
	FLAGS "D"
END

STRING F_USER8 20
BEGIN
  PROMPT 2 16 "Campo utente  8 "
	FLAGS "D"
END

STRING F_USER9 20
BEGIN
  PROMPT 2 18 "Campo utente  9 "
	FLAGS "D"
END

STRING F_USER10 20
BEGIN
  PROMPT 2 20 "Campo utente 10 "
	FLAGS "D"
END

ENDPAGE

ENDMASK

PAGE "Ordini" -1 -1 80 20

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 0 "@bEstremi del documento"
END

DATE S_DATADOC
BEGIN
  PROMPT 2 1 "Data    "
  FIELD 33.DATADOC
END

NUMBER S_NUMDOC 6
BEGIN
  PROMPT 25 1 "Numero "
  FIELD NDOC
END

NUMBER S_NUMRIGA 4
BEGIN
  PROMPT 43 1 "Riga "
  FIELD NRIGA
END

STRING S_STATODOC 1
BEGIN
  PROMPT 57 1 "Stato "
  FIELD 33.STATO
END

GROUPBOX DLG_NULL 80 6
BEGIN
  PROMPT 1 3 "@bArticolo"
END

STRING S_CODART 20
BEGIN
  PROMPT 2 4 "Codice      "
  FIELD CODART
END

STRING S_DESCART 50
BEGIN
  PROMPT 2 5 "Descrizione "
  FIELD 47.DESCR
END

STRING S_UM 2
BEGIN
  PROMPT 2 6 "Quantità    "
  FLAGS "U"
  FIELD UMQTA
END

NUMBER S_QTA 13 5
BEGIN
	PROMPT 18 6 ""
    FIELD QTA
END

NUMBER S_QTAEVASA 13 5
BEGIN
	PROMPT 34 6 "Evasa "
	FIELD QTAEVASA
	FLAGS "D"
	CHECKTYPE NORMAL
END

NUMBER S_RESIDUO 13 5
BEGIN
	PROMPT 56 6 "Residuo "
	NUM_CALC #S_QTA-#S_QTAEVASA
	FLAGS "D"
	CHECKTYPE NORMAL
END

BOOLEAN S_DAEVADERE
BEGIN
	PROMPT 2 7 "Da evadere"
	MESSAGE TRUE ENABLE,S_QTADAEVADERE | COPY, S_RESIDUO
	MESSAGE	FALSE CLEAR, S_QTADAEVADERE | DISABLE,S_QTADAEVADERE
END

NUMBER S_QTADAEVADERE 13 5
BEGIN
	PROMPT 16 7 "Qta da evadere"
END

DATA S_DATACONS
BEGIN
	PROMPT 47 7 "Data di consegna "
  FIELD DATACONS
END

GROUPBOX DLG_NULL 80 3
BEGIN
  PROMPT 1 9 "@bFornitore"
END

NUMBER S_FORNITORE 6
BEGIN
	PROMPT 2 10 ""
  FIELD 33.CODCF
END

STRING S_RAGSOC 50
BEGIN
  PROMPT 14 10 ""
  FIELD 20.RAGSOC
END
             
GROUPBOX DLG_NULL 80 4
BEGIN
  PROMPT 1 12 "@bCentro di costo/Commessa"
END

STRING S_CDC 20
BEGIN
  PROMPT 2 13 "Codice      "
  FLAGS "UZ"
  FIELD CODCMS
END

STRING S_FSC 10
BEGIN
  PROMPT 2 14 "Fase        "
  FLAGS "UZ"
  FIELD FASCMS
END

STRING S_DESCRAGG 50
BEGIN
  PROMPT 2 16 "Descr. agg. "
  FIELD 47.DESCRAGG[1,50]
END

NUMBER S_PPCONF 15
BEGIN
  PROMPT 2 17 "P.per conf. "
  FIELD 47.PPCONF
END

STRING S_TAGLIE 20
BEGIN
  PROMPT 42 17 "Taglie "
  FIELD 47.USER2
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK