#include "cgp4100c.h"

TOOLBAR "" 0 20 0 2

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

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

ENDPAGE

PAGE "Conversione commesse" 0 -1 0 10

STRING F_CMSOMASA 14
BEGIN
  PROMPT 2 2 "Commessa OMASA          "
  FLAGS "D"
END

STRING F_CODCMS 20
BEGIN
  PROMPT 2 4 "Commessa corrispondente "
  FLAGS "UZ"
  USE CMS
  INPUT CODTAB F_CODCMS
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODCMS CODTAB
  OUTPUT F_DESCRCMS S0
  CHECKTYPE NORMAL
END

STRING F_DESCRCMS 50
BEGIN
  PROMPT 2 5 "Descrizione             "
  USE CMS KEY 2
  INPUT S0 F_DESCRCMS
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_CODCMS
  CHECKTYPE NORMAL
END

ENDPAGE
ENDMASK