campo-sirio/ve/vetbtag.uml

#include "vetbtag.h"

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Gestione taglie" 11 60 14

STRING F_CODICE 2 
BEGIN
  PROMPT 3 4 "Codice della tabella "
  USE TAG
  FIELD TAG->CODTAB 
  FLAGS "U"
  CHECKTYPE REQUIRED
  INPUT CODTAB F_CODICE  
  
  DISPLAY "Codice " CODTAB
  DISPLAY "Taglia 1  " S0[1,3] 
  DISPLAY "Taglia 2  " S0[5,7]
  DISPLAY "Taglia 3  " S0[9,11]
  DISPLAY "Taglia 4  " S0[13,15] 
  DISPLAY "Taglia 5  " S0[17,19]
  DISPLAY "Taglia 6  " S0[21,23]
  DISPLAY "Taglia 7  " S0[25,27]
  DISPLAY "Taglia 8  " S0[29,31]
  DISPLAY "Taglia 9  " S0[33,35]
  DISPLAY "Taglia 10 " S0[37,39]
  DISPLAY "Taglia 11 " S0[41,43]
  DISPLAY "Taglia 12 " S0[45,47]
  DISPLAY "Taglia 13 " S0[49,51]
  DISPLAY "Taglia 14 " S0[53,55]
  DISPLAY "Taglia 15 " S0[57,59]
 
  OUTPUT F_CODICE CODTAB 
  OUTPUT F_DESCR1  S0[1,3] 
  OUTPUT F_DESCR2 S0[5,7]
  OUTPUT F_DESCR3 S0[9,11]
  OUTPUT F_DESCR4 S0[13,15] 
  OUTPUT F_DESCR5 S0[17,19]
  OUTPUT F_DESCR6 S0[21,23]
  OUTPUT F_DESCR7 S0[25,27]
  OUTPUT F_DESCR8 S0[29,31]
  OUTPUT F_DESCR9 S0[33,35]
  OUTPUT F_DESCR10 S0[37,39]
  OUTPUT F_DESCR11 S0[41,43]
  OUTPUT F_DESCR12 S0[45,47]
  OUTPUT F_DESCR13 S0[49,51]
  OUTPUT F_DESCR14 S0[53,55]
  OUTPUT F_DESCR15 S0[57,59]
  KEY 1  
END

TEXT TESTO
BEGIN
    PROMPT 3 6 "Taglie "
END

STRING F_DESCR1 3
BEGIN
  PROMPT 13 6 ""
  FIELD TAG->S0[1,3]
END
  
STRING F_DESCR2 3
BEGIN
  PROMPT 20 6 ""
  FIELD TAG->S0[5,7]
END

STRING F_DESCR3 3
BEGIN
  PROMPT 27 6 ""
  FIELD TAG->S0[9,11]
END

STRING F_DESCR4 3
BEGIN
  PROMPT 34 6 ""
  FIELD TAG->S0[13,15]
END

STRING F_DESCR5 3
BEGIN
  PROMPT 41 6 ""
  FIELD TAG->S0[17,19]
END

STRING F_DESCR6 3
BEGIN
  PROMPT 13 8 ""
  FIELD TAG->S0[21,23]
END

STRING F_DESCR7 3
BEGIN
  PROMPT 20 8 ""
  FIELD TAG->S0[25,27]
END

STRING F_DESCR8 3
BEGIN
  PROMPT 27 8 ""
  FIELD TAG->S0[29,31]
END

STRING F_DESCR9 3
BEGIN
  PROMPT 34 8 ""
  FIELD TAG->S0[33,35]
END

STRING F_DESCR10 3
BEGIN
  PROMPT 41 8 ""
  FIELD TAG->S0[37,39]
END

STRING F_DESCR11 3
BEGIN
  PROMPT 13 10 ""
  FIELD TAG->S0[41,43]
END

STRING F_DESCR12 3
BEGIN
  PROMPT 20 10 ""
  FIELD TAG->S0[45,47]
END

STRING F_DESCR13 3
BEGIN
  PROMPT 27 10 ""
  FIELD TAG->S0[49,51]
END

STRING F_DESCR14 3
BEGIN
  PROMPT 34 10 ""
  FIELD TAG->S0[53,55]
END

STRING F_DESCR15 3
BEGIN
  PROMPT 41 10 ""
  FIELD TAG->S0[57,59]
END


GROUPBOX DLG_NULL 60 12
BEGIN
  PROMPT 1 1 ""
  FLAG "R"
END

ENDPAGE


ENDMASK