campo-sirio/ce/cetbcim.uml

#include "cetbcim.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Impianti della ditta" -1 -1 60 6

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "codice ditta"
  FLAGS "HF"
END

NUMBER F_CODIMP 10
BEGIN
  PROMPT 2 1 "Codice impianto "
  FLAGS "Z"
  KEY 1
  USE CIM                           //<2F> la tabella localizzazioni ditte
  FIELD CODTAB
  INPUT CODTAB F_CODIMP
  DISPLAY "Codice impianto " CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_CODIMP CODTAB
  OUTPUT F_DESCRIMP S0
  CHECKTYPE REQUIRED
END

STRING F_DESCRIMP 50
BEGIN
  PROMPT 2 3 "Descrizione     "
  KEY 2
  USE CIM KEY 2
  FIELD S0
  INPUT S0 F_DESCRIMP
  DISPLAY "Descrizione@60" S0
  DISPLAY "Codice" CODTAB
  OUTPUT F_CODIMP CODTAB
  OUTPUT F_DESCRIMP S0
  CHECKTYPE REQUIRED
END

NUMBER F_COD_LOC_IMP 10
BEGIN
  PROMPT 2 5 "Codice localizzazione "
  FLAGS "Z"
  FIELD S1
  USE LOC                           //tabella localizzazioni ditte
  INPUT CODTAB F_COD_LOC_IMP
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_LOC_IMP CODTAB
  OUTPUT F_DES_LOC_IMP S0
  CHECKTYPE NORMAL
END

STRING F_DES_LOC_IMP 50
BEGIN
  PROMPT 2 6 "Descrizione           "
  USE LOC KEY 2
  INPUT S0 F_DES_LOC_IMP
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@10" CODTAB
  COPY OUTPUT F_COD_LOC_IMP
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK