Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

Ponto de entrada que permite a alteração da chave que ordena a exibição dos títulos na tela de seleção da opção "Borderô" na rotina de transferências/borderô (FINA060).

02. PARÂMETROS

PosiçãoTipoDescrição
1VetorOrdenação atual dos títulos na tela de seleção

03. RETORNO

TipoDescrição
VetorVetor modificado para ordenação dos títulos na tela de seleção

04. EXEMPLO DE UTILIZAÇÃO

#include "protheus.ch"
#include "rwmake.ch"  
 
User Function F060CHAV()
    Local cIndice := SE1->(IndexKey(2)) // Altera para a chave E1_FILIAL+E1_CLIENTE+E1_LOJA+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO
    Local aChave := StrTokArr(cIndice,"+")
    Local nCont := 0
    Local nY := 0
    Local nZ := 0
    Local cAux := ""
    Local nInicio := 0
    Local nFim := 0
    Local nIntervalo := 0
    
    //Tratamento obrigatório pois o array esperado no retorno da função deve apresentar somente o nome dos campos da tabela
    For nCont := 1 to Len(aChave)
        nY := ASCAN(aChave,"DTOS(")
        If nY > 0
        aChave[nY] := STRTRAN(aChave[nY],"DTOS(","")
        aChave[nY] := STRTRAN(aChave[nY],")","")
        EndIf
    
        nZ := ASCAN(aChave,"STR(")
        If nZ > 0
        cAux := aChave[nZ]
        nInicio := AT('(',cAux) + 1
        nFim := AT(',',cAux)
        nIntervalo := nFim - nInicio
        aChave[nZ] := Subs(cAux,nInicio,nInterValo)
        EndIf
    Next
Return aChave