campo-sirio/m770/77g1a.uml

#include "77g1a.h"      

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Quadro G1" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  FIELD LF_QUAG1->CODDITTA
  KEY 1
  CHECKTYPE REQUIRED             
  FLAGS "GRD"
  MESSAGE COPY,1@
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 17 1 "Ragione "
  FLAGS "D"      
  MESSAGE COPY,2@
END

LIST DLG_NULL 1
BEGIN
  PROMPT 80 80 "Numero riga"
  FIELD NPROG
  ITEM "1|1"
  FLAGS "D"
  KEY 1
END
                     
TEXT DLG_NULL
BEGIN        
  PROMPT 1 3 "@bUtili dei titoli esteri distribuiti nell'anno 1996"
END

SPREADSHEET F_PI 0 13
BEGIN
  PROMPT 0 4 ""
  ITEM "Utili nel I\nsemestre 1996@15"
  ITEM "Utili nel II\nsemestre 1996@15"
  ITEM "Aliquota"
  ITEM "Rit. acc.\n20/7/1996@15"
  ITEM "Rit. acc.\n20/1/1997@15"
  ITEM "Rit. imp.\n20/7/1996@15"
  ITEM "Rit. imp.\n20/1/1997@15"
END

ENDPAGE

ENDMASK

#include "77g1pa.uml"