campo-sirio/ve/vetbspt.uml

#include "vetbspt.h"

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

PAGE "Archivio specifiche tecniche" 11 60 14

STRING F_CODICE 15 
BEGIN
  PROMPT 1 3 "Codice articolo  "
  FIELD SPT->CODTAB
  KEY 1
  
  USE LF_ANAMAG
  FLAG "R"
  FLAG "U"
  INPUT CODART F_CODICE
  DISPLAY "Codice " CODART
  DISPLAY "Tipo   " TIPO
  DISPLAY "Descrizione@50 " DESCR
  OUTPUT F_CODICE CODART
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
END

STRING F_DESCR  30
BEGIN
  PROMPT 38 3 ""
  KEY 2
  
  USE LF_ANAMAG KEY 2
  FLAG "R"
  INPUT DESCR F_DESCR
  DISPLAY "Codice " CODART
  DISPLAY "Tipo   " TIPO
  DISPLAY "Descrizione@50 " DESCR
  OUTPUT F_CODICE CODART
  OUTPUT F_DESCR DESCR
  CHECKTYPE REQUIRED
END


TEXT F_DESCR7 
BEGIN
  PROMPT 1 5 "Specifiche  "
END

STRING F_DESCR1  70
BEGIN
  PROMPT 3 7 ""
  FIELD SPT->S0
END

STRING F_DESCR2  70
BEGIN
  PROMPT 3 8 ""
  FIELD SPT->S1
END

STRING F_DESCR3  50
BEGIN
  PROMPT 3 9 ""
  FIELD SPT->S2
END

STRING F_DESCR4  20
BEGIN
  PROMPT 3 10 ""
  FIELD SPT->S3
END

STRING F_DESCR5  20
BEGIN
  PROMPT 3 11 ""
  FIELD SPT->S4
END

STRING F_DESCR6  20
BEGIN
  PROMPT 3 12 ""
  FIELD SPT->S5
END

  
ENDPAGE


ENDMASK