campo-sirio/mg/batbgsa.uml

#include "batbgsa.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE  


PAGE "Gruppi Sottocodice Articoli" 0 0 0 0

// codice parte del formato codice
STRING F_CODLIV 3
BEGIN
  PROMPT 2 2 "Parte    "
  FIELD CODTAB[1,3]
  KEY 1
  FLAG "UZ"
  USE FSA
  INPUT CODTAB F_CODLIV
  DISPLAY "Codice Parte" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Formato@20" S1
  OUTPUT F_CODLIV CODTAB  
  OUTPUT F_DESLIV S0  
  OUTPUT F_FORMLIV S1  
  OUTPUT F_ROOT B0
  CHECKTYPE FORCED
END

// descrizione parte del formato codice
STRING F_DESLIV 50
BEGIN
  PROMPT 21 2 ""
  FLAGS "D"
END

// STRINGA DEL FORMATO CODICE
STRING F_FORMLIV 20 10
BEGIN
  PROMPT 2 3 "Formato  "
  FLAGS "D"
END

LIST F_ROOT 1 10
BEGIN
  PROMPT 42 3 "Livello"
  FLAGS "DG"
  ITEM " |Secondario" 
    MESSAGE HIDE,3@
  ITEM "X|Radice" 
    MESSAGE SHOW,3@
END

STRING F_CODGROUP 20
BEGIN
  FLAGS "U"
  PROMPT 2 4 "Gruppo   "
  FIELD CODTAB[4,24]
  KEY 1
  USE GSA
	JOIN FSA ALIAS 500 INTO CODTAB==CODTAB[1,3]
  INPUT CODTAB[1,3] F_CODLIV SELECT
  INPUT CODTAB[4,24] F_CODGROUP
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Parte@50 " 500@->S0
  DISPLAY "Gruppo@20" CODTAB[4,24]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODLIV CODTAB[1,3]  
  OUTPUT F_CODGROUP CODTAB[4,24]  
  OUTPUT F_DESGROUP S0  
  CHECKTYPE REQUIRED

  MESSAGE EMPTY ENABLE,F_DESLIV
  MESSAGE DISABLE,F_DESLIV
END

STRING F_DESGROUP 50
BEGIN
  PROMPT 11 5 ""
  FIELD S0
  KEY 2
  USE GSA KEY 2 SELECT CODTAB[1,3]==#F_CODLIV
	JOIN FSA ALIAS 500 INTO CODTAB==CODTAB[1,3]
  INPUT S0 F_DESGROUP
  DISPLAY "Descrizione@50 " S0
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Parte@50" 500@->S0
  DISPLAY "Gruppo@20" CODTAB[4,24]
  COPY OUTPUT F_CODGROUP
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 75 10
BEGIN
  PROMPT 1 6 "@bSottolivelli"
  GROUP 3
END

STRING F_CHILD1 3
BEGIN
  PROMPT 2 7 "Parte 2 "
  USE FSA SELECT CODTAB!=#F_CODLIV
  INPUT CODTAB F_CHILD1
  COPY DISPLAY F_CODLIV
  OUTPUT F_CHILD1 CODTAB
  OUTPUT F_FORMAT1 S1
  OUTPUT F_DESCR1 S0
  FIELD S1[1,3]
  CHECKTYPE REQUIRED
  GROUP 3
  FLAGS "G"
  MESSAGE EMPTY CLEAR,F_CHILD2
  MESSAGE ENABLE,F_CHILD2
END

STRING F_FORMAT1 20 10
BEGIN
  PROMPT 16 7 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR1 50 45
BEGIN
  PROMPT 28 7 ""
  GROUP 3
  FLAGS "D"
END

STRING F_CHILD2 3
BEGIN
  PROMPT 2 8 "Parte 3 "
  COPY USE F_CHILD1
  INPUT CODTAB F_CHILD2
  COPY DISPLAY F_CHILD1
  OUTPUT F_CHILD2 CODTAB
  OUTPUT F_FORMAT2 S1
  OUTPUT F_DESCR2 S0
  FIELD S1[4,6]
  CHECKTYPE NORMAL
  GROUP 3
  FLAGS "G"
  MESSAGE EMPTY CLEAR,F_CHILD3
  MESSAGE ENABLE,F_CHILD3
END

STRING F_FORMAT2 20 10
BEGIN
  PROMPT 16 8 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR2 50 45
BEGIN
  PROMPT 28 8 ""
  FLAGS "D"
  GROUP 3
END

STRING F_CHILD3 3
BEGIN
  PROMPT 2 9 "Parte 4 "
  COPY USE F_CHILD1
  INPUT CODTAB F_CHILD3
  COPY DISPLAY F_CHILD1
  OUTPUT F_CHILD3 CODTAB
  OUTPUT F_FORMAT3 S1
  OUTPUT F_DESCR3 S0
  FIELD S1[7,9]
  CHECKTYPE NORMAL
  GROUP 3
  FLAGS "G"
  MESSAGE EMPTY CLEAR,F_CHILD4
  MESSAGE ENABLE,F_CHILD4
END

STRING F_FORMAT3 20 10
BEGIN
  PROMPT 16 9 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR3 50 45
BEGIN
  PROMPT 28 9 ""
  FLAGS "D"
  GROUP 3
