Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: TMBRWCOL - Inclui Colunas no Listbox
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
O objetivo do ponto de entrada é permitir acrescentar colunas no listbox da função TMABrowse() utilizado pelas rotinas do SIGATMS.
Eventos


 

Programa Fonte 
TMSXFUNA.PRW
Sintaxe

TMBRWCOL - Inclui Colunas no Listbox ( < aList> ) --> Array

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aList Array of Record X
Retorno
    Array(vetor)
  • Array de duas posições, no qual, a primeira deverá retornar a lista de informações modificadas e a segunda um array com as colunas.
Observações


 

Exemplos 
User Function TMBRWCOL()Local aAllList := AClone(ParamIxb[1])Local aList    := {}Local aAux     := {}Local nCntFor  := 0Local nCnt     := 0Local aUSr     := {}If Left(FunName(),7) == 'TMSA010' For nCntFor := 1 To Len(aAllList)  nTot   := Len(aAllList[nCntFor])  For nCnt := 1 To nTot   Aadd( aAux, aAllList[nCntFor,nCnt] )  Next nCnt  AAdd(aAux, Posicione('DTL',1,xFilial('DTL')+aAllList[nCntFor,2],'DTL_DATDE') )  AAdd(aAux, Posicione('DTL',1,xFilial('DTL')+aAllList[nCntFor,2],'DTL_DATATE') )  Aadd( aList, aClone(aAux) ) Next nCntFor //-- 1 - Lista geral atualizada com as novas colunas Aadd( aUSr, aClone(aList) ) //-- 2 - Texto das novas colunas Aadd( aUSr, { 'Data Ini','Data Fim' } )EndIfReturn aUSr