campo-sirio/cg/cg5500c.uml

#include "cg5500a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -13 -1 "~Registra"
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
MESSAGE EXIT,K_SAVE
END

BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -23 -1 ""
END  

BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -33 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Visualizzazione liquidazione"  -1 -1 77 20
		 
GROUPBOX DLG_NULL 79 3
BEGIN
  PROMPT 0 1 "@BDitta corrente"
END                 
										
NUMBER F_CODDITTA 5
BEGIN         
	PROMPT 2 2  "Codice ditta "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
END

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

NUMBER F_CREDPREC 15
BEGIN
	PROMPT 1 4 "Credito inizio anno "
	FLAGS "R"
    PICTURE "."
END

SPREADSHEET F_VISLIQ1 78 5 
BEGIN  
	PROMPT 1 7 "Liquidazione" 
	ITEM   "Mese@10"
	ITEM   "Risultato@15"
	ITEM   "D/C"
	ITEM   "IVA rimborso@15"              
	ITEM   "IVA rettifiche@15"              
	ITEM   "D/C"
END

SPREADSHEET F_VISLIQ2 78 5
BEGIN  
	PROMPT 1 13 "Versamenti" 
	ITEM   "Mese@10"
	ITEM   "Data@10"
	ITEM   "ABI@5"
	ITEM   "CAB@5"
	ITEM   "Conc.@5"
	ITEM   "Versamenti@15" 
//	ITEM   "D/C"
END

ENDPAGE
ENDMASK

PAGE "Prospetto mensile" -1 -1 50 10

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


NUMBER 102 15 0
BEGIN
	PROMPT 1 2 "Risultato      "
	FLAGS "DR"
    PICTURE "."
END

LIST 103 1 10
BEGIN
	PROMPT 1 3  "Importo a      "
	ITEM " | "
	ITEM "D|Debito"
	ITEM "C|Credito"
	FLAGS "DU" 
END                                                

NUMBER 104 15
BEGIN
	PROMPT 1 4 "IVA a rimborso "                                
    FLAGS "R"
    PICTURE "."
END
			    
NUMBER 105 15
BEGIN
	PROMPT 1 5 "Rettifiche     "                                
    FLAGS "R"
    PICTURE "."
END

LIST 106 1 10
BEGIN
	PROMPT 1 6  "Rettifica a    "
	ITEM " | "
	ITEM "D|Debito"
	ITEM "C|Credito"
	FLAGS "U" 
END                                                
			    
BUTTON DLG_OK 10 2
BEGIN
	PROMPT -13 -1 ""
END

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

BUTTON 100 10 2
BEGIN
	PROMPT -33 -1 "Dettaglio"
// 	FLAGS "H"
END

ENDPAGE
ENDMASK

PAGE "Prospetto versamenti" -1 -1 50 12
			   
STRING 101 20
BEGIN        
	PROMPT 1 1 "Mese           "
    FLAGS "D"
END

DATE 102
BEGIN
	PROMPT 1 2 "Data           "
END

NUMBER 103 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 104 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 105 3
BEGIN
  PROMPT 1 5 "Concessione    "  
  HELP "Codice Concessione del Comune di residenza fiscale"
//  FIELD S9
  FLAGS "RZ"
END


NUMBER 106 15 0
BEGIN
	PROMPT 1 6 "Versamenti     "
    FLAGS "R"
    PICTURE "."
END

/*
LIST 107 1 10
BEGIN
	PROMPT 1 7  "Importo a      "
	ITEM "D|Debito"
	ITEM "C|Credito"
	FLAGS "U"
END                                                
*/
			    
BUTTON DLG_OK 10 2
BEGIN
	PROMPT -13 -1 ""
END

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

BUTTON 100 10 2
BEGIN
	PROMPT -33 -1 "Dettaglio"
//	FLAGS "H"
END

ENDPAGE

ENDMASK