campo-sirio/m770/771310a.uml

#include "771310.h"    

TOOLBAR "" 0 -4 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 3
BEGIN
  PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 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 16 1 ""
  FLAGS "D"
END                                

NUMBER F_ANNODIC 4
BEGIN
  PROMPT 68 1 "Anno "
END

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 1 2 ""
END

NUMBER F_QLANNOPAG 4
BEGIN
  PROMPT 2 3 "Anno pagamento       "     
  USE LF_QUAL
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT QLAP F_QLANNOPAG
  INPUT QLMP F_QLMESEPAG  
  DISPLAY "A.P."            QLAP     
  DISPLAY "M.P."            QLMP   
  DISPLAY "Ritenute@15V"    QLRITEFF
  DISPLAY "Importo versato@V" QLRITVEREC
  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 "Note@20"         QLNOTE
  OUTPUT F_CODDITTA   CODDITTA
  OUTPUT F_QLANNOPAG  QLAP
  OUTPUT F_QLMESEPAG  QLMP
  OUTPUT F_QLDATAVERS QLDV
  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                    
  CHECKTYPE SEARCH
END 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

LIST F_QUADRO 2
BEGIN
  PROMPT 2 9 "Codice quadro  "
  HELP "Inserire il codice quadro"
  ITEM "| "
  ITEM "LA|LA"                     
  ITEM "SF|SF"                     
  ITEM "SG|SG"                    
  ITEM "ST|ST"                   
  FIELD LF_QUAL->QLCODQUA
END

CURRENCY F_QLRITEFF 15
BEGIN
  PROMPT 2 10 "Ritenute Operate "
  FIELD LF_QUAL->QLRITEFF
END

CURRENCY F_QLRITVEREC 15
BEGIN
  PROMPT 42 10 "Rit. Vers. Ecc.  "
  FIELD LF_QUAL->QLRITVEREC
END

CURRENCY F_QLRITCOMP 15
BEGIN
  PROMPT 2 11 "Rit.  Compensate " 
  FIELD LF_QUAL->QLRITCOMP
END

NUMBER F_CALCDIFF 15
BEGIN
  PROMPT 42 11 "Calcolo differenza"
  FLAGS "H"
  DRIVENBY F_QLRITEFF F_QLRITVEREC F_QLRITCOMP
  NUM_CALC #F_QLRITEFF-#F_QLRITVEREC-#F_QLRITCOMP
  MESSAGE COPY,F_QLDIFF
END

CURRENCY F_QLDIFF 15
BEGIN        
  PROMPT 42 11 "Differenza       "
  FLAGS "D"
END

CURRENCY F_QLINTER 15
BEGIN        
  PROMPT 2 12 "Interessi        "
  FIELD LF_QUAL->QLINTERESS
END  

STRING F_EVENTI 1
BEGIN
  PROMPT 42 12 "Eventi eccezionali "
  FLAGS "U"
  FIELD LF_QUAL->QLEVENTI
END

BOOLEAN F_VALDIV 
BEGIN
  PROMPT 2 13 "Versamento in diversa valuta"
  FIELD LF_QUAL->QLVALDIV
END

NUMBER F_REGIONE 2
BEGIN
  PROMPT 42 13 "Regione "
  FLAGS "Z"
  USE %RGI
  INPUT CODTAB F_REGIONE
  DISPLAY "Codice" CODTAB
  DISPLAY "Denominazione@50" S0
  OUTPUT F_REGIONE CODTAB
  CHECKTYPE NORMAL
  FIELD LF_QUAL->QLREGIONE
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