Estimado Ant么nio: anteriormente en versiones anteriores:
--> VAR DbFunciona:END
--> VAR DbFunciona:CARGO
Esto funcionaba.
Sin embargo, ahora parece que se trata de palabras reservadas y ya no funciona; el contenido del campo no se muestra en el GET.
Ejemplo:
IF lAppend //-> Inclusao
DbFunciona:SetOrder( 1 ) // Ordenado Por Codigo
DbFunciona:GoBottom()
nCodigo := ( DbFunciona:Codigo )
DbFunciona:SetBuffer( .T. )
DbFunciona:Blank()
IF EOF()
nCodigo := [1]
(DbFunciona:Codigo) := nCodigo // Se For a Primeira Vez Que Cadastra
ELSE
(DbFunciona:Codigo) := SPACE(18)
ENDIF
DbFunciona:Cidade := [SAO PAULO ]
DbFunciona:SetOrder( 2 ) // Ordenado Por Nome do Cliente
ELSE //-> Altera鈥∶唎
IF EOF()
MsgStop( OemToAnsi( "Aten鈥∶唎 Usu聽rio: " ) +CRLF+ ;
OemToAnsi( "Banco de Dados Est聽 Vazio, Cadastre " ) +CRLF+ ;
OemToAnsi( "os Elementos Para Esta Opera鈥∶唎. " ) +CRLF+ ;
OemToAnsi( "Acesso N脝o Permitido ao Banco de Dados" ), ;
OemToAnsi( "Mensagem de Erro Para o Usu聽rio. " ) )
GO TOP
RETURN( .F. )
ENDIF
nRecNo := (DbFunciona:cAlias)->( RecNo() )
DbFunciona:GoTo( nRecNo )
nOldRecNo := (DbFunciona:cAlias)->( RecNo() )
// ? (DbFunciona:cAlias)->CARGO palavra CARGO E RESERVADA. ??
// MUDEI PARA FUNCAO.
ENDIF
// NO FUNCIONA EN FWH2603, ANTES FUNCIONABA
// Neste Get, entra o Endereco do funcionario
REDEFINE GET aGet[004] VAR DbFunciona:END PICTURE "@K!" ;
VALID !VAZIO( DbFunciona:End ) ;
ID 23 OF oDlg ;
FONT oFont UPDATE ;
COLOR CLR_BLACK, CLR_WHITE ;
CURSOR oHand ;
MESSAGE ( OemToAnsi( "Endere鈥" ) )
//-> Cargo do funcionario
REDEFINE GET aGet[025] VAR DbFunciona:CARGO ID 44 OF oDlg ;
PICTURE "@K !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" ;
FONT oFont UPDATE ;
COLOR CLR_BLACK, CLR_WHITE ;
CURSOR oHand ;
MESSAGE ( OemToAnsi( "Cargo do Funcionario" ) )Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
