ok... vamos responder a cada postagem do professor JQuintas.
JoséQuintas escreveu:Vamos à prova:
Retorne o que estava antes, e altere isto em wvw_paint()
voltei o CODEPAGE para uma linha antes do MAIN e alterei a função WVW_PAINT e gerou novamente o mesmo erro:
Data:02/03/2016 Horario: 19:07:58
Erro BASE/1003 Variable does not exist: S_AMISCOBJLIST
Called from WVW_PAINT(2023)
Called from WAPI_MESSAGEBOX(0)
Called from LBOXMESSAGE(2304)
Called from ABERTURA(3108)
Called from MAIN(535)
JoséQuintas escreveu:Expandir visualizacao
Ver codigo
1 REQUEST HB_CODEPAGE_PTISO
2
3 PROCEDURE Main
4 SetMode( 25, 80 )
5 Set( _SET_CODEPAGE, "PTISO" )
Coloquei as linhas acima, na verdade 2 apenas das linhas acima:
- REQUEST HB_CODEPAGE_PTISO antes do MAIN e
- SET(_SET_CODEPAGE,"PTISO") após o inÃcio do MAIN e depois das variáveis LOCALs.
Infelizmente o mesmo erro ocorreu...
Data:02/03/2016 Horario: 19:17:49
Erro BASE/1003 Variable does not exist: S_AMISCOBJLIST
Called from WVW_PAINT(2021)
Called from WAPI_MESSAGEBOX(0)
Called from LBOXMESSAGE(2302)
Called from ABERTURA(3106)
Called from MAIN(532)
Bom, pelo que "pouco entendo" o erro percorre um caminho e não tem nada a ver com sua continuação...
vamos à s linhas. Primeiro, vamos ao inÃcio de tudo (linha 532):
ABERTURA() // chamada à função de abertura de arquivos necessários dbfntx (o inÃcio do problema - pelo menos na lógica deveria ser assim e não o é)... prossigamos
3106 - dentro da função ABERTURA tem uma chamada à função boxmessage, contendo o seguinte conteúdo:
lboxmessage ('Atenção! Para continuar com este aplicativo, será necessário fechar o SiCCA ou quaisquer de seus Módulos Externos que estiverem aberto. Feche-o(s) antes de continuar... Este aplicativo precisa abrir arquivos em MODO EXCLUISVO. Após ter realizado esta verificação pressione [ENTER] ou clique em [OK] para prosseguir...')
a linha 3106, obviamente chama a linha 2302 que contém o seguinte dentro da função criada por nós para usar a API do windows. vejam:
wapi_MessageBox( wvw_GetWindowHandle(), cMsg , cTitle , WIN_MB_OK + WIN_MB_ICONINFORMATION + WIN_MB_SYSTEMMODAL )
Bom, até aqui o erro está na lógica que aprendi, percorrendo por onde ocorreu... mas, daqui pra frente, ou seja:
Called from WVW_PAINT(2021)
Called from WAPI_MESSAGEBOX(0)
ao chamar a WAPI_... ele já pula o raciocÃnio pra outra coisa completamente diferente... então quanto mais eu tento entender, gasto tempo energia e din din (aliás não tenho e só gasto) e não entendo nada, percebo que fico horas e horas numa coisa "tão boba" mas, sem lógica pra mim...
bom, ou mau, a linha 2021 é a que trata sobre a tal variável... então não faz sentido algum sequer... e só acontece com o SET_CODE_PAGE, inclusive o seu que acabei de colocar no inÃcio do main e depois, bem próximo ao final...
ah" a linha 2021, só pra relembrar:
IF ValType( s_aMiscObjList ) != "A" // jquintas pctoledo 2/3/16w
ou seja, até a sua linha também está errada... se me permite. Se é pra descobrir se ela existe colocaria assim então:
hb_default(@s_aMiscObjList,"")
IF empty( s_aMiscObjList )
Mas, mesmo assim, o erro, persiste...
volto a repetir... se não existir essa linha:
Set( _SET_CODEPAGE, "PTISO" )
não importa se é PTISO, PT, PMDB, PSDB, PV etc.... :)) só pra descontrair...
a "corrupção" é a mesma :D :D :D