campo-sirio/cg/cg21sld.uml

PAGE "Scadenze"  -1 -1 77 20
     
TEXT DLG_NULL
BEGIN
  PROMPT 1 0 "@bGestione scadenzario"
END                 
                    
NUMBER FS_IMPONIBILI 15
BEGIN         
  PROMPT 1 1  "Imponibili "
  PICTURE "."
  FLAGS "D"
  CHECKTYPE REQUIRED
END

NUMBER FS_IMPOSTE 15
BEGIN                       
  PROMPT 30 1 "Imposte "
  PICTURE "."
  FLAGS "D"
END

NUMBER FS_SPESE 15
BEGIN
  PROMPT 56 1 "Spese "
  PICTURE "."
  FLAGS "DR"
END

RADIOBUTTON FS_RDIFFER 1 35
BEGIN
  PROMPT 1 2 "Opzioni ricalcolo rate" 
  ITEM "1|Differenziate"                 MESSAGE DISABLE,FS_NRATE
  ITEM "2|Uguali (obbligate dalla 2a)"   MESSAGE ENABLE,FS_NRATE
  ITEM "3|Uguali dall'ultima modificata" MESSAGE DISABLE,FS_NRATE
  ITEM "4|Uguali finche' possibile"      MESSAGE DISABLE,FS_NRATE
END

STRING FS_NAMEPAG 50 23
BEGIN 
  PROMPT 38 2 "Pagamento       "
  FLAGS "D"
END

STRING FS_TIPOPR 50 23
BEGIN 
  PROMPT 38 3 "Tipo prima rata "
  FLAGS "D"
END       

BOOLEAN FS_MCOMM
BEGIN
  PROMPT 38 4 "Mese commerciale"       
END          
           
BOOLEAN FS_RECALC
BEGIN
  PROMPT 38 5 "Ricalcolo automatico"       
  MESSAGE TRUE  ENABLE,FS_RDIFFER|ENABLE,FS_MCOMM|K_SPACE,FS_RDIFFER
  MESSAGE FALSE DISABLE,FS_RDIFFER|DISABLE,FS_MCOMM|DISABLE,FS_NRATE 
END          

NUMBER FS_NRATE 3
BEGIN
  PROMPT 38 6 "Numero di rate  "
  CHECKTYPE REQUIRED
  FLAGS "U"
END          

STRING FS_VALUTA 3
BEGIN
  PROMPT 67 6 "Valuta "
  FLAGS "DUZ"
  USE %VAL
  INPUT CODTAB FS_VALUTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT FS_VALUTA CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice valuta assente"
  MESSAGE EMPTY RESET,FS_CAMBIO
  GROUP 3
END

DATE FS_DATACAMBIO
BEGIN
  PROMPT 38 7 "Cambio   "
  FLAGS "DR"
  USE CAM 
  INPUT CODTAB[1,3] FS_VALUTA SELECT
  INPUT CODTAB[4,11] FS_DATACAMBIO
  DISPLAY "Valuta" CODTAB[1,3]
  DISPLAY "Data@10" D0
  DISPLAY "Cambio@18" R10   
  OUTPUT FS_DATACAMBIO D0
  OUTPUT FS_CAMBIO R10
  CHECKTYPE NORMAL
  GROUP 3
END

NUMBER FS_CAMBIO 15 5
BEGIN
  PROMPT 62 7 ""
  FLAGS "DU"
  PICTURE ".5"
  VALIDATE REQIF_FUNC 1 FS_VALUTA
  WARNING "E' stata specificata una valuta ma non il cambio relativo"
  GROUP 3
END

NUMBER FS_NSABI 5
BEGIN
  PROMPT 2 8 "Ns. Banca ABI "
  FLAGS "Z"      
  USE %BAN
  INPUT CODTAB[1,5] FS_NSABI
  INPUT CODTAB[6,10] FS_NSCAB
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT FS_NSABI CODTAB[1,5]
  OUTPUT FS_NSCAB CODTAB[6,10]
  OUTPUT FS_DESCNSABI S0
  CHECKTYPE NORMAL
END

NUMBER FS_NSCAB 5
BEGIN
  PROMPT 25 8 "CAB "
  FLAGS "Z"
  COPY ALL FS_NSABI
  CHECKTYPE NORMAL
END

STRING FS_DESCNSABI 50 37
BEGIN
  PROMPT 38 8 ""
  USE %BAN KEY 2
  INPUT S0 FS_DESCNSABI
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT FS_NSABI
  CHECKTYPE NORMAL
END

NUMBER FS_VSABI 5
BEGIN
  PROMPT 2 9 "Vs. Banca ABI "
  FLAGS "Z"
  COPY USE FS_NSABI
  INPUT CODTAB[1,5] FS_VSABI
  INPUT CODTAB[6,10] FS_VSCAB
  COPY DISPLAY FS_NSABI
  OUTPUT FS_VSABI CODTAB[1,5]
  OUTPUT FS_VSCAB CODTAB[6,10]
  OUTPUT FS_DESCVSABI S0
  CHECKTYPE NORMAL
END

NUMBER FS_VSCAB 5
BEGIN
  PROMPT 25 9 "CAB "
  FLAGS "Z"            
  COPY ALL FS_VSABI
  CHECKTYPE NORMAL
END

STRING FS_DESCVSABI 50 37
BEGIN
  PROMPT 38 9 ""
  COPY USE FS_DESCNSABI
  INPUT S0 FS_DESCVSABI
  COPY DISPLAY FS_DESCNSABI
  COPY OUTPUT FS_VSABI
  CHECKTYPE NORMAL
END

STRING FS_AGENTE 5
BEGIN
  PROMPT 2 10 "Agente        "
  FLAGS "UZ"
  USE AGE
  INPUT CODTAB FS_AGENTE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FS_AGENTE CODTAB
  OUTPUT FS_DESCAGENTE S0
  CHECKTYPE NORMAL
END

STRING FS_DESCAGENTE 50
BEGIN
  PROMPT 25 10 ""
  USE AGE KEY 2
  INPUT S0 FS_DESCAGENTE
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FS_AGENTE
  CHECKTYPE NORMAL
END

SPREADSHEET FS_RATESHEET 0 -2
BEGIN  
  PROMPT 1 11 "Rate"                        
  ITEM "Scadenza@10"
  ITEM "Importo@15"
  ITEM "In Valuta@15"
  ITEM "%@6"
  ITEM "Tipo"              
  ITEM "Classif."              
  ITEM "Pagamento@32"              
  ITEM "Ns.ABI"
  ITEM "Ns.CAB"
  ITEM "Vs.ABI"
  ITEM "Vs.CAB"
  ITEM "Note@50"
  ITEM "Bloccata"
  ITEM "Non cancellabile"
END

BUTTON FS_RESET 7 1
BEGIN
  PROMPT 1 -1 "Reset"
END

ENDPAGE