campo-sirio/ce/cetbloc.uml

#include "cetbloc.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>

ENDPAGE

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

GROUPBOX DLG_NULL 75 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

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

NUMBER F_LOCALIZE 10
BEGIN
  PROMPT 2 1 "Localizzazione "
  FLAGS "Z"
  KEY 1
  USE LOC                           //<2F> la tabella localizzazioni ditte
  FIELD CODTAB
  INPUT CODTAB F_LOCALIZE
  DISPLAY "Localizzazione@41" CODTAB
  OUTPUT F_LOCALIZE CODTAB
  CHECKTYPE REQUIRED
END

NUMBER F_UNILOC 3
BEGIN
  PROMPT 2 2 "Unita' locale  "
  FIELD I0
  USE LF_UNLOC
  JOIN LF_COMUNI TO LF_UNLOC KEY 1 INTO COM=COMULC
  INPUT CODDITTA F_CODDITTA SELECT   //fa vedere solo quelli che hanno quel codice ditta
  INPUT CODULC F_UNILOC
  DISPLAY "Un.Loc" CODULC
  DISPLAY "Localita'@50" LF_COMUNI->DENCOM
  DISPLAY "Indirizzo@35" INDULC
  DISPLAY "N.ro civico@35" CIVULC
  OUTPUT F_UNILOC CODULC
  OUTPUT F_ADDRESS INDULC
  OUTPUT F_NUMADDR CIVULC
  OUTPUT F_CODCOMU COMULC
  OUTPUT F_DESCRCOM LF_COMUNI->DENCOM
  OUTPUT F_PROV LF_COMUNI->PROVCOM
  CHECKTYPE REQUIRED 
  ADD RUN BA4 -3 
END

STRING F_ADDRESS 35
BEGIN
   PROMPT 2 5 "Indirizzo "
   FLAGS "D"
END

STRING F_NUMADDR 10
BEGIN
   PROMPT 54 5 "N.  "
   FLAGS "D"
END

STRING F_CODCOMU 4
BEGIN
   PROMPT 2 6 "Comune    "
   FLAGS "D"
END

STRING F_DESCRCOM 50
BEGIN
   PROMPT 18 6 ""
   FLAGS "D"
END

STRING F_PROV 5
BEGIN
   PROMPT 2 7 "Provincia "
   FLAGS "D"
END

STRING F_STABILIM 50
BEGIN
  PROMPT 2 9 "Stabilimento    "
  FIELD S0
END

STRING F_REPARTO 50
BEGIN
  PROMPT 2 10 "Reparto         "
  FIELD S1
END

STRING F_UFFICIO 50
BEGIN
  PROMPT 2 11 "Ufficio         "
  FIELD S2
END

STRING F_PERS_RIF 50
BEGIN
  PROMPT 2 12 "Persona di rif. "
  FIELD S3
END
ENDPAGE
ENDMASK