campo-sirio/cg/cg21rata.uml

PAGE "Rata pagamento" -1 -1 51 16

DATE 101
BEGIN        
  PROMPT 1 1 "Scadenza       "
  CHECKTYPE REQUIRED
  WARNING "La data di scadenza e' obbligatoria"
END

NUMBER 104 6 2
BEGIN
  PROMPT 1 2 "Percentuale    "
  PICTURE ".2"
  FLAGS "U"
END

CURRENCY 102 18
BEGIN
  PROMPT 1 3 "Importo        "
  CHECKTYPE REQUIRED
  WARNING "L'importo della rata non puo' essere nullo"
END

CURRENCY 103 18
BEGIN
  PROMPT 1 4 "Importo valuta "
  FLAGS "D"
  VALIDATE REQIF_FUNC 1 102
  WARNING "E' necessario specificare anche un importo in valuta"
  DRIVENBY -FS_VALUTA
END

NUMBER 105 1
BEGIN
  PROMPT 1 5 "Tipo pagamento "
  SHEET "Codice|Tipo pagamento@32"
  INPUT 105
  ITEM "1|Rimessa diretta o contanti"
  ITEM "2|Tratta"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Paghero'"
  ITEM "6|Lettera di credito"
  ITEM "7|Tratta accettata"
  ITEM "8|Rapporti interban. diretti"
  ITEM "9|Bonifici"
  OUTPUT 105
END                                                

STRING 106 1
BEGIN
  PROMPT 24 5 "Ulteriore classific. "    
  FLAGS "U"
  USE %CLR
  INPUT CODTAB[1,1] 105 SELECT 
  INPUT CODTAB[2,2] 106
  DISPLAY "Tipo pagamento" CODTAB[1,1]
  DISPLAY "Classificazione" CODTAB[2,2]
  DISPLAY "Descrizione@50" S0
  OUTPUT 106 CODTAB[2,2]
  CHECKTYPE NORMAL
END

STRING 107 50 32
BEGIN
  PROMPT 1 6 "Descrizione    "                                
  FLAGS "D"
END

NUMBER 108 5
BEGIN
  PROMPT 1 7 "Ns. Banca ABI  "
  FLAGS "Z"
  USE %BAN SELECT CODTAB?="?????"
  INPUT CODTAB 108
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT 108 CODTAB[1,5]
  CHECKTYPE NORMAL
END

NUMBER 109 5
BEGIN
  PROMPT 27 7 "Ns. Banca CAB "
  FLAGS "Z"            
  USE %BAN
  INPUT CODTAB[1,5] 108
  INPUT CODTAB[6,10] 109
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT 108 CODTAB[1,5]
  OUTPUT 109 CODTAB[6,10]
  OUTPUT 126 S0
  CHECKTYPE NORMAL
END

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

NUMBER 110 5
BEGIN
  PROMPT 1 9 "Vs. Banca ABI  "
  FLAGS "Z"      
  COPY USE 108
  INPUT CODTAB 110
  COPY DISPLAY 108
  OUTPUT 110 CODTAB[1,5]
  CHECKTYPE NORMAL
END

NUMBER 111 5
BEGIN
  PROMPT 27 9 "Vs. Banca CAB "
  FLAGS "Z"
  COPY USE 109
  INPUT CODTAB[1,5] 110
  INPUT CODTAB[6,10] 111
  COPY DISPLAY 109
  OUTPUT 110 CODTAB[1,5]
  OUTPUT 111 CODTAB[6,10]
  OUTPUT 128 S0
  CHECKTYPE NORMAL
END

STRING 128 50 45
BEGIN
  PROMPT 1 10 ""
  COPY USE 126
  INPUT S0 128
  COPY DISPLAY 126
  COPY OUTPUT 111
  CHECKTYPE NORMAL
END

TEXT DLG_NULL
BEGIN  
  PROMPT 1 11 "Note:"
END

STRING 112 50 47
BEGIN
  PROMPT 1 12 ""
END

BOOLEAN 113
BEGIN      
  PROMPT 1 13 "Bloccata"
  MESSAGE FALSE CLEAR,114
  MESSAGE TRUE ENABLE,114
END

STRING 114 6
BEGIN      
  PROMPT 17 13 "Motivazione del blocco "
  USE %CBP
  INPUT CODTAB 114
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT 114 CODTAB
  OUTPUT 115 S0
  CHECKTYPE NORMAL
END

STRING 115 50 47
BEGIN      
  PROMPT 1 14 ""
  FLAGS "D"
END

BOOLEAN 116
BEGIN      
  PROMPT 1 -1 "Non cancellabile"
  FLAGS "D"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -33 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -13 -1 "" 
  FLAGS "D"
  MESSAGE EXIT,K_DEL
END
          
BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -23 -1 ""
END

ENDPAGE

ENDMASK