campo-sirio/cg/cg6600a.uml

#include "cg6600.h"

PAGE "" -1 -1 78 13
     
NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta ricevente "
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "RDZ"
  CHECKTYPE REQUIRED
END
            
STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale "
  FLAGS "D"
END

NUMBER F_NULTRAS 3
BEGIN
  PROMPT 1 4 "Numero invio    "
  FLAGS "D"
END
                              
TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "Data del"
END
                              
DATE F_DATAULTRAS 
BEGIN
  PROMPT 1 6 "trasferimento   "
  FLAGS "D"
END

STRING F_STD 1
BEGIN
  PROMPT 1 7 "Stato del       "
  FLAGS "DU"
END

STRING F_USELAB 1
BEGIN
  PROMPT 22 7 ""
  FLAGS "DU"
END

STRING F_STATO 60
BEGIN                                    
  PROMPT 1 8 "trasferimento   "
  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