campo-sirio/cg/cg6400a.uml

#include "cg6400.h"

PAGE "" -1 -1 70 15
     
STRING F_NOMEID 10
BEGIN
  PROMPT 1 1 "Nome simbolico sistema inviante "
  FLAGS "ZD"
END

NUMBER F_CODDITTAINV 5
BEGIN
  PROMPT 1 2 "Codice ditta inviante           "
  FLAGS "ZD"
END

NUMBER F_CODDITTARIC 5
BEGIN
  PROMPT 1 4 "Ditta ricevente "
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTARIC
  OUTPUT F_RAGSOC RAGSOC
  FLAGS "RDZ"
  CHECKTYPE REQUIRED
END
            
STRING F_RAGSOC 50
BEGIN
  PROMPT 1 5 "Ragione sociale "
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 27 7 "Presente su dischetto"
END

TEXT DLG_NULL
BEGIN
  PROMPT 51 7 "Ultimo intrapreso"
END

NUMBER F_NULTRASDSK 3
BEGIN
  PROMPT 1 8 "Numero invio              "
  FLAGS "D"
END

NUMBER F_NULTRASTAB 3
BEGIN
  PROMPT 51 8 ""
  FLAGS "D"
END

DATE F_DATAULTRASDSK 
BEGIN
  PROMPT 1 9 "Data limite trasferimento "
  FLAGS "D"
END

DATE F_DATAULTRASTAB 
BEGIN
  PROMPT 51 9 ""
  FLAGS "D"
END

STRING F_STATO 14
BEGIN                                    
  PROMPT 1 10 "Stato del trasferimento                           "
  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