Agro - Linha Protheus - AGR - Compartilhamento das tabelas - Serviço de Armazenagem x Fechamento Serviços

//Exemplo de Função de Acerto para ajustar a filial NKS conforme a filial da tabela NKG.

#INCLUDE "PROTHEUS.CH"

USER FUNCTION FAjustaNKS

Local nPos       := 0
Local aNKS       := {}
lOCAL nI         := 0
Local cQuery     := ""
Local cAliasQry  := GetNextAlias()

    cQuery := " SELECT NKG_FILIAL, NKG_FECSER "
    cQuery += " FROM " + RetSqlName('NKG') + " NKG "
    cQuery += " WHERE NKG.D_E_L_E_T_ = '' "
    cQuery += " AND NKG_FECSER <> ' ' "
    cQuery := ChangeQuery( cQuery )

    dbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery), cAliasQry, .F., .T.)
    dbSelectArea(cAliasQry)
    While !(cAliasQry)->( Eof() )
   
        nPos  a  := aScan( aNKS, { |x| AllTrim( x[1] ) == AllTrim((cAliasQry)->NKG_FECSER) } )
        If nPos == 0
            aAdd( aNKS, { (cAliasQry)->NKG_FECSER, (cAliasQry)->NKG_FILIAL} )                  
        EndIf
        (cAliasQry)->(DbSkip())
    EndDO

    If  Len(aNKS) > 0
        For nI := 1 to Len(aNKS)          
            dbSelectArea("NKS")
            NKS->(dbSetOrder(1))
            if NKS->(DBSeek(PADR("",TamSX3("NKS_FILIAL")[1])+aNKS[nI,1]))          
                if  RecLock('NKS',.f.)      
                    NKS->NKS_filiaL := aNKS[nI,2]
                    NKS->(MsUnLock())
                ENDIF
            ENDIF    
        Next nI        
    EndIF
return