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
          
LIST F_MONTHS 30
BEGIN 
  PROMPT 16 2 "Periodo   "
  ITEM "1|Gennaio"
  ITEM "2|Febbraio"
  ITEM "3|Marzo"
  ITEM "4|Aprile"
  ITEM "5|Maggio"
  ITEM "6|Giugno"
  ITEM "7|Luglio"
  ITEM "8|Agosto"
  ITEM "9|Settembre"
  ITEM "10|Ottobre"
  ITEM "11|Novembre"
  ITEM "12|Dicembre"
  FLAGS "D"
END

LIST F_TRIMS 30
BEGIN
  PROMPT 16 2 "Periodo   "
  ITEM "3|1° Trimestre"
  ITEM "6|2° Trimestre"
  ITEM "9|3° Trimestre"
  ITEM "12|4° Trimestre"
  FLAGS "DH"       
END

STRING F_CODVAL 3
BEGIN
  PROMPT 0 0 ""
  FLAGS "H"
END

CURRENCY F_VP1 18
BEGIN
  PROMPT 1 4 "VP1  - Operazioni attive (al netto dell'IVA)               "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP1A 18
BEGIN
  PROMPT 1 5 "VP1A - di cui cessioni intracomunitarie                    "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP2 18
BEGIN
  PROMPT 1 6 "VP2  - Operazioni passive (al netto dell'IVA)              "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP2A 18
BEGIN
  PROMPT 1 7 "VP2A - di cui acquisti intracomunitari                     "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP3 18
BEGIN
  PROMPT 1 8 "VP3  - Importazioni di oro e argento senza IVA alla dogana "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP3I 18
BEGIN
  PROMPT 1 9 "                                                   Imposta "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP5 18
BEGIN
  PROMPT 1 10 "VP5  - Iva esigibile per il periodo                        "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP6 18
BEGIN
  PROMPT 1 11 "VP6  - Iva che si detrae per il periodo                    "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP7 18
BEGIN
  PROMPT 1 12 "VP7  - Iva a debito o credito per il periodo               "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP8 18
BEGIN
  PROMPT 1 14 "VP8  - Variazioni d'imposta periodi precedenti             "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP9 18
BEGIN
  PROMPT 1 15 "VP9  - Iva non versata da dichiarazioni precedenti         "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP10 18
BEGIN
  PROMPT 1 16 "VP10 - Debito o credito dal periodo precedente             "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP11 18
BEGIN
  PROMPT 1 17 "VP11 - Credito IVA compensabile                            "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP12 18
BEGIN
  PROMPT 1 18 "VP12 - IVA dovuta o a credito del periodo                  "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

ENDPAGE

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

CURRENCY F_VP13 18
BEGIN
  PROMPT 1 1 "VP13 - Crediti speciali d'imposta detratti                 "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP14 18
BEGIN
  PROMPT 1 2 "VP14 - Interessi dovuti per liquidazione trimestrale       "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP15 18
BEGIN
  PROMPT 1 3 "VP15 - Acconto versato                                     "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP16 18
BEGIN                                              
  PROMPT 1 4 "VP16 - Importo da versare                                  "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

GROUPBOX DLG_NULL 79 5
BEGIN
  PROMPT 0 16 "@bVP17 - Estremi del versamento"
END                 
                                        
DATE F_VP17_DATA
BEGIN
  PROMPT 1 17 "Data             "
  FLAGS "D"
  GROUP G_VP17
END

CURRENCY F_VP17_IMPORTO 18
BEGIN
  PROMPT 38 17 "Importo versato  "
  FLAGS "DR"
  DRIVENBY F_CODVAL
  GROUP G_VP17
END

NUMBER F_VP17_ABI 5
BEGIN
  PROMPT 1 18 "Codice ABI       "
  FIELD S7
  FLAGS "DRZ"
  USE %BAN
  INPUT CODTAB[1,5] F_VP17_ABI
  INPUT CODTAB[6,10] F_VP17_CAB
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_VP17_ABI CODTAB[1,5]
  OUTPUT F_VP17_CAB CODTAB[6,10]
  CHECKTYPE NORMAL
  WARNING "Banca assente"
  GROUP G_VP17
END

NUMBER F_VP17_CAB 5
BEGIN
  PROMPT 38 18 "Codice CAB       "
  FLAGS "DRZ"
  COPY ALL F_VP17_ABI
  CHECKTYPE NORMAL
  WARNING "Banca assente"
  GROUP G_VP17
END

NUMBER F_VP17_CONCESSIONE 3
BEGIN
  PROMPT 1 19 "Concessione      "
  FLAGS "DRZ"
  USE %UCC
  INPUT CODTAB F_VP17_CONCESSIONE
  DISPLAY "Concessione " CODTAB[1,5]
  DISPLAY "Descrizione @50" S0
  OUTPUT F_VP17_CONCESSIONE CODTAB
  CHECKTYPE NORMAL
  WARNING "Concessione assente"
  GROUP G_VP17
END

BOOLEAN F_VP17_STAMPATO 
BEGIN
  PROMPT 38 19 "Stampato"
  FLAGS "D"
END

ENDPAGE
ENDMASK