campo-sirio/ef/ef0100b.uml

// DEFINIZIONE MASCHERA, DELLO SHEET DEI CESSIONARI, PER LA GESTIONE EFFETTI
#include "ef0100.h"

PAGE "Obbligati principali"  -1 -1 76 12

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Rag. sociale  "
  HELP "Inserire la ragione sociale dell'obbligato"
END

STRING F_LOCALITA 35
BEGIN
  PROMPT 2 4 "Localita'     "
  HELP "Inserire la localita dell'obbligato"
END

NUMBER F_STATO 3
BEGIN
  PROMPT 63 4 "Stato   "
  FLAGS "RZ"
  USE %STA
  INPUT CODTAB F_STATO
  DISPLAY "Codice" CODTAB
  DISPLAY "Stato@50" S0
  OUTPUT F_STATO CODTAB
  CHECKTYPE NORMAL
  WARNING "Stato assente"
  HELP "Inserire lo stato in cui risiede l'obbligato"
END

STRING F_COM 4 
BEGIN
  PROMPT 2 6 "Comune        "
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO F_STATO
  INPUT COM F_COM
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  DISPLAY "Comune@50" DENCOM
  OUTPUT F_STATO STATO
  OUTPUT F_COM COM
  OUTPUT F_DENCOM DENCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  HELP "Inserire il comune in cui risiede l'obbligato"
  ADD MASK ba4100a
END

STRING F_DENCOM 50
BEGIN
  PROMPT 24 6 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOM
  DISPLAY "Comune @50" DENCOM
  DISPLAY "Stato" STATO
  DISPLAY "Codice" COM
  COPY OUTPUT F_COM
  CHECKTYPE NORMAL
  ADD MASK ba4100a
END

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

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 ""
  MESSAGE EXIT,K_DEL
END

ENDPAGE

ENDMASK