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"
  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." DATAREG
  DISPLAY "Data comp." DATACOMP
  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
  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
  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_DATAREG
  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

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

STRING F_CODNUM  4
BEGIN 
  FLAGS "D"
  PROMPT 2 6 "Documento: numero "
  FIELD CODNUM
END

STRING F_NUMDOC   7
BEGIN 
  FLAGS "D"
  PROMPT 28 6 "/ "
  FIELD NUMDOC
  USE LF_DOC 
  INPUT PROVV F_NUMPROVV SELECT 
  INPUT ANNO F_ANNOES
  INPUT CODNUM F_CODNUM
  INPUT NDOC F_NUMDOC
  DISPLAY "Num" CODNUM
  DISPLAY "Doc" NDOC
  DISPLAY "Tipo" TIPODOC
  DISPLAY "Anno" ANNO
  OUPUT F_CODNUM CODNUM
  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 40 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 6
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

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

  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
  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
  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
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 RESET,F_CATVEN|HIDE,F_CATVEN
  MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
  MESSAGE ENABLE,F_TIPOCF|RESET,F_TIPOCF
  ITEM "L|Listino"
  MESSAGE SHOW,F_CATVEN
  MESSAGE ENABLE,F_CODLIST|DISABLE,F_CODCONTR|DISABLE,F_CODOFF
  MESSAGE RESET,F_CODCONTR|RESET,F_CODOFF
  MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF
  ITEM "C|Contratto"
  MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
  MESSAGE DISABLE,F_CODLIST|ENABLE,F_CODCONTR|DISABLE,F_CODOFF
  MESSAGE RESET,F_CODLIST|RESET,F_CODOFF
  MESSAGE ENABLE,F_TIPOCF
  ITEM "O|Offerta"
  MESSAGE RESET,F_CATVEN|HIDE,F_CATVEN
  MESSAGE DISABLE,F_CODLIST|DISABLE,F_CODCONTR|ENABLE,F_CODOFF
  MESSAGE RESET,F_CODLIST|RESET,F_CODCONTR
  MESSAGE DISABLE,F_TIPOCF|RESET,F_TIPOCF

//  GROUP G_DEFMOV
END



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

STRING F_CATVEN 2
BEGIN
  FLAGS "D"
  PROMPT 2 13 "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 NORMAL
END

STRING F_CODLIST 3
BEGIN
  PROMPT 20 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_CODLIST COD
  OUTPUT F_CATVEN CATVEN
  OUTPUT F_TIPOCF TIPOCF 
  OUTPUT F_CODCF CODCF 
  OUTPUT F_CODCONDV COD
  CHECKTYPE NORMAL
//  GROUP G_DEFMOV
END

STRING F_CODCONTR 3
BEGIN
  PROMPT 20 14 "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_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 20 15 "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_CODOFF COD 
  OUTPUT F_CODCONDV COD
  CHECKTYPE NORMAL
//  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 77 12
BEGIN
  PROMPT 2 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"