campo-sirio/mg/mg1100.uml

#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"
  FLAGS "G"
  FIELD NUMREG
  PROMPT 2  2 "Operazione numero       "
  KEY 1 3 4
  USE LF_MOVMAG 
  INPUT NUMREG F_NUMREG
  DISPLAY "N.reg." NUMREG
  DISPLAY "Anno" ANNOES
  DISPLAY "Data reg. @10" DATAREG
  DISPLAY "Data comp.@10" DATACOMP
  DISPLAY "Descrizione@30" DESCR
  DISPLAY "Causale" CODCAUS
  OUTPUT F_NUMREG NUMREG
  OUTPUT F_DATAREG DATAREG 
  OUTPUT F_DATACOMP DATACOMP
  CHECKTYPE REQUIRED
  MESSAGE COPY,H_NUMREG
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
  COPY DISPLAY F_NUMREG
  OUTPUT F_NUMREG NUMREG
  OUTPUT F_DATAREG DATAREG 
  OUTPUT F_DATACOMP DATACOMP
  CHECKTYPE REQUIRED
  MESSAGE COPY,H_DATAREG
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_NUMREG
  OUTPUT F_NUMREG NUMREG
  OUTPUT F_DATAREG DATAREG 
  OUTPUT F_DATACOMP DATACOMP
  CHECKTYPE REQUIRED
  MESSAGE COPY,H_DATACOMP
END

STRING F_DESCR 50 40
BEGIN 
  PROMPT 2 4 "Descrizione             "
  FIELD DESCR
  MESSAGE COPY,H_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

STRING F_EXNUMDOC  7
BEGIN 
  FLAGS "U"
  PROMPT 2 6 "Documento numero "
  FIELD EX_NUMDOC
END


DATE F_EXANNODOC  
BEGIN 
  PROMPT 30 6 " del "
  FIELD EX_DATADOC  
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
  ADD RUN MG0 -0 %CAU  
  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

RADIOBUTTON F_TIPOCF 15
BEGIN 
  PROMPT 2 8 ""
  FLAGS "G"
  FIELD TIPOCF
  ITEM " |Nessuno"
  MESSAGE HIDE,F_CODCLI|HIDE,F_CODFOR|HIDE,F_RAGSOC|RESET,F_CODCF|HIDE,F_CODCF
  ITEM "C|Cliente"
  MESSAGE SHOW,F_CODCF|SHOW,F_CODCLI|HIDE,F_CODFOR|SHOW,F_RAGSOC|CHECK,F_CODCONTR
  ITEM "F|Fornitore"
  MESSAGE SHOW,F_CODCF|HIDE,F_CODCLI|SHOW,F_CODFOR|SHOW,F_RAGSOC|CHECK,F_CODCONTR
  GROUP G_DEFMOV
END


TEXT F_CODCLI
BEGIN 
  PROMPT 20 10 "Codice cliente   "
END

TEXT F_CODFOR 
BEGIN 
  PROMPT 20 10 "Codice fornitore "
END

// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
NUMBER F_CODCF  6
BEGIN 
//  FLAGS "UHG"
  FIELD CODCF
  PROMPT 37 10 ""
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF  F_CODCF
  DISPLAY "Codice " CODCF
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
STRING F_RAGSOC 50 30
BEGIN
  PROMPT 48 12 ""
  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 
  FIELD TIPOCV
  PROMPT 2  12 "Condizione di vendita "
  ITEM " |Nessuna"
  MESSAGE CLEAR,F_CATVEN
  MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR|RESET,F_CODOFF
  MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
  ITEM "L|Listino"
  MESSAGE ENABLE,F_CATVEN
  MESSAGE SHOW,F_CODLIST|HIDE,F_CODCONTR|HIDE,F_CODOFF
  MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
  ITEM "C|Contratto"
  MESSAGE CLEAR,F_CATVEN
  MESSAGE HIDE,F_CODLIST|SHOW,F_CODCONTR|HIDE,F_CODOFF
  MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
  ITEM "O|Offerta"
  MESSAGE CLEAR,F_CATVEN
  MESSAGE HIDE,F_CODLIST|HIDE,F_CODCONTR|SHOW,F_CODOFF
  MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR

