Microsig@ ADVPL

Se você precisa criar uma list box, o ADVPL possui a classe tComboBox. O exemplo abaixo mostra seu funcionamento. Não esqueça de incluir a chamada da função em seu menu ( na imagem ). Segue o código: #include "rwmake.ch" user function fComboCli()   local aCodCli:={},;   cQuery,;   oCombo, oFont := tfont():new( "lucida console" ,,-11,.t.), oDiag1   cQuery := "SELECT A1_COD FROM SA1010 WHERE A1_NOME LIKE 'JOAO%'"   cQuery := changequery(cQuery)   dbusearea(.t., "TOPCONN" , tcgenqry(,,cQuery), "SA1TMP" , .f., .t.)   if .not. SA1TMP->( eof ())      SA1TMP->( dbgotop ())       do while .not. SA1TMP->(eof())         aadd(aCodCli, SA1TMP->A1_COD)         SA1TMP->( dbskip ())       enddo   else      msgalert( "Nenhum cliente encontrado para o criterio informado." )       return nil   endif   SA1TMP-...

Para saber, é simples. Você pode montar no Proteus (ou em sua intranet) uma tela que mostre o resultado da query abaixo: SELECT name, crdate FROM sysobjects WHERE xtype='U' AND name LIKE 'SZ%' ORDER BY crdate desc :)

Se você trabalha com intranet e MS-SQL Server , acessando tabelas do Protheus via Web, já deve ter tido a necessidade de acessar campos tipo MEMO. O que ocorre é que apesar de você criar o campo como tipo MEMO, o Protheus (Configurador) cria este no SQL Server como tipo IMAGE. Se você armazenar a frase "Teste observacao", no momento que você mostrar em sua página, vai aparecer um bocado de interrogações. Isto porque a frase fica gravada como: 0x5465737465206F62736572766163616F2E. O conteúdo gravado no campo é binário. Para apresentá-lo, você pode usar a seguinte query (considerando que por exemplo uma tabela chamada SZT010 e um campo com o nome ZT_OBS): SELECT CONVERT (VARCHAR( 8000 ), CONVERT (BINARY( 8000 ), ZT_OBS )) AS cZTOBS FROM SZT010 WHERE ZT_DATA = '20100106' AND ZT_FILIAL = '02' Ou seja, quando você mostrar cZTOBS, a frase será mostrada normalmente. •  Quem viu este post, também viu:     Listar campos das tabelas   ...