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}