#include "mg1100.h"

TOOLBAR "" 0 20 60 2
#include <toolbar.h>
ENDPAGE

PAGE "Testata" 11 60 14

GROUPBOX DLG_NULL 75 5
BEGIN
 PROMPT 1 1 ""
 FLAGS "R"
END

NUMBER F_NUMREG  7
BEGIN 
//	FLAGS "D"
	FIELD NUMREG
  PROMPT 2 	2 "Numero di registrazione "
	KEY 1 3 4
	USE LF_MOVMAG 
	INPUT NUMREG F_NUMREG
	DISPLAY "N.reg." NUMREG
	DISPLAY "Anno" ANNOES
	DISPLAY "Data reg." DATAREG
	DISPLAY "Data comp." DATACOMP
	OUTPUT F_NUMREG NUMREG
	OUTPUT F_DATAREG DATAREG 
	OUTPUT F_DATACOMP DATACOMP
	CHECKTYPE REQUIRED
END

NUMBER F_ANNOES 4
BEGIN 
	FLAGS "D"
  PROMPT 2 3 "Esercizio di competenza "
	FIELD ANNOES
END

DATE F_DATAREG  
BEGIN 
  PROMPT 38 2 "Data di registrazione "
	FLAGS "A"
	FIELD DATAREG
	KEY 3
	USE LF_MOVMAG KEY 3
	INPUT NUMREG F_NUMREG
	INPUT DATAREG 	F_DATAREG
	DISPLAY "N.reg." NUMREG
	DISPLAY "Anno" ANNOES
	DISPLAY "Data reg." DATAREG
	DISPLAY "Data comp." DATACOMP
	OUTPUT F_NUMREG NUMREG
	OUTPUT F_DATAREG DATAREG 
	OUTPUT F_DATACOMP DATACOMP
	CHECKTYPE REQUIRED
END

DATE F_DATACOMP
BEGIN 
  PROMPT 38 3 "Data di competenza    "
	FLAGS "A"	
	FIELD DATACOMP
	KEY 4
	USE LF_MOVMAG KEY 4
	INPUT NUMREG F_NUMREG
	INPUT DATACOMP  F_DATACOMP
	COPY DISPLAY F_DATAREG
	COPY OUTPUT F_DATAREG
	CHECKTYPE REQUIRED
END

STRING F_DESCR 50 40
BEGIN 
  PROMPT 2 4 "Descrizione             "
	FIELD DESCR
END

LISTBOX F_RIFADOC  30
BEGIN 
  PROMPT 2 5 "Movimento "
	FLAG "HG"
	ITEM "N|non riferito a documento"
	MESSAGE ENABLE,G_DEFMOV@
	ITEM "S|riferito a documento"
	MESSAGE DISABLE,G_DEFMOV@
END

LISTBOX F_NUMPROVV  1 20
BEGIN
  PROMPT 0 0 ""
	FLAGS "HG"
	ITEM "D|Definitiva"
END

STRING F_NUMDOC  3
BEGIN 
	FLAGS "D"
  PROMPT 2 6 "Documento: numero "
	FIELD NUMDOC
	USE LF_DOC 
	INPUT PROVV F_NUMPROVV SELECT 
	INPUT NDOC F_NUMDOC 
	INPUT ANNO F_ANNOES
	DISPLAY "NDoc" NDOC
	DISPLAY "Tipo" TIPODOC
	DISPLAY "Anno" ANNO
	OUPUT F_NUMDOC NDOC
	OUPUT F_ANNODOC ANNO
	OUPUT F_TIPOCF TIPOCF
	OUPUT F_CODCLI CODCF
	OUPUT F_CODFOR CODCF
	OUPUT F_CODCAUS CAUSMAG1
	CHECKTYPE NORMAL

	MESSAGE "S",F_RIFADOC
	MESSAGE EMPTY "N",F_RIFADOC
END

NUMBER F_ANNODOC  4
BEGIN 
	FLAGS "D"
  PROMPT 30 6 "anno "
	FIELD ANNODOC  
	USE LF_DOC SELECT NDOC==F_NUMDOC
	INPUT ANNODOC F_ANNODOC
	DISPLAY "Anno" ANNODOC
	DISPLAY "NDoc" NDOC
	DISPLAY "Tipo" TIPODOC
	COPY OUTPUT F_NUMDOC
