campo-sirio/src/cg/cg5500b.uml

#include "cg5500a.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -13 -1 "~Registra"
PICTURE TOOL_SAVEREC
MESSAGE EXIT,K_SAVE
END

BUTTON DLG_PRINT 2 2
BEGIN
  PROMPT 1 1 "Stampa"
  PICTURE TOOL_PRINT
END

BUTTON DLG_SETPRINT 2 2
BEGIN
  PROMPT 2 1 "Imposta"
  PICTURE TOOL_SETPRINT
END

#include <cancelbar.h>

ENDPAGE

PAGE "Liquidazione"  0 0 0 2
     
GROUPBOX DLG_NULL 79 3
BEGIN
  PROMPT 0 1 "@bDitta corrente"
END                 
                    
NUMBER F_CODDITTA 5
BEGIN         
  PROMPT 2 2  "Codice "
  FLAGS "DFR"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_RAGSOC2 RAGSOC
  CHECKTYPE REQUIRED
END

STRING F_RAGSOC 50
BEGIN                       
  PROMPT 16 2 ""
  FLAGS "D"
END                                                           

CURRENCY F_CREDPREC 15
BEGIN
  PROMPT 1 5 "Credito inizio anno              "
END

CURRENCY F_CREDUTILIN 15
BEGIN
  PROMPT 1 6 "Credito utilizzato a Gennaio     "
END

SPREADSHEET F_VISLIQ1 -2 -1
BEGIN  
  PROMPT 0 7 "Liquidazione"
  ITEM "Mese@10"
  ITEM "IVA dovuta o\na credito@15"
  ITEM "D/C@3"    
  ITEM "Risultato@15"
  ITEM "D/C@3"                     
  ITEM "IVA rimborso@15"
  ITEM "IVA rettifiche@15"
  ITEM "D/C@3"                     
  ITEM "Credito\nutilizzato IVA@15"
  ITEM "Credito utilizzato F24@20"
  ITEM "Credito anno in corso\nautorizzato F24@20"
  ITEM "Data autorizzazione@20"
  ITEM "Credito IVA\nresiduo@15"
  ITEM "Descrizione@50"
END

ENDPAGE

PAGE "Versamenti"  -1 -1 77 20
     
GROUPBOX DLG_NULL 79 3
BEGIN
  PROMPT 0 1 "@bDitta corrente"
END                 
                    
NUMBER F_CODDITTA2 5
BEGIN         
  PROMPT 2 2  "Codice "
  FLAGS "DFR"
END

STRING F_RAGSOC2 50 
BEGIN                       
  PROMPT 16 2 ""
  FLAGS "D"
END                                                           

SPREADSHEET F_VISLIQ2 -2 -1
BEGIN  
  PROMPT 1 5 "Versamenti" 
  ITEM   "Mese@15"        
  ITEM   "Data@10"
  ITEM   "ABI@5"
  ITEM   "CAB@5"
  ITEM   "Conc.@5"
  ITEM   "Versamenti@15" 
  ITEM   "Interessi@15"
  ITEM   "Stampato"
END

ENDPAGE
ENDMASK

TOOLBAR "topbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Prospetto mensile" -1 -1 -1 -1

STRING S_MESE 20
BEGIN        
  PROMPT 1 1 "Mese                                   "
  FLAGS "D"
END


CURRENCY S_IVA 15
BEGIN
  PROMPT 1 2 "IVA dovuta o credito                   "
  FLAGS "D"
END

LIST S_DEBCRED3 1 10
BEGIN
  PROMPT 57 2  ""
  ITEM " | "
  ITEM "D|Debito"
  ITEM "C|Credito"
  FLAGS "DU" 
END                                                

CURRENCY S_RISULTATO 15
BEGIN
  PROMPT 1 3 "Risultato                              "
  FLAGS "D"
END

LIST S_DEBCRED1 1 10
BEGIN
  PROMPT 57 3  ""
  ITEM " | "
  ITEM "D|Debito"
  ITEM "C|Credito"
  FLAGS "DU" 
END                                                

CURRENCY S_RIMBORSO 15
BEGIN
  PROMPT 1 4 "IVA rimborso                           "                                
  PICTURE "."
  GROUP 11
