Estou fazendo alguns teste com o FiveWin, e não estou conseguindo abrir um arquivo gerado pelo WorkShop da Borland. Simplesmente eu clico na opção do menu que faz a chamada da rotina e não acontece nada.
Segue abaixo a rotina que faz a chamada e o arquivo RC para análise:
static function IncHis( )
local lSave := .f.
USE HISTO
M->CODIGO := HISTO->CODIGO
M->DESCRICAO := HISTO->DESCRICAO
SET 3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "teste"
REDEFINE GET oGet VAR M->CODIGO PICTURE "@!" ID 101 OF oDlg
REDEFINE GET oGet VAR M->DESCRICAO PICTURE "@!" ID 102 OF oDlg
REDEFINE BUTTON ID 1 OF oDlg ACTION ( lSave := .t. , oDlg:End() )
REDEFINE BUTTON ID 2 OF oDlg ACTION ( lSave := .f. , oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED
if lSave
APPEND BLANK
HISTO->CODIGO := M->CODIGO
HISTO->DESCRICAO := M->CODIGO
COMMIT
endif
return .t.
Arquivo RC:
#include "C:\FW24\include\WinApi.ch"
#include "teste.ch"
TESTE DIALOG 18, 27, 207, 111
STYLE WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX
CAPTION "Cadastro de Históricos"
FONT 8, "Arial"
BEGIN
DEFPUSHBUTTON "OK", IDOK, 20, 93, 50, 14
PUSHBUTTON "Cancela", IDCANCEL, 75, 93, 50, 14
PUSHBUTTON "Ajuda", IDHELP, 130, 93, 50, 14
EDITTEXT IDC_EDIT1, 47, 16, 37, 12
EDITTEXT IDC_EDIT2, 47, 36, 132, 12
LTEXT "Código", -1, 17, 19, 27, 8
LTEXT "Descrição", -1, 9, 39, 35, 8
END
Se alguém puder ajudar ou dar uma dica, desde já agradeço.
abs,
Roberto