Ola, este codigo dentro do programa que uso esta em (PascalScript) preciso mudar ele para (BasicScript) pois entendo um poudo de VB6 e tenho apostilas, e quero montar os relatorios do meu jeito... este é o codigo que preciso transformar para BasicScript ele apenas acessa o BD e tira a lista de fornecedores colocando na cxMenuSuspenso para escolha, ao escolher o fornecedor e clicando em (OK) Button1 ele abre o relatorio já com os produtos do fornecedor escolhido.... ----------- inicio ------------------------------ procedure Page2OnBeforePrint(Sender: TfrxComponent); begin with Page2, Engine do begin FORNECED.Open; FORNECED.Last; end end; procedure Button1OnBeforePrint(Sender: TfrxComponent); begin with Button1, Engine do begin ESTOQUE.Close; ESTOQUE.SQL.Clear; ESTOQUE.SQL.Add('SELECT * FROM ES010'); ESTOQUE.SQL.Add('WHERE CAST(FABRICANTE AS INTEGER) = '+FORMATFLOAT('000000',<FORNECED."ID">)+''); ESTOQUE.Open; end end; procedure DBLookupComboBox1OnClick(Sender: TfrxComponent); begin end; procedure Button2OnClick(Sender: TfrxComponent); begin end; begin end. --------------------------- fim -------------------- Valeu, aguardo uma ajuda . . .