campo-sirio/mg/mg1400.uml

#include "mg1400.h"

PAGE "Chiusura esercizi" -1 -1 75 15

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

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

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

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

LISTBOX F_VALORIZZAZIONE 20
BEGIN
  PROMPT 2 5 "Valorizzazione       "
  ITEM "1|Al costo medio" MESSAGE HIDE,F_METODO|HIDE,2@
  ITEM "2|All'ultimo costo" MESSAGE HIDE,F_METODO|HIDE,2@
  ITEM "3|Alla media dei costi" MESSAGE HIDE,F_METODO|HIDE,2@
  ITEM "4|Al prezzo di listino" MESSAGE HIDE,F_METODO|SHOW,2@
  ITEM "5|Al costo standard" MESSAGE HIDE,F_METODO|HIDE,2@
  ITEM "6|Metodo L.I.F.O." MESSAGE SHOW,F_METODO|HIDE,2@
  ITEM "7|Metodo F.I.F.O." MESSAGE SHOW,F_METODO|HIDE,2@
END

RADIOBUTTON F_METODO 22
BEGIN
  PROMPT 50 4 "Metodo"
  ITEM "1|Annuale e storico"
  ITEM "2|Ragionieristico"
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 "
  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
END

STRING F_CAUICL 6
BEGIN
  PROMPT 3 9   "In conto lavoraz.  "
  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
END

STRING F_CAUACL 6
BEGIN
  PROMPT 43 9  "A conto lavoraz.   "
  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
END

STRING F_CAUPRF 6
BEGIN
  PROMPT 3 10   "In prod. finiti    "
  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
END

STRING F_CAUPRC 6
BEGIN
  PROMPT 43 10  "In prod. comp.     "
  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
END

STRING F_CAUORF 6
BEGIN
  PROMPT 3 11   "Ordinato fornitori "
  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
END

STRING F_CAUORC 6
BEGIN
  PROMPT 43 11  "Ordinato clienti   "
  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
END

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

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

ENDPAGE
ENDMASK