campo-sirio/m770/771310a.uml

// 771310a.uml - Quadro L
#include "771310.h"
TOOLBAR "" 0 18 0 4
BUTTON F_GENERA 21 2
BEGIN
  PROMPT -13 -3 "~Generazione"
END

BUTTON F_PARAMETRI 21 2
BEGIN
  PROMPT -23 -3 "~Parametri Generazione"
END

#include <toolbar.h>
ENDPAGE

PAGE "QUADRO L" -1 -1 78 18

#define	ABI_CAB			7
#define	NUM_SERIE		8
#define	TEXT_NUM_SERIE	9
#define	TEXT_ABI_CAB	6
#define	GH				10

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta             "
  FLAGS "RDG"
  USE LF_NDITTE KEY 1
  FIELD LF_QUAL->CODDITTA
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_RAGSOC RAGSOC  
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale   "
  FLAGS "D"
END                                

TEXT 96
BEGIN
  PROMPT 2 10 "Numero serie "             
  GROUP TEXT_NUM_SERIE
END

TEXT 97
BEGIN
  PROMPT 2 10 "Codice ABI "
  GROUP ABI_CAB
END

TEXT 98
BEGIN
  PROMPT 46 10 "Numero quietanza "
  GROUP TEXT_NUM_SERIE
END

TEXT 99
BEGIN
  PROMPT 46 10 "Codice CAB "
  GROUP ABI_CAB
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 0 5 ""
END

NUMBER F_ANNODIC 4
BEGIN
  PROMPT 2 4 "Anno dichiarazione "
END

