01. CN200SPC - Permite customizar a marcação da Solicitação de Compras / Pedido de Compras

Situação: No momento de criar o contrato do tipo 1 (Compra), ao selecionar/marcar o item da solicitação de compras (SC1), a rotina importa todos os itens dessa solicitação. Com esse ponto de entrada podemos customizar impedindo que a rotina selecione automaticamente todos os itens, carregando apenas um item da solicitação. Nesse exemplo, selecionarei uma solicitação com mais de 1 item e importarei sempre o ultimo item.

#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} CN200SPC
    Permite customizar as marcacoes no momento de importar os itens da Solicitacao de Compras ou Pedido de Compras
@type function
@version 
@since 06/03/2024
@return Array com as marcacoes customizadas
/*/
User Function CN200SPC()
    
    Local aArea         := GetArea()
    Local aRetorno      := {}
    Local cMarca        := paramixb[1]
    Local cValida       := paramixb[3]
    Local cQuery        := ""
    Local cAlias        := GetNextAlias()

    //QUERY PARA SELECIONAR O ULTIMO ITEM DA SOLICITACAO SELECIONADA NA IMPORTACAO
    cQuery := " SELECT    SC1.C1_FILIAL, SC1.C1_NUM, SC1.C1_ITEM, SC1.R_E_C_N_O_ "
    cQuery += " FROM    " + RetSqlName("SC1") + "   SC1 "
    cQuery += " WHERE    SC1.C1_FILIAL                = '" + xFilial("SC1") + "' "
    cQuery += " AND        SC1.C1_NUM                    = '" + SC1->C1_NUM + "' "
    cQuery += " AND        SC1.C1_ITEM                    = ( "
    cQuery += "                                         SELECT    MAX(C1_ITEM) "
    cQuery += "                                         FROM    " + RetSqlName("SC1") + " "
    cQuery += "                                         WHERE    C1_FILIAL   = '" + xFilial("SC1") + "' "
    cQuery += "                                         AND        C1_NUM        = '" + SC1->C1_NUM + "' "
    cQuery += "                                         AND        D_E_L_E_T_  = '' "
    cQuery += "                                     ) "
    cQuery += " AND        SC1.D_E_L_E_T_                = ' ' "

    cQuery := ChangeQuery(cQuery)                                                              
    dbUseArea(.T., 'TOPCONN', TCGENQRY(,,cQuery),cAlias, .F., .T.)       
    dbSelectArea(cAlias)

    If (cAlias)->(!EOF())

        SC1->(DbGoTo((cAlias)->R_E_C_N_O_))
        RecLock("SC1",.F.)
            &(cValida) := cMarca
        SC1->(MsUnlock())
        aAdd(aRetorno,(cAlias)->R_E_C_N_O_)
    EndIf

    (cAlias)->(DbCloseArea())
        
    RestArea(aArea)

Return(aRetorno)