Histórico da Página

#include "protheus.ch"
#include "rwmake.ch"  
 
User Function F060CHAV()
	    Local aChavecIndice := Strtokarr2(SE1->( IndexKey( 2 ) ), "+")  
Return aChave

#include "protheus.ch"
#include "rwmake.ch"

User Function F060CHAV()
	Local aChave := Strtokarr2("E1_FILIAL+E1_PREFIXO+E1_TIPO+E1_CLIENTE+E1_VENCREA", "+")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