campo-sirio/cg/cg21sld.uml

PAGE "Registrazione 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 "DR"
END

NUMBER FS_IMPOSTE 15
BEGIN                       
  PROMPT 29 1 "Imposte "
  PICTURE "."
  FLAGS "DR"
END

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


RADIOBUTTON FS_RDIFFER 31
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
           
NUMBER FS_NRATE 3
BEGIN
  PROMPT 36 6 "Numero di rate  "
END          
           
BOOLEAN FS_RECALC
BEGIN
  PROMPT 58 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 
  HELP "Attiva/disattiva il ricalcolo automatico delle scadenze"
END          

BOOLEAN FS_MCOMM
BEGIN
  PROMPT 36 5 "Mese commerciale"       
END          


STRING FS_NAMEPAG 27
BEGIN 
  PROMPT 36 3 "Pagamento       "
  FLAGS "D"
END

STRING FS_TIPOPR 27
BEGIN 
  PROMPT 36 4 "Tipo prima rata "
  FLAGS "D"
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 40 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 40 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 27 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
BEGIN  
  PROMPT 0 11 "Rate"                        
  ITEM "Scadenza@10"
  ITEM "Importo@15"
  ITEM "In Valuta@15"
  ITEM "%@6"
  ITEM "Tipo"              
  ITEM "Pagamento@32"              
  ITEM "Ns.ABI"
  ITEM "Ns.CAB"
  ITEM "Vs.ABI"
  ITEM "Vs.CAB"
  ITEM "Pagata"
END

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

ENDPAGE