MVC - Dúvida adequação ponto de entrada CN130INC

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}

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

Não é a resposta que estava procurando? Procure outras perguntas com as tags mvc ou faça a sua própria pergunta.