User Function NGMNTCC1()
 
    Local aArea := GetArea()
 
    Local cBEM    := PARAMIXB[1] //Código do Bem
    Local cCUSTO  := SubStr(PARAMIXB[2],1,10) //Centro de Custo
    Local cCenTab := PARAMIXB[3] //Centro de Trabalho
    Local cCodNiv := "" //Código Nível
    Local cNivSup := "" //Nível Superior
    //Verifica se existe o Novo Centro de Custo numa localização na Árvore Lógica
    cCodNiv := NGSEEK("TAF","001"+cCUSTO,11,"TAF_CODNIV")
    If !Empty(cCodNiv)
        cNivSup := NGSEEK("TAF",cCodNiv,8,"TAF_NIVSUP")
    EndIf
 
    dbSelectArea("TAF")
    dbSetOrder(10) //TAF_FILIAL+TAF_INDCON+TAF_CODCON+TAF_MODMNT
    If !Empty(cNivSup) .And. dbSeek(xFilial("TAF") + "1" + cBEM)
        RecLock("TAF",.F.)
        TAF->TAF_NIVSUP := cCodNiv
        MsUnLock("TAF")
    Else
        dbSelectArea("TAF")
        RecLock("TAF",.T.)
        TAF->TAF_FILIAL := xFilial("TAF")
        TAF->TAF_CODEST := "001"
        TAF->TAF_CODNIV := fRetCodNiv()
        TAF->TAF_ORDEM  := fRetCodOrd()
        TAF->TAF_NOMNIV := NGSEEK("SI3",cCUSTO,1,"Substr(I3_DESC,1,40)")
        TAF->TAF_NIVEL  := 2
        TAF->TAF_NIVSUP := "001"
        TAF->TAF_INDCON := "2"
        TAF->TAF_MODMNT := "X"
        TAF->TAF_CCUSTO := cCUSTO
        TAF->TAF_CENTRA := cCenTab
        TAF->TAF_ETAPA  := "2"
        MsUnLock("TAF")
        cCodNiv := NGSEEK("TAF","001"+Padr( cCUSTO, Len( TAF->TAF_CCUSTO) ),11,"TAF_CODNIV")
        dbSelectArea("TAF")
        dbSetOrder(10) //TAF_FILIAL+TAF_INDCON+TAF_CODCON+TAF_MODMNT
        If dbSeek(xFilial("TAF") + "1" + cBEM)
            RecLock("TAF",.F.)
            TAF->TAF_NIVSUP := cCodNiv
            MsUnLock("TAF")
        EndIf
    EndIf
 
    RestArea( aArea )
 
Return
 
Static Function fRetCodNiv()
 
    Local cQuery, cAliasQry
    Local cProxCod := "000"
 
    cAliasQry := GetNextAlias()
    cQuery := " SELECT MAX(TAF.TAF_CODNIV) AS cCodMax FROM "+RetSqlName("TAF")+" TAF "
    cQuery += " WHERE TAF.TAF_FILIAL = '"+xFilial("TAF")+"' AND TAF.D_E_L_E_T_ <> '*'"
    cQuery := ChangeQuery(cQuery)
    dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasQry, .F., .T.)
 
    dbSelectArea(cAliasQry)
    dbGoTop()
    If !Eof()
        cProxCod := (cAliasQry)->cCodMax
    EndIf
    (cAliasQry)->(dbCloseArea())
    cProxCod := Soma1(AllTrim(cProxCod))
 
Return cProxCod
 
Static Function fRetCodOrd()
 
    Local cQuery, cAliasQry
    Local cProxCod := "000"
 
    cAliasQry := GetNextAlias()
    cQuery := " SELECT MAX(TAF.TAF_ORDEM) AS cCodMax FROM "+RetSqlName("TAF")+" TAF "
    cQuery += " WHERE TAF.TAF_FILIAL = '"+xFilial("TAF")+"' AND TAF.D_E_L_E_T_ <> '*'"
    cQuery := ChangeQuery(cQuery)
    dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery),cAliasQry, .F., .T.)
 
    dbSelectArea(cAliasQry)
    dbGoTop()
    If !Eof()
        cProxCod := (cAliasQry)->cCodMax
    EndIf
    (cAliasQry)->(dbCloseArea())
    cProxCod := Soma1(AllTrim(cProxCod))
 
Return cProxCod