//  GROUP G_DEFMOV
END

STRING F_CATVEN 2
BEGIN
  FLAGS "DU"
  PROMPT 2 14 "Cat.ven."
  FIELD CATVEN
  USE CVE
  INPUT CODTAB F_CATVEN
  DISPLAY "Cat." CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CATVEN CODTAB
  MESSAGE CHECK,F_CODLIST
  CHECKTYPE REQUIRED
END

STRING F_CODLIST 3
BEGIN
  FLAGS "U"
  PROMPT 2 16 "Codice listino   "
  FIELD CODCONDV
  USE LF_CONDV 
  INPUT TIPO "L"
  INPUT CATVEN F_CATVEN SELECT
  INPUT COD F_CODLIST
  DISPLAY "Cat.Ven." CATVEN
  DISPLAY "Codice" COD
  DISPLAY "Descr.@30" DESCR

  OUTPUT F_CATVEN CATVEN
  OUTPUT F_CODLIST COD
  CHECKTYPE REQUIRED

//  GROUP G_DEFMOV
END

STRING F_CODCONTR 3
BEGIN
  FLAGS "U"
  PROMPT 2 16 "Codice contratto "
  FIELD CODCONDV
  USE LF_CONDV 
  INPUT TIPO "C"
  INPUT CATVEN F_CATVEN
  INPUT TIPOCF F_TIPOCF
  INPUT CODCF F_CODCF
  INPUT COD F_CODCONTR
  DISPLAY "C/F" TIPOCF
  DISPLAY "Cod Cli/For" CODCF
  DISPLAY "Codice" COD
  DISPLAY "Descr.@30" DESCR
  OUTPUT F_CODCF CODCF 
  OUTPUT F_TIPOCF TIPOCF 
  OUTPUT F_CODCONTR COD 

  CHECKTYPE REQUIRED
//  GROUP G_DEFMOV
END

STRING F_CODOFF 3
BEGIN
  FLAGS "U"
  PROMPT 2 16 "Codice offerta   "
  FIELD CODCONDV
  USE LF_CONDV 
  INPUT TIPO "O"
  INPUT CATVEN F_CATVEN
  INPUT COD F_CODOFF
  DISPLAY "Codice" COD
  DISPLAY "Descr.@30" DESCR
  OUTPUT F_CODOFF COD 
  CHECKTYPE REQUIRED
//  GROUP G_DEFMOV
END


ENDPAGE

PAGE "Righe" 11 60 14

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

NUMBER H_NUMREG  7
BEGIN 
  FLAGS "D"
  PROMPT 2  2 "Operazione numero       "
END

NUMBER H_ANNOES 4
BEGIN 
  FLAGS "D"
  PROMPT 2 3 "Esercizio di competenza "
END

DATE H_DATAREG  
BEGIN 
  PROMPT 38 2 "Data di registrazione "
  FLAGS "D"
END

DATE H_DATACOMP
BEGIN 
  PROMPT 38 3 "Data di competenza    "
  FLAGS "D" 
END

STRING H_DESCR 50 40
BEGIN 
  PROMPT 2 4 "Descrizione             "
  FLAGS "D" 
END

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

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 7 "RIGHE DI MOVIMENTO"
  FLAGS "AI"
  //USE LF_RMOVMAG KEY NRIG
  //INPUT NUMREG F_NUMREG
  ITEM "@1F"
  ITEM "CodArt"
  ITEM "Descrizione"
  ITEM "CodMag"
  ITEM "CodDep"
  ITEM "Liv1"
  ITEM "Liv2"
  ITEM "Liv3"
  ITEM "Liv4"
  ITEM "UM@4"
  ITEM "Qta"
  ITEM "Prezzo"
  ITEM "Causale"
END

ENDPAGE

ENDMASK

#include "mg1100a.uml"