NUMBER F_QLANNOPAG 4
BEGIN
  PROMPT 2 6 "Anno pagamento       "     
  USE LF_QUAL KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (QLAP=#F_ANNODIC))
  INPUT CODDITTA F_CODDITTA
  INPUT QLAP F_QLANNOPAG
  DISPLAY "A.P." 			QLAP     
  DISPLAY "M.P." 			QLMP   
  DISPLAY "Ritenute@15" 	QLRITEFF
  DISPLAY "Importo versato" QLRITVER
  DISPLAY "L.V." 			QLLV
  DISPLAY "T.V." 			QLTV
  DISPLAY "C.T." 			QLCT
  DISPLAY "Art.Bil." 		QLAB
  DISPLAY "Data Vers." 		QLDV
  DISPLAY "Serie/ABI" 		QLSERIE
  DISPLAY "Numero/CAB@11" 	QLNUMERO
  DISPLAY "Rss" 			QLRSS
  DISPLAY "Note@7" 			QLNOTE
  OUTPUT F_QLDATAVERS	QLDV
  OUTPUT F_QLMESEPAG	QLMP
  OUTPUT F_QLANNOPAG	QLAP
  OUTPUT F_QLLUOVERS	QLLV
  OUTPUT F_QLTIPOVERS	QLTV
  OUTPUT F_QLCODTRIB	QLCT
  OUTPUT F_ARTBIL		QLAB
  OUTPUT F_QLSERIE		QLSERIE
  OUTPUT F_ABI			QLSERIE     
  OUTPUT FH_NUMERO		QLNUMERO
  OUTPUT FH_ABISERIE	QLSERIE
  OUTPUT F_CAB1			QLNUMERO[1,5]
  OUTPUT F_CAB			QLNUMERO[6,11]
  FIELD LF_QUAL->QLAP
  FLAGS "R"
  VALIDATE FIXLEN_FUNC 4 
  WARNING "L' anno deve essere indicato per esteso"
  KEY 1
END 

LIST F_QLMESEPAG 2 13
BEGIN
  PROMPT 46 6 "Mese pagamento   "
  FIELD LF_QUAL->QLMP
  ITEM " |Indefinito"
  FLAGS "M"
  KEY 1
END

DATE F_QLDATAVERS
BEGIN
  PROMPT 2 7  "Data versamento      "
  FIELD LF_QUAL->QLDV
  KEY 1
END

LIST F_QLLUOVERS 11
BEGIN
  PROMPT 46 7 "Luogo versamento "  
  ITEM " |Nessuno"
  ITEM "C|Concessione"
  ITEM "T|Tesoreria"
  FIELD LF_QUAL->QLLV
  KEY 1
END

LIST F_QLTIPOVERS 15
BEGIN
  PROMPT 2 8 "Tipo versamento      "
  ITEM " |Nessuno"   
  MESSAGE SHOW,97|SHOW,99|HIDE,96|HIDE,98|RESET,GH@
  MESSAGE ENABLE,F_QLSERIE  
  ITEM "B|Delega bancaria"               
  MESSAGE RESET,GH@|HIDE,TEXT_NUM_SERIE@|SHOW,ABI_CAB@
  MESSAGE ENABLE,ABI_CAB@|DISABLE,NUM_SERIE@
  ITEM "D|Distinta"
  MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|HIDE,ABI_CAB@
  MESSAGE ENABLE,NUM_SERIE@|DISABLE,ABI_CAB@
  ITEM "C|C/C Postale"                   
  MESSAGE RESET,GH@|SHOW,TEXT_NUM_SERIE@|CLEAR,F_ABI|CLEAR,F_QLSERIE|HIDE,ABI_CAB@
  MESSAGE DISABLE,F_QLSERIE|DISABLE,ABI_CAB@
  FIELD LF_QUAL->QLTV
  KEY 1
END

NUMBER F_QLCODTRIB 4
BEGIN
  PROMPT 46 8 "Codice tributo   " 
  FIELD LF_QUAL->QLCT
  KEY 1
END
                     
NUMBER F_ARTBIL 2
BEGIN
  PROMPT 2 9 "Articolo di bilancio "
  FIELD LF_QUAL->QLAB
  KEY 1
END

STRING FH_ABISERIE 5
BEGIN
  PROMPT 0 1 "HABISERIE"
  FIELD LF_QUAL->QLSERIE
  FLAGS "D"             
  KEY 1
  GROUP GH
END

STRING FH_NUMERO 11
BEGIN
  PROMPT 0 2 "HNUMERO"
  FIELD LF_QUAL->QLNUMERO
  KEY 1
  FLAGS "D"
  GROUP GH
END

STRING F_QLSERIE 5
BEGIN
  PROMPT 23 10 ""
  FIELD LF_QUAL->QLSERIE
  MESSAGE COPY,FH_ABISERIE  
  GROUP NUM_SERIE
//  KEY 1
END                             

STRING F_QLNUMERO 11
BEGIN
  PROMPT 63 10 ""
  FIELD LF_QUAL->QLNUMERO
//  MESSAGE COPY,FH_NUMERO
  GROUP NUM_SERIE
//  KEY 1
END

NUMBER F_ABI 5
BEGIN
  PROMPT 23 10 ""
  FIELD LF_QUAL->QLSERIE    
  MESSAGE COPY,FH_ABISERIE    
  GROUP ABI_CAB
//  KEY 1
END            
                 
NUMBER F_CAB1 5
BEGIN
  PROMPT 63 10 ""
  FIELD LF_QUAL->QLNUMERO[1,5]
//  MESSAGE COPY,FH_NUMERO
  GROUP ABI_CAB
//  KEY 1
END

NUMBER F_CAB 6
BEGIN
  PROMPT 69 10 ""
  FIELD LF_QUAL->QLNUMERO[6,11]
  FLAGS "Z"          
//  MESSAGE ADD,FH_NUMERO
  GROUP ABI_CAB
//  KEY 1
END

LIST F_QUADRO 2
BEGIN
  PROMPT 0 12 "Codice quadro  "
  HELP "Inserire il codice quadro"
  ITEM "| "
  ITEM "A|A"                     
  ITEM "B|B"                     
  ITEM "B1|B1"                    
  ITEM "C|C"
  ITEM "D|D" 
  ITEM "D1|D1"
  ITEM "E|E"                     
  ITEM "E1|E1"                    
  ITEM "G|G"                    
  ITEM "G1|G1"                   
  FIELD LF_QUAL->QLCODQUA
END

TEXT DLG_NULL
BEGIN
  PROMPT 0 13 "Somme assoggettate a ritenuta:"
END

TEXT DLG_NULL
BEGIN
  PROMPT 0 14 "Rit.  Effettuate"
END

NUMBER F_QLRITEFF 15
BEGIN
  PROMPT 0 15 ""
  FIELD LF_QUAL->QLRITEFF
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
  PROMPT 17 14 "Importo versato"
END

NUMBER F_QLRITVER 15
BEGIN
  PROMPT 17 15 ""
  FIELD LF_QUAL->QLRITVER
  PICTURE "."
  FLAGS "R"
END

TEXT DLG_NULL
BEGIN
  PROMPT 37 14 "RSS"
END

LIST F_QLRSS 7
BEGIN
  PROMPT 34 15 ""
  ITEM " |Nessuna"
  ITEM "1|VA"
  ITEM "2|SA"
  ITEM "3|SI"
  FIELD LF_QUAL->QLRSS
END

TEXT DLG_NULL
BEGIN
  PROMPT 58 14 "Note"
END

BOOLEAN F_NOTEA
BEGIN
  PROMPT 45 15 "A"
END

BOOLEAN F_NOTEB
BEGIN
  PROMPT 50 15 "B"
END

BOOLEAN F_NOTEC
BEGIN
  PROMPT 55 15 "C"
END

BOOLEAN F_NOTED
BEGIN
  PROMPT 60 15 "D"
END

BOOLEAN F_NOTEE
BEGIN
  PROMPT 65 15 "E"
END

BOOLEAN F_NOTEF
BEGIN
  PROMPT 70 15 "F"
END

BOOLEAN F_NOTEG
BEGIN
  PROMPT 75 15 "G"
END

ENDPAGE

ENDMASK