//	CHECKTYPE NORMAL
END

STRING F_CODCAUS 5
BEGIN 
  PROMPT 2 	8 "Codice causale   "
	FIELD CODCAUS
  USE CAU
  FLAGS "U"
  INPUT CODTAB  F_CODCAUS
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@50 " S0
  OUTPUT F_CODCAUS CODTAB
  OUTPUT F_DESCAU S0
  CHECKTYPE REQUIRED

	GROUP G_DEFMOV
END

STRING F_DESCAU	50 30
BEGIN 
  PROMPT 30 8 ""
  USE CAU KEY 2
  INPUT S0 F_DESCAU
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice " CODTAB
	COPY OUTPUT1  F_CODCAUS 

	GROUP G_DEFMOV
END

LISTBOX F_TIPOCF	10
BEGIN 
  PROMPT 2 	9 "Relativo a       "
	FIELD TIPOCF
	ITEM "C|Cliente"
	MESSAGE SHOW,F_CODCLI|HIDE,F_CODFOR//|CHECK,F_CODCF//|RESET,F_CODFOR
	ITEM "F|Fornitore"
	MESSAGE HIDE,F_CODCLI|SHOW,F_CODFOR//|CHECK,F_CODCF//|RESET,F_CODCLI

	GROUP G_DEFMOV
END

// campi per READ/WRITE su archivio (e ricerca utente)
NUMBER F_CODCLI	6
BEGIN 
  PROMPT 2 10 "Codice cliente   "
	FIELD CODCF
    USE LF_CLIFO
    INPUT TIPOCF  F_TIPOCF SELECT
    INPUT CODCF   F_CODCLI
    DISPLAY "Codice " CODCF
    DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT F_CODCF CODCF
	MESSAGE EMPTY RESET,F_CODCF
//	OUTPUT F_CODCLI CODCF
//	MESSAGE COPY,F_CODCF|CHECK,F_CODCF
	CHECKTYPE NORMAL
	GROUP G_DEFMOV
END

// campi per READ/WRITE su archivio (e ricerca utente)
NUMBER  F_CODFOR	6
BEGIN 
  PROMPT 2 10 "Codice fornitore "
	FIELD CODCF
  USE LF_CLIFO
    INPUT TIPOCF  F_TIPOCF SELECT
    INPUT CODCF   F_CODFOR
    DISPLAY "Codice " CODCF
    DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT F_CODCF CODCF
	MESSAGE EMPTY RESET,F_CODCF
//	OUTPUT F_CODFOR CODCF
//	MESSAGE COPY,F_CODCF|CHECK,F_CODCF
	CHECKTYPE NORMAL
	GROUP G_DEFMOV
END

// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
// agisce anche quando l'utente non entra in gioco (settaggio da LISTINO...)
NUMBER F_CODCF	6
BEGIN 
	FLAGS "HG"
  PROMPT 0 1 ""
  USE LF_CLIFO
  INPUT TIPOCF  F_TIPOCF SELECT
  INPUT CODCF   F_CODCF
	OUTPUT F_RAGSOC RAGSOC
	OUTPUT F_CODCF CODCF
	CHECKTYPE NORMAL
	MESSAGE COPY,F_CODCLI|COPY,F_CODFOR
//	MESSAGE EMPTY RESET,F_RAGSOC
END

STRING F_RAGSOC 50 40
BEGIN
  PROMPT 30 10 ""
    USE LF_CLIFO KEY 2
    INPUT TIPOCF  F_TIPOCF SELECT
    INPUT RAGSOC   F_RAGSOC
    DISPLAY "Ragione sociale@50" RAGSOC
    DISPLAY "Codice " CODCF
		OUTPUT F_CODCF CODCF
	GROUP G_DEFMOV
END

