campo-sirio/cg/cg5700b.uml

#include "cg5700.h"
 
TOOLBAR "" 0 -3 0 3

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -11 ""
  MESSAGE EXIT, K_ENTER
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Pag.1" -1 -1 78 20

GROUPBOX DLG_NULL 79 4
BEGIN
  PROMPT 0 0 "@bDitta corrente"
END                 
                                        
NUMBER F_CODDITTA 5
BEGIN         
  PROMPT 2 1  "Codice "
  FLAGS "D"
END

STRING F_RAGSOC 50
BEGIN                       
  PROMPT 16 1 "Rag. Soc. "
  FLAGS "D"
END                                                           

NUMBER F_YEAR 4
BEGIN
  PROMPT 2 2 "Anno   "
  FLAGS "D"
END

CURRENCY F_CD1_1 18
BEGIN
  PROMPT 1 4 "@bCD1 Operazioni attive      "
  FLAGS "D"
END

CURRENCY F_CD1_2 18
BEGIN
  PROMPT 1 5 "                di cui: operazioni non imponibili          "
  FLAGS "D"
END

CURRENCY F_CD1_3 18
BEGIN
  PROMPT 1 6 "                        operazioni esenti                  "
  FLAGS "D"
END

CURRENCY F_CD1_4 18
BEGIN
  PROMPT 1 7 "                        cessioni intracomunitarie di beni  "
  FLAGS "D"
END

CURRENCY F_CD2_1 18
BEGIN
  PROMPT 1 9 "@bCD2 Operazioni passive     "
  FLAGS "D"
END

CURRENCY F_CD2_2 18
BEGIN
  PROMPT 1 10 "                di cui: operazioni non imponibili          "
  FLAGS "D"
END

CURRENCY F_CD2_3 18
BEGIN
  PROMPT 1 11 "                        operazioni esenti                  "
  FLAGS "D"
END

CURRENCY F_CD2_4 18
BEGIN
  PROMPT 1 12 "                        acquisti intracomunitari di beni   "
  FLAGS "D"
END

TEXT -1
BEGIN
  PROMPT 1 14 "@bImportazioni di oro industriale e argento puro senza IVA alla dogana "
END

CURRENCY F_CD3_1 18
BEGIN
  PROMPT 1 15 "CD3 Imponibile             "
  FLAGS "D"
END

CURRENCY F_CD3_2 18
BEGIN
  PROMPT 52 15 "Imposta "
  FLAGS "D"
END

CURRENCY F_CD4 18
BEGIN
  PROMPT 1 17 "CD4 Iva esigibile          "
  FLAGS "D"
END

CURRENCY F_CD5 18
BEGIN
  PROMPT 1 18 "CD5 Iva detraibile                                         "
  FLAGS "D"
END

CURRENCY F_CD6_1 18
BEGIN
  PROMPT 1 19 "CD6 IVA dovuta             "
  FLAGS "D"
END

CURRENCY F_CD6_2 18
BEGIN
  PROMPT 48 19 "o a credito "
  FLAGS "D"
END

ENDPAGE

ENDMASK