campo-sirio/mg/mg1100.uml

#include "mg1100.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE  


PAGE "Testata" 0 0 0 0

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

NUMBER F_NUMREG  7
BEGIN 
//  FLAGS "D"
  FLAGS "G"
  FIELD NUMREG
  PROMPT 2 3 "Operazione numero       "
  KEY 1 3 4
  USE LF_MOVMAG 
  INPUT NUMREG F_NUMREG
  DISPLAY "N.reg.@7" 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 "DZ"
  PROMPT 2 4 "Esercizio di competenza "
  FIELD ANNOES
END

DATE F_DATAREG  
BEGIN 
  PROMPT 38 3 "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 4 "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 5 "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 7 "Documento numero "
  FIELD EX_NUMDOC
END


DATE F_EXANNODOC  
BEGIN 
  PROMPT 30 7 " del "
  FIELD EX_DATADOC  
END


STRING F_CODCAUS 5
BEGIN 
  PROMPT 2  9 "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 9 ""
  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 9
BEGIN 
  PROMPT 2 11 ""
  FLAGS "G"
  FIELD TIPOCF
  ITEM " |Nessuno"
  MESSAGE CLEAR,F_CODCF|CLEAR,F_RAGSOC|CLEAR,F_INDSPED|CLEAR,F_INDIR
  ITEM "C|Cliente"
  MESSAGE ENABLE,F_CODCF|ENABLE,F_RAGSOC|ENABLE,F_INDSPED|ENABLE,F_INDIR
  ITEM "F|Fornitore"
  MESSAGE ENABLE,F_CODCF|ENABLE,F_RAGSOC|ENABLE,F_INDSPED|ENABLE,F_INDIR
  GROUP G_DEFMOV
END


// agisce anche quando l'utente non entra in gioco (settaggio da contratto...)
NUMBER F_CODCF  6
BEGIN 
  PROMPT 15 11 "Codice "
  FLAGS "R"
  FIELD CODCF
  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
  ADD RUN CG0 -1
END

// esegue i controlli e ricopia i valori del codice sia in CLI che in FOR
STRING F_RAGSOC 50 40
BEGIN
  PROMPT 32 11 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF  F_TIPOCF SELECT
  INPUT RAGSOC   F_RAGSOC
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice " CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE NORMAL
  GROUP G_DEFMOV
  ADD RUN CG0 -1
END

NUMBER F_INDSPED 3
BEGIN
  PROMPT 2 12 "Indirizzo di spediz."
  FIELD CODINDSP
  USE LF_INDSP
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_CODCF SELECT
  INPUT CODIND F_INDSPED
  DISPLAY "Codice" CODCF
  DISPLAY "Cod.Ind.Sped." CODIND
  DISPLAY "Indirizzo@30" INDIR
  DISPLAY "C.A.P." CAP
  OUTPUT F_INDSPED CODIND
  OUTPUT F_INDIR INDIR
  CHECKTYPE NORMAL
  GROUP G_DEFMOV
END

STRING F_INDIR 50 40
BEGIN
  PROMPT 32 12 ""
  FLAGS "D"
  GROUP G_DEFMOV
END
                  
LISTBOX F_TIPOCONDV 1 12
BEGIN 
  FIELD TIPOCV
  PROMPT 2  13 "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 SHOW,F_CODCONTR|HIDE,F_CODLIST|HIDE,F_CODOFF
  MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
  ITEM "O|Offerta"
  MESSAGE CLEAR,F_CATVEN
  MESSAGE SHOW,F_CODOFF|HIDE,F_CODLIST|HIDE,F_CODCONTR
  MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR

//  GROUP G_DEFMOV
END

STRING F_CATVEN 2
BEGIN
  FLAGS "DU"
  PROMPT 2 15 "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 17 "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 17 "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 17 "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

BOOL F_INVENTORYMODE 
BEGIN
  PROMPT 2 2 "Modalita' di inserimento come movimento di differenza inventariale"
  MESSAGE TRUE  SHOW ,F_INVENTORYMODE2
  MESSAGE FALSE HIDE ,F_INVENTORYMODE2
  FLAGS "U"
END


ENDPAGE

PAGE "Righe" 11 60 14

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

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

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

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

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

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

TEXT F_INVENTORYMODE2
BEGIN
  PROMPT 2 4 "@BModalita' di inserimento come movimento di differenza inventariale"
  FLAGS "UD"
END

CURRENCY F_VALORE_TOT
BEGIN
  PROMPT 2 5 "Valore totale          "
  FLAGS "UD"
END

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 6 "RIGHE DI MOVIMENTO"
  FLAGS "AI"
  //USE LF_RMOVMAG KEY NRIG
  //INPUT NUMREG F_NUMREG
  ITEM "@1"
  ITEM "Codice articolo"
  ITEM "Liv1@10"
  ITEM "Liv2@10"
  ITEM "Liv3@10"
  ITEM "Liv4@10"
  ITEM "Descrizione"
  ITEM "CodMag"
  ITEM "CodDep"
  ITEM "UM@4"
  ITEM "Qta"
  ITEM "Prezzo"
  ITEM "Causale"
  ITEM "Giacenza"
  ITEM "Impianto"
  ITEM "Linea"
  ITEM "Valore@15"
END

ENDPAGE

ENDMASK

#include "mg1100a.uml"