campo-sirio/cg/cg6700a.uml

#include "cg6700.h"

PAGE "Controllo movimenti" -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 34
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

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Data limite"
END

DATE F_DATALIMITE 
BEGIN
  PROMPT 2 11 "trasferimento  " 
  FLAGS "D"
END

STRING F_SDT 1
BEGIN
  PROMPT 2 12 "Stato della    "
  FLAGS "DU"
END  

STRING F_SIGLA 1
BEGIN
  PROMPT 21 12 ""
  FLAGS "DU"
END

TEXT DLG_NULL 
BEGIN                                    
  PROMPT 2 13 "ricezione      "
END

STRING F_CHIAVE 60
BEGIN
  PROMPT 17 13 ""
  FLAGS "DU"
END

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

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

ENDMASK