Histórico da Página

O objetivo do ponto de entrada é permitir acrescentar colunas no listbox da função TMABrowse() utilizado pelas rotinas do SIGATMS.

TMSXFUNA.PRW

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

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.

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