campo-sirio/cg/cg5700b.uml

#include "cg5700.h"
 
TOOLBAR "" 0 20 0 2

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

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

ENDPAGE

PAGE "Dichiarazione periodica" -1 -1 78 20

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

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

NUMBER F_YEAR 4
BEGIN
  PROMPT 2 3 "Anno   "
  FLAGS "D"
END
          
LIST F_MONTHS 30
BEGIN 
  PROMPT 16 3 "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 3 "Periodo   "
  ITEM "3|1° Trimestre"
  ITEM "6|2° Trimestre"
  ITEM "9|3° Trimestre"
  ITEM "12|4° Trimestre"
  FLAGS "H"       
END

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

CURRENCY F_VP1 18
BEGIN
  PROMPT 1 5 "VP1  - Ammontare complessivo operazioni attive        "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP2 18
BEGIN
  PROMPT 1 6 "VP2  - Di cui cessioni intracomunitarie               "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP3 18
BEGIN
  PROMPT 1 7 "VP3  - Ammontare complessivo delle operazioni passive "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP4 18
BEGIN
  PROMPT 1 8 "VP4  - Di cui acquisti intracomunitari                "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP5 18
BEGIN
  PROMPT 1 9 "VP5  - Iva a debito del periodo                       "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP6 18
BEGIN
  PROMPT 1 10 "VP6  - Iva a credito del periodo                      "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP7 18
BEGIN
  PROMPT 1 11 "VP7  - Iva credito periodo precedente                 "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP8 18
BEGIN
  PROMPT 1 12 "VP8  - Crediti d'imposta utilizzati                   "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP9 18
BEGIN
  PROMPT 1 13 "VP9  - Interessi                                      "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP10 18
BEGIN
  PROMPT 1 14 "VP10 - Iva da versare                                 "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

CURRENCY F_VP11 18
BEGIN
  PROMPT 1 15 "VP11 - Iva a credito                                  "
  DRIVENBY F_CODVAL
  FLAGS "D"
END

GROUPBOX DLG_NULL 79 5
BEGIN
  PROMPT 0 16 "@bVP12 - Estremi del versamento"
END                 
                                        
DATE F_VP12_DATA
BEGIN
  PROMPT 1 17 "Data             "
  FLAGS "D"
  GROUP G_VP12
END

CURRENCY F_VP12_IMPORTO 18
BEGIN
  PROMPT 38 17 "Importo versato  "
  FLAGS "DR"
  DRIVENBY F_CODVAL
  GROUP G_VP12
END

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

NUMBER F_VP12_CAB 5
BEGIN
  PROMPT 38 18 "Codice CAB       "
  FLAGS "DRZ"
  COPY ALL F_VP12_ABI
  CHECKTYPE NORMAL
  WARNING "Banca assente"
  GROUP G_VP12
END

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

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

ENDPAGE
ENDMASK