campo-sirio/m770/777100a.uml

#include "777100a.h"

PAGE "Invio" -1 -1 72 10

NUMBER F_ANNO 4
BEGIN
  PROMPT 47 2 "Anno dichiarazione "
  FLAGS "D"
END

RADIOBUTTON F_SUPPORTO 1 16
BEGIN
  PROMPT 1 1 "Tipo"
  ITEM "D|Dischetti"
    MESSAGE DISABLE,F_PATH|ENABLE,F_DISK
  ITEM "T|Telematico"
    MESSAGE ENABLE,F_PATH|DISABLE,F_DISK
END

LIST F_DISK 2 8
BEGIN
  PROMPT 20 2 ""
  ITEM "A:|Disco A"
  ITEM "B:|Disco B"
END

STRING F_PATH 50
BEGIN
  PROMPT 20 3 ""
END

NUMBER F_DADITTA 5
BEGIN
  PROMPT 1 5 "Da ditta "
  USE LF_BASE 
  JOIN LF_NDITTE INTO CODDITTA=CODDITTA
  INPUT CODDITTA F_DADITTA
  DISPLAY "Ditta" CODDITTA
  DISPLAY "Anno" ANNODIC
  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
  OUTPUT F_DADITTA CODDITTA
  OUTPUT F_DADESC LF_NDITTE->RAGSOC 
  CHECKTYPE SEARCH
END

STRING F_DADESC 50
BEGIN
  PROMPT 20 5 ""
  FLAGS "D"
END

NUMBER F_ADITTA 5
BEGIN
  PROMPT 1 6 "A ditta  "
  COPY USE F_DADITTA
  INPUT CODDITTA F_ADITTA
  COPY DISPLAY F_DADITTA
  OUTPUT F_ADITTA CODDITTA 
  OUTPUT F_ADESC LF_NDITTE->RAGSOC
  CHECKTYPE SEARCH
  NUM_EXPR (#F_ADITTA=0)||(#F_ADITTA>=#F_DADITTA)
  WARNING "La ditta finale deve seguire quella iniziale"
END

STRING F_ADESC 50
BEGIN
  PROMPT 20 6 ""
  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