Olá, pessoal. Devido a descontinuidade da rotina CNTA120 e utilização da nova CNTA121 é necessário a adequação dos pontos de entrada para MVC. Estou tendo dificuldades de adequar o ponto CN130INC, não sei como manipular o aCols e o aHeader no MVC, alguém já passou por isso ou tem alguma orientação? Obs: sei que no MVC a rotina será dentro da função CNTA121 utilizando o if MODELPOS

Esse é o código do ponto de entrada em ADVPL tradicional:

User Function CN130INC()

Local aHeader := PARAMIXB[1] Local aCols := PARAMIXB[2] Local nPosIte := ascan(aHeader, {|aVal| alltrim(aVal[2]) == "CNE_ITEM"}) Local nPosMen := ascan(aHeader, {|aVal| alltrim(aVal[2]) == "CNE_XMNOTA"}) Local nX := 0 Local cMsgNota := CN9->CN9_XHIST Local nContrato := CN9->CN9_XCTMDW

cMsgNota := STRTRAN(cMsgNota,"/__",M->CND_COMPET)

M->CND_XHIST := cMsgNota M->CND_XDTFAT := M->CND_DTVENC M->CND_XCTMDW := nContrato // customização Bruno Mosconi 10/12/2019

For nX := 1 To Len(aCols)

DbSelectArea("CNB") DbSetOrder(1) DbSeek(xFilial("CNB") + M->CND_CONTRA + M->CND_REVISA + M->CND_NUMERO + aCols[nX][nPosIte])

aCols[nX][nPosMen] := cMsgNota

Next nX

Return {aHeader,aCols}