#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 "Riepilogo ST" -1 -1 78 18

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 3 1 "Ditta  "
  FLAGS "RDG"
  USE LF_NDITTE
  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 17 1 "Ragione "
  FLAGS "D"
END                                

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

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 3 ""
END

NUMBER F_QLANNOPAG 4
BEGIN
  PROMPT 2 4 "Anno pagamento       "     
  USE LF_QUAL 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@15R"    QLRITEFF
  DISPLAY "Importo versato@R" 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@20"         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
  OUTPUT F_CCQUIETANZA  QLNUMERO
  FIELD LF_QUAL->QLAP
  VALIDATE FIXLEN_FUNC 4 
  WARNING "L'anno deve essere indicato per esteso"
  KEY 1
END 

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

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

LIST F_QLLUOVERS 11
BEGIN
  PROMPT 45 5 "Luogo versamento "  
  ITEM " |Nessuno"
  ITEM "C|F24"
  ITEM "T|Tesoreria"
  FIELD LF_QUAL->QLLV
  KEY 1
END

LIST F_QLTIPOVERS 15
BEGIN
  PROMPT 2 6 "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 45 6 "Codice tributo   " 
  FIELD LF_QUAL->QLCT
  KEY 1 
  CHECKTYPE REQUIRED
END
                     
NUMBER F_ARTBIL 2
BEGIN
  PROMPT 2 7 "Articolo di bilancio "
  FIELD LF_QUAL->QLAB
  KEY 1
END          

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

TEXT DLG_NULL
BEGIN
  PROMPT 45 8 "Numero       "             
  GROUP G_DISTINTA
END

TEXT DLG_NULL
BEGIN
  PROMPT 45 8 "Quietanza    "             
  GROUP G_CC
END

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

TEXT DLG_NULL
BEGIN
  PROMPT 45 8 "Codice CAB "
  GROUP G_ABICAB
END

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

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

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

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

NUMBER F_NPROG 6
BEGIN
  PROMPT 68 8 ""
  FIELD LF_QUAL->QLNUMERO[6,11]
  FLAGS "Z"          
  GROUP G_ABICAB
  KEY 1
END

LIST F_QUADRO 2
BEGIN
  PROMPT 0 10 "Codice quadro  "
  HELP "Inserire il codice quadro"
  ITEM "| "
  ITEM "SC|SC"                     
  ITEM "SE|SE"                     
  ITEM "SF|SF"                     
  ITEM "SG|SG"                    
  ITEM "ST|ST"                   
  FIELD LF_QUAL->QLCODQUA
END

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

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

CURRENCY F_QLRITEFF 15
BEGIN
  PROMPT 0 13 ""
  FIELD LF_QUAL->QLRITEFF
END

TEXT DLG_NULL
BEGIN
  PROMPT 17 12 "Importo versato"
END

CURRENCY F_QLRITVER 15
BEGIN
  PROMPT 17 13 ""
  FIELD LF_QUAL->QLRITVER
END

TEXT DLG_NULL
BEGIN
  PROMPT 37 12 "RSS"
END

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 14 "Note"
END

BOOLEAN F_NOTEA
BEGIN
  PROMPT 2 15 "A"
  GROUP G_NOTE
END

BOOLEAN F_NOTEB
BEGIN
  PROMPT 7 15 "B"
  GROUP G_NOTE
END

BOOLEAN F_NOTEC
BEGIN
  PROMPT 12 15 "C"
  GROUP G_NOTE
END

BOOLEAN F_NOTED
BEGIN
  PROMPT 17 15 "D"
  GROUP G_NOTE
END

BOOLEAN F_NOTEE
BEGIN
  PROMPT 22 15 "E"
  GROUP G_NOTE
END

BOOLEAN F_NOTEF
BEGIN
  PROMPT 27 15 "F"
  GROUP G_NOTE
END

BOOLEAN F_NOTEG
BEGIN
  PROMPT 32 15 "G"
  GROUP G_NOTE
END

BOOLEAN F_NOTEH
BEGIN
  PROMPT 37 15 "H"
  GROUP G_NOTE
END

BOOLEAN F_NOTEK
BEGIN
  PROMPT 42 15 "K"
  GROUP G_NOTE
END

BOOLEAN F_NOTEL
BEGIN
  PROMPT 47 15 "L"
  GROUP G_NOTE
END

BOOLEAN F_NOTEM
BEGIN
  PROMPT 52 15 "M"
  GROUP G_NOTE
END

BOOLEAN F_NOTEN
BEGIN
  PROMPT 57 15 "N"
  GROUP G_NOTE
END

BOOLEAN F_NOTEP
BEGIN
  PROMPT 62 15 "P"
  GROUP G_NOTE
END

BOOLEAN F_NOTEQ
BEGIN
  PROMPT 67 15 "Q"
  GROUP G_NOTE
END

BOOLEAN F_NOTER
BEGIN
  PROMPT 72 15 "R"
  GROUP G_NOTE
END

BOOLEAN F_NOTES
BEGIN
  PROMPT 2 16 "S"
  GROUP G_NOTE
END

BOOLEAN F_NOTET
BEGIN
  PROMPT 7 16 "T"
  GROUP G_NOTE
END

BOOLEAN F_NOTEU
BEGIN
  PROMPT 12 16 "U"
  GROUP G_NOTE
END

BOOLEAN F_NOTEW
BEGIN
  PROMPT 17 16 "W"
  GROUP G_NOTE
END

BOOLEAN F_NOTEZ
BEGIN
  PROMPT 22 16 "Z"
  GROUP G_NOTE
END

ENDPAGE

ENDMASK