campo-sirio/cg/cg2700a.uml

#include "cg2700.h"

PAGE "" -1 -1 78 17
     
NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta ricevente  "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1  
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale  "
  FLAGS "D"
END

RADIOBUTTON F_LISTA 31
BEGIN
  PROMPT 2 4 "Scelta controllo "
  HELP "Indicare il tipo di controllo"
  ITEM "1|Lista controllo movim. errati"
  ITEM "2|Lista controllo tutti movim."
END

NUMBER F_NUMERO 3
BEGIN
  PROMPT 2 9 "Numero invio                 "
  FLAGS "D"                          
END

DATE F_DATALIMITE 
BEGIN
  PROMPT 2 10 "Data limite trasferimento    " 
  FLAGS "D"
END

TEXT DLG_NULL 
BEGIN                                    
  PROMPT 2 11 "Stato ricezione             "
END

STRING F_SDT 1
BEGIN
  PROMPT 31 11 ""
  FLAGS "D"
END  

STRING F_SIGLA 1
BEGIN
  PROMPT 34 11 ""
  FLAGS "D"
END

STRING F_CHIAVE 15
BEGIN
  PROMPT 37 11 ""
  FLAGS "D"
END

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

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -22 -1 ""
END
                         
ENDPAGE

ENDMASK