END

STRING F_CHILD4 3
BEGIN
  PROMPT 2 10 "Parte 5 "
  COPY USE F_CHILD1
  INPUT CODTAB F_CHILD4
  COPY DISPLAY F_CHILD1
  OUTPUT F_CHILD4 CODTAB
  OUTPUT F_FORMAT4 S1
  OUTPUT F_DESCR4 S0
  FIELD S1[10,12]
  CHECKTYPE NORMAL
  GROUP 3
  FLAGS "G"
  MESSAGE EMPTY CLEAR,F_CHILD5
  MESSAGE ENABLE,F_CHILD5
END

STRING F_FORMAT4 20 10
BEGIN
  PROMPT 16 10 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR4 50 45
BEGIN
  PROMPT 28 10 ""
  FLAGS "D"
  GROUP 3
END

STRING F_CHILD5 3
BEGIN
  PROMPT 2 11 "Parte 6 "
  COPY USE F_CHILD1
  INPUT CODTAB F_CHILD5
  COPY DISPLAY F_CHILD1
  OUTPUT F_CHILD5 CODTAB
  OUTPUT F_FORMAT5 S1
  OUTPUT F_DESCR5 S0
  FIELD S1[13,15]
  CHECKTYPE NORMAL
  GROUP 3
  FLAGS "G"
  MESSAGE EMPTY CLEAR,F_CHILD6
  MESSAGE ENABLE,F_CHILD6
END

STRING F_FORMAT5 20 10
BEGIN
  PROMPT 16 11 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR5 50 45
BEGIN
  PROMPT 28 11 ""
  FLAGS "D"
  GROUP 3
END

STRING F_CHILD6 3
BEGIN
  PROMPT 2 12 "Parte 7 "
  COPY USE F_CHILD1
  INPUT CODTAB F_CHILD6
  COPY DISPLAY F_CHILD1
  OUTPUT F_CHILD6 CODTAB
  OUTPUT F_FORMAT6 S1
  OUTPUT F_DESCR6 S0
  FIELD S1[16,18]
  CHECKTYPE NORMAL
  GROUP 3
  FLAGS "G"
  MESSAGE EMPTY CLEAR,F_CHILD7
  MESSAGE ENABLE,F_CHILD7
END

STRING F_FORMAT6 20 10
BEGIN
  PROMPT 16 12 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR6 50 45
BEGIN
  PROMPT 28 12 ""
  FLAGS "D"
  GROUP 3
END

STRING F_CHILD7 3
BEGIN
  PROMPT 2 13 "Parte 8 "
  COPY USE F_CHILD1
  INPUT CODTAB F_CHILD7
  COPY DISPLAY F_CHILD1
  OUTPUT F_CHILD7 CODTAB
  OUTPUT F_FORMAT7 S1
  OUTPUT F_DESCR7 S0
  FIELD S1[19,21]
  CHECKTYPE NORMAL
  GROUP 3
  FLAGS "G"
  MESSAGE EMPTY CLEAR,F_CHILD8
  MESSAGE ENABLE,F_CHILD8
END

STRING F_FORMAT7 20 10
BEGIN
  PROMPT 16 13 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR7 50 45
BEGIN
  PROMPT 28 13 ""
  FLAGS "D"
  GROUP 3
END

STRING F_CHILD8 3
BEGIN
  PROMPT 2 14 "Parte 9 "
  COPY USE F_CHILD1
  INPUT CODTAB F_CHILD8
  COPY DISPLAY F_CHILD1
  OUTPUT F_CHILD8 CODTAB
  OUTPUT F_FORMAT8 S1
  OUTPUT F_DESCR8 S0
  FIELD S1[22,24]
  CHECKTYPE NORMAL
  GROUP 3
  FLAGS "G"
END

STRING F_FORMAT8 20 10
BEGIN
  PROMPT 16 14 ""
  GROUP 3
  FLAGS "D"
END

STRING F_DESCR8 50 45
BEGIN
  PROMPT 28 14 ""
  FLAGS "D"
  GROUP 3
END

STRING F_FORMAT 90 30
BEGIN
  PROMPT 1 16 "Formato complessivo "
  FLAGS "D"
  GROUP 3
  DRIVENBY F_FORMAT1 F_FORMAT2 F_FORMAT3 F_FORMAT4 F_FORMAT5 F_FORMAT6 F_FORMAT7 F_FORMAT8
  STR_CALC #F_FORMLIV+#F_FORMAT1+#F_FORMAT2+#F_FORMAT3+#F_FORMAT4+#F_FORMAT5+#F_FORMAT6+#F_FORMAT7+#F_FORMAT8
END

NUMBER F_FORMATLEN 3
BEGIN
  PROMPT 60 16 "Lunghezza "
  FLAGS "D"
  GROUP 3
  DRIVENBY F_FORMAT
  STR_CALC LEN(#F_FORMAT)
END

STRING F_FORMATCHECK 3
BEGIN
  PROMPT 60 60 "Test lunghezza      "
  FLAGS "L"
  GROUP 3
  DRIVENBY F_FORMATLEN
  WARNING "Il formato dell'articolo non puo' superare i 20 caratteri"
  NUM_EXPR #F_FORMATLEN<=20
END  

ENDPAGE

ENDMASK