LISTBOX F_TIPOCONDV	1 12
BEGIN 
  PROMPT 2 	12 "Condizione di vendita "
	ITEM " |Nessuna"
	MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
	MESSAGE ENABLE,F_TIPOCF|ENABLE,F_CODCLI|ENABLE,F_CODFOR|ENABLE,F_RAGSOC
	ITEM "L|Listino"
	MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
	MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
	MESSAGE DISABLE,F_TIPOCF|DISABLE,F_CODCLI|DISABLE,F_CODFOR|DISABLE,F_RAGSOC
	ITEM "C|Contratto"
	MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF
	MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
	MESSAGE DISABLE,F_TIPOCF|DISABLE,F_CODCLI|DISABLE,F_CODFOR|DISABLE,F_RAGSOC
	ITEM "O|Offerta"
	MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF
	MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
	MESSAGE DISABLE,F_TIPOCF|DISABLE,F_CODCLI|DISABLE,F_CODFOR|DISABLE,F_RAGSOC

//	GROUP G_DEFMOV
END


STRING F_CATVEN 2
BEGIN
	PROMPT 0 0 ""
	FLAGS "HG"
END

STRING F_CODCONDV 3
BEGIN
	PROMPT 1 1 "Codice CONDV   "
	FLAGS "HG"
END

STRING F_CODLIST 3
BEGIN
	PROMPT 2 13 "Codice listino   "
	FIELD CODLIST
	USE LF_CONDV 
	INPUT TIPO "L"
	INPUT CATVEN F_CATVEN
	INPUT COD F_CODLIST
	DISPLAY "Cat.Ven." CATVEN
	DISPLAY "C/F" TIPOCF
	DISPLAY "Cod Cli/For" CODCF
	DISPLAY "Codice" COD
	DISPLAY "Descr.@30" DESCR
	OUTPUT F_TIPOCONDV TIPO 
	OUTPUT F_CATVEN CATVEN
	OUTPUT F_CODCF CODCF 
	OUTPUT F_CODLIST COD
	OUTPUT F_CODCONDV COD
	CHECKTYPE NORMAL
//	GROUP G_DEFMOV
END

STRING F_CODCONTR 3
BEGIN
	PROMPT 26 13 "Codice contratto "
	FIELD CODCONT
	USE LF_CONDV 
	INPUT TIPO "C"
	INPUT CATVEN F_CATVEN
	INPUT TIPOCF F_TIPOCF
	INPUT CODCF F_CODCF
	INPUT COD F_CODCONTR
	DISPLAY "Cat.Ven." CATVEN
	DISPLAY "C/F" TIPOCF
	DISPLAY "Cod Cli/For" CODCF
	DISPLAY "Codice" COD
	DISPLAY "Descr.@30" DESCR
	OUTPUT F_TIPOCONDV TIPO 
	OUTPUT F_CATVEN CATVEN
	OUTPUT F_TIPOCF TIPOCF 
	OUTPUT F_CODCF CODCF 
	OUTPUT F_CODCONTR COD 
	OUTPUT F_CODCONDV COD

	CHECKTYPE NORMAL
//	GROUP G_DEFMOV
END

STRING F_CODOFF 3
BEGIN
	PROMPT 50 13 "Codice offerta   "
	FIELD CODCAMP
	USE LF_CONDV 
	INPUT TIPO "O"
	INPUT CATVEN F_CATVEN
	INPUT COD F_CODOFF
	DISPLAY "Codice" COD
	DISPLAY "Descr.@30" DESCR
	OUTPUT F_TIPOCONDV TIPO 
	OUTPUT F_CODCF CODCF 
	OUTPUT F_CATVEN CATVEN
	OUTPUT F_CODOFF COD 
	OUTPUT F_CODCONDV COD
	CHECKTYPE NORMAL
//	GROUP G_DEFMOV
END

ENDPAGE

PAGE "Righe" 11 60 14

TEXT DLG_NULL 
BEGIN
	PROMPT 2 2 "Righe"
	GROUP G_DEFMOV
END

SPREADSHEET F_RIGHE 77 15
BEGIN
	PROMPT 2 3 "RIGHE DI MOVIMENTO"
	FLAGS "A"
//	USE LF_RMOVMAG KEY NRIG
//	INPUT NUMREG F_NUMREG
	ITEM "CodArt"
	ITEM "CodMag"
	ITEM "CodDep"
	ITEM "Liv1"
	ITEM "Liv2"
	ITEM "Liv3"
	ITEM "Liv4"
	ITEM "UM"
	ITEM "Qta"
	ITEM "Prezzo"
END


ENDPAGE
ENDMASK
#include "mg1100a.uml"