static function fCONFIGURA()
DEFINE WINDOW Form_3 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Configure a Impressora:' ;
child
DEFINE LABEL SPEED1
ROW 50
COL 10
AUTOSIZE .t.
VALUE 'Velocidade de Impressão :'
END LABEL
DEFINE TEXTBOX SPEED2
ROW 45
COL 210
HEIGHT 30
WIDTH 20
FONTCOLOR "BLUE BOLD"
DATATYPE NUMERIC
MAXLENGTH 01
FONTNAME "Arial"
FONTSIZE 14
ONENTER fSPEED2(Form_3.SPEED2.Value)
END TEXTBOX
DEFINE LABEL DARKNESS1
ROW 80
COL 10
AUTOSIZE .t.
VALUE 'Temperatura de Impressão :'
END LABEL
DEFINE TEXTBOX DARKNESS2
ROW 75
COL 210
HEIGHT 30
WIDTH 20
FONTCOLOR 'BLUE BOLD'
DATATYPE NUMERIC
MAXLENGTH 02
FONTNAME "Arial"
FONTSIZE 14
ONENTER fDARKNESS2(Form_3.DARKNESS2.Value)
END TEXTBOX
END WINDOW
Form_3.SPEED2.value := mSPEED
Form_3.SPEED1.enabled := .f.
Form_3.SPEED2.enabled := .f.
Form_3.DARKNESS2.value := mDARKNESS
Form_3.Center
Form_3.Activate
return (.t.)
Este código acima, é para configurar uma impressão.
O erro acontece no momento da criação do FORM.ACTIVATE.
A mensagem de erro é:
Data: 24/07/2018 Time: 17:57:26
Erro BASE / 1068 Argumento de erro: acesso à matriz
Chamado de EVENTOS (753)
Chamado de C_MSGSTOP (0)
Chamado de SHOWERROR (181)
Chamado de DEFERROR (129)
Chamado de (b) ERRORSYS (66)
Chamado de EVENTOS (753)
Chamado de UPDATEWINDOW (0)
Chamado de EVENTOS (932 )
Chamado de SHOWWINDOW (0)
Chamado de _ACTIVATEWINDOW (5700)
Chamado de DOMETHOD (9003)
→→→→→→→ Chamado de FCONFIGURA (1289) ←←←←←←←←
Chamado de (b) MAIN (367)
Chamado de _DOCONTROLEVENTPROCEDURE (6056)
Chamado de EVENTS (1756)
Chamado de DOMESSAGELOOP ( 0)
Chamado de _ACTIVATEWINDOW (5717)
Chamado de MAIN (406)
A linha destacada acima é o único lugar onde entendo que o erro é no momento da ativação do FORM.
Alguém sabe, no código fonte qual argumento está errado e que causa o erro na criação da JANELA (form3)?
valeu galera!