campo-sirio/co/costcmp.uml

#include "costcmp.h"

PAGE "Stampa Compagnie" -1 -1 78 19

NUMBER F_INIZIO1 4
BEGIN
  PROMPT 3 1 "Da Codice compagnia "
  FIELD CODTAB
  KEY 1
  USE %CMP
  FLAGS "Z"
  INPUT CODTAB F_INIZIO1
  DISPLAY "Cod. compagnia" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_INIZIO1 CODTAB
  OUTPUT F_INIZIO2 S0
  CHECKTYPE REQUIRED
END

STRING F_INIZIO2 50
BEGIN
  PROMPT 9 1 "Descrizione      "
  FLAGS "D"
END

NUMBER F_FINE1 4
BEGIN
  PROMPT 3 2 "A Codice compagnia "
  FIELD CODTAB
  KEY 1
  USE %CMP
  FLAGS "Z"
  INPUT CODTAB F_FINE1
  DISPLAY "Cod. compagnia" CODTAB
  DISPLAY "Descrizione@50" S1
  OUTPUT F_INIZIO1 CODTAB
  OUTPUT F_FINE2 S1
  CHECKTYPE REQUIRED
END

STRING F_FINE2 50
BEGIN
  PROMPT 9 2 "Descrizione      "
  FLAGS "D"
END

BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK