PAGE "Rata pagamento" -1 -1 50 8

DATE 101
BEGIN        
  PROMPT 1 1 "Scadenza       "
END

NUMBER 102 8 3
BEGIN
  PROMPT 1 2 "Percentuale    "
  PICTURE ".3"
  FLAGS "R"
END

NUMBER 103 15 
BEGIN
  PROMPT 1 3 "Importo        "
  PICTURE "."
  FLAGS "R"
END

NUMBER 104 2 0
BEGIN
  PROMPT 1 4 "Tipo pagamento "
  SHEET "Codice|Tipo pagamento@32"
  INPUT 104
  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|Altro pagamento"
  OUTPUT 104  
  OUTPUT 105
END                                                

STRING 105 32
BEGIN
  PROMPT 1 5 "Descrizione    "                                
  FLAGS "D"
END
			    
BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -12 -1 ""
END

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

ENDPAGE
ENDMASK