campo-sirio/mg/mg1400.uml

#include "mg1400.h"

PAGE "Chiusura/Apertura esercizio" -1 -1 75 15

RADIOBUTTON F_WHAT 20
BEGIN
  PROMPT 2 1 "Tipo"
  ITEM "0|Provvisoria" 
  ITEM "1|Definitiva"  
END

DATE F_DATEOPEN
BEGIN 
  PROMPT 25 2 "Data di apertura   "
END

NUMBER F_ESTOOPEN 4
BEGIN 
  PROMPT 58 2 "Esercizio "
  FLAGS "DRZ"
END

DATE F_DATECLOSE
BEGIN 
  PROMPT 25 3 "Data di chiusura   "
END

NUMBER F_ESTOCLOSE 4
BEGIN 
  PROMPT 58 3 "Esercizio "
  FLAGS "DRZ"
END

LISTBOX F_VALORIZZAZIONE 20
BEGIN
  PROMPT 2 5 "Valorizzazione       "
  ITEM "0|Al costo medio"       MESSAGE HIDE,2@|ENABLE,3@
  ITEM "1|All'ultimo costo"     MESSAGE HIDE,2@|ENABLE,3@
  ITEM "2|Alla media dei costi" MESSAGE HIDE,2@|ENABLE,3@
  ITEM "3|Al prezzo di listino" MESSAGE SHOW,2@|ENABLE,3@
  ITEM "4|Al costo standard"    MESSAGE HIDE,2@|ENABLE,3@
  ITEM "5|L.I.F.O. annuale"     MESSAGE HIDE,2@|DISABLE,3@|COPY,F_STOMET
  ITEM "6|F.I.F.O. annuale"     MESSAGE HIDE,2@|DISABLE,3@|COPY,F_STOMET
  ITEM "7|L.I.F.O. storico"     MESSAGE HIDE,2@|DISABLE,3@|COPY,F_STOMET
  ITEM "8|F.I.F.O. storico"     MESSAGE HIDE,2@|DISABLE,3@|COPY,F_STOMET
  /*
  TBI LIFO/FIFO ragionieristico
  ITEM "9|L.I.F.O. ragionieristico"     MESSAGE HIDE,2@|DISABLE,3@|COPY,F_STOMET
  ITEM "10|F.I.F.O. ragionieristico"     MESSAGE HIDE,2@|DISABLE,3@|COPY,F_STOMET
  */
END

LISTBOX F_STOMET 20
BEGIN
  PROMPT 2 6 "Storico              "
  ITEM "5|L.I.F.O. annuale"
  ITEM "6|F.I.F.O. annuale"
  ITEM "7|L.I.F.O. storico"
  ITEM "8|F.I.F.O. storico"
  /*
  TBI LIFO/FIFO ragionieristico
  ITEM "9|L.I.F.O. ragionieristico"
  ITEM "10|F.I.F.O. ragionieristico"
  */
  GROUP 3
END

GROUPBOX DLG_NULL 22 4
BEGIN
  PROMPT 50 4 "Listino"
  GROUP 2
END

STRING F_CATVEN 2
BEGIN
  PROMPT 51 5 "Categoria ven.  "
  USE CVE
  INPUT CODTAB F_CATVEN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione @50" S0
  DISPLAY "Provvigione" R0
  DISPLAY "Gruppo" I1
  DISPLAY "Conto"  I2
  OUTPUT F_CATVEN CODTAB
  CHECKTYPE REQUIRED
  GROUP 2
END

STRING F_LIST 3
BEGIN
  PROMPT 51 6 "Codice listino "
  USE LF_CONDV SELECT TIPO=="L"
  INPUT TIPO "L"
  INPUT CATVEN F_CATVEN
  INPUT COD F_LIST
  DISPLAY "Cat. vendita" CATVEN
  DISPLAY "Listino"COD
  DISPLAY "Descrizione @50" DESCR
  DISPLAY "Inizio validita" VALIN
  DISPLAY "Fine validita" VALFIN
  OUTPUT F_LIST COD
  CHECKTYPE REQUIRED
  GROUP 2
END

GROUPBOX DLG_NULL 70 6
BEGIN
  PROMPT 2 7 "Causali d'apertura "
END

STRING F_CAURIM 6
BEGIN
  PROMPT 3 8 "Rimanenze iniziali "
  FLAGS "U"
  USE %CAU SELECT (S2[23,23] == "+")&&(S2[1,1] == "+")
  INPUT CODTAB F_CAURIM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAURIM CODTAB
  CHECKTYPE REQUIRED
  GROUP 4
END

STRING F_CAUICL 6
BEGIN
  PROMPT 3 9   "In conto lavoraz.  "
  FLAGS "U"
  USE %CAU SELECT (S2[15,15] == "+")&&(S2[1,1] == "+")
  INPUT CODTAB F_CAUICL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUICL CODTAB
  CHECKTYPE REQUIRED
  GROUP 4
END

STRING F_CAUACL 6
BEGIN
  PROMPT 43 9  "A conto lavoraz.   "
  FLAGS "U"
  USE %CAU SELECT (S2[17,17] == "+")&&(S2[1,1] == "-")
  INPUT CODTAB F_CAUACL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUACL CODTAB
  CHECKTYPE REQUIRED
  GROUP 4
END

STRING F_CAUPRF 6
BEGIN
  PROMPT 3 10   "In prod. finiti    "
  FLAGS "U"
  USE %CAU SELECT (S2[21,21] == "+")&&(S2[1,1] == "-")
  INPUT CODTAB F_CAUPRF
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUPRF CODTAB
  CHECKTYPE REQUIRED
  GROUP 4
END

STRING F_CAUPRC 6
BEGIN
  PROMPT 43 10  "In prod. comp.     "
  FLAGS "U"
  USE %CAU SELECT (S2[19,19] == "+")&&(S2[1,1] == "+")
  INPUT CODTAB F_CAUPRC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUPRC CODTAB
  CHECKTYPE REQUIRED
  GROUP 4
END

STRING F_CAUORF 6
BEGIN
  PROMPT 3 11   "Ordinato fornitori "
  FLAGS "U"
  USE %CAU SELECT (S2[13,13] == "+")
  INPUT CODTAB F_CAUORF
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUORF CODTAB
  CHECKTYPE REQUIRED
  GROUP 1 4
END

STRING F_CAUORC 6
BEGIN
  PROMPT 43 11  "Ordinato clienti   "
  FLAGS "U"
  USE %CAU SELECT (S2[11,11] == "+")
  INPUT CODTAB F_CAUORC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUORC CODTAB
  CHECKTYPE REQUIRED
  GROUP 1 4
END

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

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

ENDPAGE
ENDMASK