END
          
CURRENCY S_RETTIFICHE 15
BEGIN
  PROMPT 1 5 "IVA rettifiche                         "
  GROUP 11
END

LIST S_DEBCRED2 1 10
BEGIN
  PROMPT 57 5  ""
  ITEM " | "
  ITEM "D|Debito"
  ITEM "C|Credito"
  FLAGS "U" 
  GROUP 11
END                                                

CURRENCY S_CREDIVA 15
BEGIN
  PROMPT 1 6 "Credito utilizzato IVA                 "
  FLAGS "D"
  GROUP 12
END

CURRENCY S_CREDF24PRE 15
BEGIN
  PROMPT 1 7 "Credito utilizzato F24 anno precedente "
  GROUP 12
  FLAGS "D"
END

CURRENCY S_CREDF24 15
BEGIN
  PROMPT 1 8 "Credito autorizzato F24 anno in corso  "
  GROUP 12
  FLAGS "D"
END

DATE S_DATAAUT
BEGIN
  PROMPT 1 9 "Data di autorizzazione                 "
  GROUP 12
  CHECTYPE REQUIRED
  WARNING "La data <20> obbligatoria"
  FLAGS "D"
END

CURRENCY S_CREDRES 15
BEGIN
  PROMPT 1 10 "Credito IVA residuo                    "
    FLAGS "D"
  GROUP 12
END


STRING S_DESCR 50 35
BEGIN
  PROMPT 1 11 "Descr. "
  GROUP 12
  FLAGS "D"
END

BUTTON 100 10 2
BEGIN
  PROMPT -11 -2 "<D>ettaglio"
END

ENDPAGE
ENDMASK

TOOLBAR "topbar" 0 0 0 2

#include <stdbar.h>

ENDPAGE

PAGE "Prospetto versamenti" -1 -1 -1 -1
         
STRING S_MESE 20
BEGIN        
  PROMPT 1 1 "Mese           "
  FLAGS "D"
END

DATE S_DATA
BEGIN
  PROMPT 1 2 "Data           "
END

NUMBER S_ABI 5
BEGIN
  PROMPT 1 3 "Codice ABI     "
  HELP "Codice ABI banca di appoggio"
  FIELD S7
  FLAGS "RZ"
  USE %BAN KEY 1 SELECT CODTAB ?= "?????"
  INPUT CODTAB 103
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Descrizione @50" S0
  OUTPUT 103 CODTAB[1,5]
  OUTPUT 104 CODTAB[6,10]
  CHECKTYPE NORMAL
  WARNING "Codice ABI assente"
END


NUMBER S_CAB 5
BEGIN
  PROMPT 1 4 "Codice CAB     "
  HELP "Codice CAB banca di appoggio"
  FIELD S8
  FLAGS "RZ"
  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"
  INPUT CODTAB[1,5] 103
  INPUT CODTAB[6,10] 104
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT 103 CODTAB[1,5]
  OUTPUT 104 CODTAB[6,10]
  CHECKTYPE NORMAL
  VALIDATE REQIF_FUNC 1 103
  WARNING "Banca assente"
END


NUMBER S_CONC 3
BEGIN
  PROMPT 1 5  "Concessione    "  
  FLAGS "RZ"
  USE %UCC
  INPUT CODTAB 105
  DISPLAY "Concessione " CODTAB[1,5]
  DISPLAY "Descrizione @50" S0
  OUTPUT 105 CODTAB
  CHECKTYPE NORMAL
  WARNING "Concessione assente"
  HELP "Codice Concessione del Comune di residenza fiscale"
END

CURRENCY S_VERSAMENTO 15
BEGIN
  PROMPT 1 6 "Versamenti     "
END

CURRENCY S_INTERESSI 15
BEGIN
  PROMPT 1 7 "Interessi      "
  FLAGS "R"
END

BOOLEAN S_STAMPATO
BEGIN
  PROMPT 1 8 "Stampato"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -13 -2 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -2 ""
END

BUTTON 100 10 2
BEGIN
  PROMPT -11 -2 "<D>ettaglio"
END

ENDPAGE

ENDMASK