campo-sirio/mg/mg1400.uml

#include "mg1400.h"

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

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 27
BEGIN
  PROMPT 2 5 "Valorizzazione   "
  ITEM "5|Al costo medio ponderato"       MESSAGE HIDE,2@
  ITEM "4|Al costo medio acquisti"       MESSAGE HIDE,2@
  ITEM "0|All'ultimo costo"     MESSAGE HIDE,2@
  ITEM "1|Alla media dei costi" MESSAGE HIDE,2@
  ITEM "2|Al prezzo di listino" MESSAGE SHOW,2@
  ITEM "3|Al costo standard"    MESSAGE HIDE,2@
  ITEM "7|L.I.F.O. annuale"     MESSAGE HIDE,2@
  ITEM "6|F.I.F.O. annuale"     MESSAGE HIDE,2@
  ITEM "9|L.I.F.O. storico"     MESSAGE HIDE,2@
  ITEM "8|F.I.F.O. storico"     MESSAGE HIDE,2@
  /*
  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

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 7
BEGIN
  PROMPT 2 7 "Causali d'apertura "
END

STRING F_CAURIM 5
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
  WARNING "La causale deve avere i segni: GIAC+ RIMIN+"
  ADD RUN MG0 -0 %CAU
  GROUP 4 6
END

STRING F_CAUICL 5
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
  WARNING "La causale deve avere i segni: GIAC+, INCL+"
  ADD RUN MG0 -0 %CAU
  GROUP 6
END

STRING F_CAUACL 5
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
  WARNING "La causale deve avere i segni: GIAC-, ACL+"
  ADD RUN MG0 -0 %CAU
  GROUP 6
END

STRING F_CAUPRF 5
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
  WARNING "La causale deve avere i segni: GIAC-, PRODF+"
  GROUP 6
  ADD RUN MG0 -0 %CAU
END

STRING F_CAUPRC 5
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
  WARNING "La causale deve avere i segni: GIAC+, PRODC+"
  GROUP 6
  ADD RUN MG0 -0 %CAU
END

STRING F_CAUORF 5
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
  WARNING "La causale deve avere il segno: ORDF+"
  GROUP 1 6
  ADD RUN MG0 -0 %CAU
END

STRING F_CAUORC 5
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
  WARNING "La causale deve avere il segno: ORDC+"
  GROUP 1 6
  ADD RUN MG0 -0 %CAU
END

STRING F_CAUQTA 5
BEGIN
  PROMPT 3 12  "Movimentazione qta "
  FLAGS "U"
  USE %CAU SELECT (B0 == "X")&&(S2[23,23] == "+")&&(S2[1,1] == "+")
  INPUT CODTAB F_CAUQTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUQTA CODTAB
  CHECKTYPE REQUIRED
  WARNING "La causale deve avere il flag di movimentazione quantit<69> e i segni: GIAC+ RIMIN+"
  GROUP 5 6
  FLAGS "D"
  ADD RUN MG0 -0 %CAU
END

STRING F_CAUVAL 5
BEGIN
  PROMPT 43 12  "Movimentazione val "
  FLAGS "U"
  USE %CAU SELECT (B1 == "X")&&(S2[23,23] == "+")&&(S2[1,1] == "+")
  INPUT CODTAB F_CAUVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CAUVAL CODTAB
  CHECKTYPE REQUIRED
  WARNING "La causale deve avere il flag di movimentazione valore e i segni: GIAC+ RIMIN+"
  GROUP  5 6
  FLAGS "D"
  ADD RUN MG0 -0 %CAU
END

LIST F_VALORCOMP 40
BEGIN
  PROMPT 3 14  "Valorizzo "
  ITEM "C|i componenti impegnati in produzione"
  ITEM "F|i finiti in fase di produzione"
//  GROUP 4
END

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

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

ENDPAGE
ENDMASK