AUTOEDIT parece ser pra outra coisa.
Então a pergunta é:
Como fazer um browse sem edição, ou qual outro controle serve pra isso?

Moderador: Moderadores
METHOD GridSelection() CLASS JPTABCFOPClass
LOCAL oTBrowse
WITH OBJECT ::cnSQL
:Execute( "SELECT * FROM JPTABCFOP ORDER BY CFOPNOME" )
oTBrowse := { ;
{ "CFOP", { || :String( "IDCFOP", 6 ) } }, ;
{ "NOME", { || :String( "CFOPNOME", 60 ) } } }
BrowseADO( ::cnSQL, oTBrowse, "CFOPNOME", { || :String( "IDCFOP" ) } )
:CloseRecordset()
ENDWITH
RETURN NIL
PROCEDURE PTESHWGUI( cModule, cTitle, ... )
LOCAL cnSQL := ADOLocal(), oBrowseList
WITH OBJECT cnSQL
:Execute( "SELECT * FROM JPTABCFOP" )
oBrowseList := { ;
{ "CFOP", { || :String( "IDCFOP", 6 ) } }, ;
{ "NOME", { || :String( "CFOPNOME", 60 ) } } }
hwguiBrowse( cTitle, cnSQL, oBrowseList )
:CloseRecordset()
ENDWITH
( cModule )
RETURN
WITH OBJECT cnSQL
:Execute( "SELECT * FROM JPTABCFOP" )
oBrowseList := { ;
{ "CFOP", { || :String( "IDCFOP", 6 ) } }, ;
{ "NOME", { || :String( "CFOPNOME", 60 ) } } }
hwguiBrowse( cTitle, cnSQL, oBrowseList )
MsgExclamation( :String( "CFOPNOME" ) )
:CloseRecordset()
ENDWITH
Itamar M. Lins Jr. escreveu:E mesmo assim esse parêntesis acredito que força a avaliação do .OR.
b := "minhoca"
a := { 1, 2, 3 }
IF ( b := Atail( a ) ) == Nil .OR. b != 4
? "Não achou 4"
ENDIF
a := { ;
{ 1, 1 }, ;
{ 2, 2 } }
IF ( b := Atail( a ) ) == Nil .OR. b[ 2 ] != 3
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes