campo-sirio/cg/cg5500b.uml

#include "cg5500a.h"

TOOLBAR "" 0 20 0 2

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

BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -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 "
  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 37 50
BEGIN                       
	PROMPT 16 2 "Rag. soc. "
	FLAGS "D"
END                                                           

NUMBER F_CREDPREC 15
BEGIN
	PROMPT 1 5 "Credito inizio anno "
	FLAGS "D"
END

SPREADSHEET F_VISLIQ1 0 11
BEGIN  
	PROMPT 1 7 "Liquidazione" 
	ITEM   "V@1F#109"                       
	ITEM   "Mese@10"
	ITEM   "Risultato@15"
	ITEM   "D/C"
	ITEM   "IVA rimborso@15"              
	ITEM   "IVA rettifiche@15"              
	ITEM   "D/C"
END

ENDPAGE

PAGE "Visualizzazione liquidazione"  -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 37 50 
BEGIN                       
	PROMPT 16 2 "Rag. soc. "
	FLAGS "D"
END                                                           

SPREADSHEET F_VISLIQ2 0 11
BEGIN  
	PROMPT 1 5 "Versamenti" 
	ITEM   "V@1F#109"                       
	ITEM   "Mese@15"        
	ITEM   "Data@10"
	ITEM   "Azienda@5"
	ITEM   "Dipend.@5"
	ITEM   "Concess.@5"
	ITEM   "Versamenti@15" 
	ITEM   "D/C"
END

ENDPAGE
ENDMASK

PAGE "Prospetto mensile" -1 -1 50 10

STRING 102 20
BEGIN        
	PROMPT 1 2 "Mese           "
END


NUMBER 103 15 0
BEGIN
	PROMPT 1 3 "Risultato      "
END

LIST 104 1 8
BEGIN
	PROMPT 1 4  "Importo a      "
	ITEM "D|Debito"
	ITEM "C|Credito"
	INPUT 105
	OUTPUT 105  
END                                                

NUMBER 105 15
BEGIN
	PROMPT 22 5 "IVA a rimborso "                                
END
			    
NUMBER 106 15
BEGIN
	PROMPT 22 6 "Debito/Credito "                                
END

LIST 107 1 8
BEGIN
	PROMPT 1 7  "Importo a      "
	ITEM "D|Debito"
	ITEM "C|Credito"
	INPUT 105
	OUTPUT 105  
END                                                
			    
BUTTON DLG_OK 10 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON 101 10 2
BEGIN
	PROMPT -22 -1 "Calcola"
END

ENDPAGE
ENDMASK

PAGE "Prospetto versamenti" -1 -1 50 12
			   

STRING 102 20
BEGIN        
	PROMPT 1 2 "Mese           "
END

DATE 103
BEGIN
	PROMPT 1 5 "Data           "
END

STRING 104 5
BEGIN
	PROMPT 1 6 "Azienda        "
END     

STRING 105 5
BEGIN
	PROMPT 1 7 "Dipendenza     "
END

STRING 106 5
BEGIN
	PROMPT 1 8 "Concessionaria "
END

NUMBER 107 15 0
BEGIN
	PROMPT 1 4 "Versamenti     "
END

LIST 108 1 8
BEGIN
	PROMPT 1 9  "Importo a      "
	ITEM "D|Debito"
	ITEM "C|Credito"
	INPUT 105
	OUTPUT 105  
END                                                

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -12 -1 ""
END

BUTTON 101 10 2
BEGIN
	PROMPT -22 -1 "Calcola"
END

ENDPAGE

ENDMASK