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

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                                

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 F_CAB				QLNUMERO[1,5]
  OUTPUT F_NPROG			QLNUMERO[6,11]
  OUTPUT F_QLNUMERO		QLNUMERO
  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 HIDE,G_ABICAB@|HIDE,G_DISTINTA@|HIDE,G_CC@
  ITEM "B|Delega bancaria"               
  MESSAGE RESET,G_CC@|HIDE,G_CC@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_ABICAB@
  ITEM "D|Distinta"
  MESSAGE RESET,G_CC@|HIDE,G_CC@|RESET,G_ABICAB@|HIDE,G_ABICAB@|SHOW,G_DISTINTA@
  ITEM "C|C/C Postale"                   
  MESSAGE RESET,G_ABICAB@|HIDE,G_ABICAB@|RESET,G_DISTINTA@|HIDE,G_DISTINTA@|SHOW,G_CC@
  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          

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Serie        "             
  GROUP G_DISTINTA G_DISTINTA_TESORERIA
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 10 "Numero       "             
  GROUP G_DISTINTA
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 10 "Quietanza    "             
  GROUP G_CC
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Codice ABI "
  GROUP G_ABICAB
END

TEXT DLG_NULL
BEGIN
  PROMPT 46 10 "Codice CAB "
  GROUP G_ABICAB
END

STRING F_QLSERIE 5
BEGIN
  PROMPT 23 10 ""
  FIELD LF_QUAL->QLSERIE
  GROUP G_DISTINTA G_DISTINTA_TESORERIA
  KEY 1
END                             

STRING F_QLNUMERO 11
BEGIN
  PROMPT 63 10 ""
  FIELD LF_QUAL->QLNUMERO
  GROUP G_DISTINTA
  KEY 1
END

STRING F_CCQUIETANZA 11
BEGIN
  PROMPT 63 10 ""
  FIELD LF_QUAL->QLNUMERO
  GROUP G_CC
  KEY 1
END

NUMBER F_ABI 5
BEGIN
  PROMPT 23 10 ""
  FIELD LF_QUAL->QLSERIE    
  FLAGS "Z"
  GROUP G_ABICAB
  KEY 1
END            
                 
NUMBER F_CAB 5
BEGIN
  PROMPT 63 10 ""
  FIELD LF_QUAL->QLNUMERO[1,5]
  FLAGS "Z"  
  GROUP G_ABICAB
  KEY 1
END

NUMBER F_NPROG 6
BEGIN
  PROMPT 69 10 ""
  FIELD LF_QUAL->QLNUMERO[6,11]
  FLAGS "Z"          
  GROUP G_ABICAB
  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