campo-sirio/m770/776300a.uml

// 776300a.uml
// SELEZIONE DITTA PER MENU STAMPE
// RESA UGUALE ALLA MASCHERA 776100a.uml

#include "776300a.h"

PAGE "Selezione stampa" -1 -1 75 10

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Codice             "
  USE LF_NDITTE SELECT LF_BASE->CODDITTA!=""
  JOIN LF_BASE INTO CODDITTA==CODDITTA
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA     
  OUTPUT F_RAGDITTA RAGSOC 
  HELP "Codice della ditta da selezionare"
  CHECKTYPE REQUIRED                      
  WARNING "Manca la ditta"  
  KEY 1
  GROUP 1
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 1 2 "Rag. Soc.          "
  USE LF_NDITTE KEY 2 SELECT LF_BASE->CODDITTA!=""
  JOIN LF_BASE INTO CODDITTA==CODDITTA
  INPUT RAGSOC F_RAGDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  DISPLAY "Codice" CODDITTA
  OUTPUT F_CODDITTA CODDITTA     
  OUTPUT F_RAGDITTA RAGSOC            
  HELP "Ragione sociale della ditta da selezionare"  
  KEY 2
  GROUP 1
END

NUMBER F_ANNODIC 4
BEGIN
  PROMPT 1 4 "Anno dichiarazione "
  HELP "Anno dichiarazione"
  FLAGS "A"
  WARNING "Inserire l'anno"
  CHECKTYPE REQUIRED
END

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

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

ENDPAGE

ENDMASK