campo-sirio/cg/cg6801a.uml

#include "cg6800.h"

TOOLBAR "topbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Selezione Ditta" 0 2 0 0

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Codice    "
  HELP "Codice della ditta da attivare"
  FLAGS "FR"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  CHECKTYPE NORMAL
  WARNING "Ditta assente"
  KEY 1
  GROUP 1
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 1 2 "Rag. Soc. "
  USE LF_NDITTE KEY 2
  HELP "Ragione sociale della ditta da selezionare"
  INPUT RAGSOC F_RAGDITTA
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Codice" CODDITTA
  COPY OUTPUT F_CODDITTA
  KEY 2
  GROUP 1
END

ENDPAGE

ENDMASK