| Pagetitle |
|---|
| SixDescricao - Descrição da chave de índice |
|---|
| SixDescricao - Descrição da chave de índice |
|---|
|
Função: SixDescricao - Descrição da chave de índice
| Versões: | Advanced Protheus 5.07 , Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 | | Compatível Países: | Todos | | Sistemas Operacionais: | Todos | | Compatível às Bases de Dados: | Todos | | Nível de Acesso: | Nível 1 (Acesso Clientes) | | Idiomas: | Espanhol , Inglês |
Descrição:A função SixDescricao() retorna a descrição da chave de índice, de acordo com o registro posicionado no SIX e idioma corrente. Sintaxe:SixDescricao - Descrição da chave de índice ( ) --> Nil ExemplosExemplo:
#include "protheus.ch"
User Function TestSix()
Local cFile Local oDlg
Local cRetLocal oPanel1, oPanel2
Local oGet, cGet := Space(3)
Local oSay1
Local oLbxLocal aDesc := {}
Aadd(aDesc, {"", "", ""})
DEFINE MSDIALOG oDlg TITLE "Teste SixDescricao" From 000,0 TO 200,300 PIXEL
oDlg:lMaximized := .T.
@ 000, 000 MSPANEL oPanel1 SIZE 10, 30 OF oDlg oPanel1:align:= CONTROL_ALIGN_TOP
@ 12, 05 SAY oSay1 VAR "Tabela: " OF oPanel1 PIXEL
@ 12, 30 GET oGet VAR cGet OF oPanel1 SIZE 100,009 PIXEL
oGet:bLostFocus := {|| U_Procura(@aDesc, Upper(AllTrim(cGet)), @oLbx) }
@ 12, 140 BUTTON "Fechar" PIXEL SIZE 40,12 OF oPanel1 ACTION oDlg:End()
@ 000, 000 MSPANEL oPanel2 SIZE 10, 90 OF oDlg oPanel2:align:= CONTROL_ALIGN_ALLCLIENT
@ 30,05 LISTBOX oLbx FIELDS HEADER "Ordem", "Chave", "Descrição" SIZE 30, 150, 150 OF oPanel2 PIXEL
oLbx:SetArray(aDesc)
oLbx:bLine := {|| {aDesc[oLbx:nAt,1],aDesc[oLbx:nAt,2], aDesc[oLbx:nAt, 3]}}
oLbx:align:= CONTROL_ALIGN_ALLCLIENT
ACTIVATE MSDIALOG oDlg CENTERED
Return
Exemplo 2
User Function Procura(aDesc, cGet, oLbx)
aDesc := {}
SIX->(dbSetOrder(1))
SIX->(dbSeek(cGet))
While SIX->(!Eof()) .And. SIX->INDICE == Upper(AllTrim(cGet))
Aadd( aDesc, {SIX->ORDEM, SIX->CHAVE, SIX->(SixDescricao())})
SIX->(dbSkip())
End
oLbx:SetArray(aDesc)
oLbx:bLine := { || {aDesc[oLbx:nAt,1],aDesc[oLbx:nAt,2], aDesc[oLbx:nAt, 3]}}
oLbx:Refresh()
Return
|
