Helquisson, boa tarde.

Para fazer isso os pontos de entrada em MVC não vão resolver, Você tem que usar o ponto de entrada CN121PED você vai receber o aCab e o aItem e modificalos caso precise.

Segue o link do TDN sobre o PE: http://tdn.totvs.com/pages/viewpage.action?pageId=271385565

Segue também um link da comparação dos PE da CNTA120 (Rotina antiga) para a nova CNTA121: https://centraldeatendimento.totvs.com/hc/pt-br/articles/360022685112-MP-SIGAGCT-Pontos-de-entrada-para-rotinas-de-Medi%C3%A7%C3%A3o

Espero que ajude

Att,

Segue Exemplo do ponto de entrada.

Uma saída é usar o inicializador do campo que você deseja preencher apontando para uma rotina customizada, aí nessa rotina você verifica via isincallstack se está vindo da medição de contratos e se estiver vindo você popula o campo do modo que precisar.

Bom dia,

Utilizando o PE CNTA121, como posso ter acesso ao objeto do modelo de dados? Necessito capturar algum campos personalizado na no modelo "CNDMASTER" para realizar a complementação de campos personalizado no Pedido de Compras.

Blockquote

include "TOTVS.CH"

INCLUDE "FWMVCDEF.CH"

INCLUDE "RWMAKE.CH"

INCLUDE "TBICONN.CH"

User Function CN121PED()

Local _aarea :=getarea() Local _areaCNE := CNE->(getarea())Local _par1 := PARAMIXB[1] Local _par2 := PARAMIXB[2] Local _posCONTR Local _posREVIS Local _posNUMER Local _posMEDIC Local _posITEM Local _posPROD Local _posoBS Local _i //Local oModel := Nil

//CNE_PEDTIT ==1 if LEN(_par1) > 0 .AND. LEN(_par2) > 0

//oModel := FwModelActive()//Modelo do CNTA121

for _i:=01 to len(_Par2)

_posCONTR := aScan(_par2[_i],{|x| x[1]=="C7_CONTRA"}) // CNE_CONTRATO _posREVIS := aScan(_par2[_i],{|x| x[1]=="C7_CONTREV"}) // CNE_REVISA _posNUMER := aScan(_par2[_i],{|x| x[1]=="C7_PLANILH"}) // CNE_NUMERO _posMEDIC := aScan(_par2[_i],{|x| x[1]=="C7_MEDICAO"}) // CNE_NUMED _posITEM := aScan(_par2[_i],{|x| x[1]=="C7_ITEMED"}) // CNE_ITEM _posOBS := aScan(_par2[_i],{|x| x[1]=="C7_OBS"}) // CNE_OBS _posPROD := aScan(_par2[_i],{|x| x[1]=="C7_PRODUTO"}) // CNE_PRODUTO

if _posCONTR > 0 dbSelectArea("CNE") dbSetOrder(1)//CNE_FILIAL+CNE_CONTRA+CNE_REVISA+CNE_NUMERO+CNE_NUMMED+CNE_ITEM if dbSeek(xFilial("CNE") + _par2[_i][_posCONTR][2] + _par2[_i][_posREVIS][2] + _par2[_i][_posNUMER][2] + _par2[_i][_posMEDIC][2] + _par2[_i][_posITEM][2])

AADD(_par2[_i],{"C7_CO",CNE->CNE_UNATUR,NIL}) // ADICIONA CONTA ORÇAMENTARIA

_par2[_i][_posoBS][2] := CNE->CNE_UOBS // ADICIONA OBSERVAÇÃO

endif endif next

else //CNE_PEDTIT ==2

if len(_Par1) > 0 .and. LEN(_par2) == 0

_posCONTR := aScan(_par1,{|x| AllTrim(x[1])=="E2_MDCONTR"}) // CNE_CONTRATO

_posREVIS := aScan(_par1,{|x| AllTrim(x[1])=="E2_MDREVIS"}) // CNE_REVISA _posNUMER := aScan(_par1,{|x| AllTrim(x[1])=="E2_MDPLANI"}) // CNE_NUMERO _posMEDIC := aScan(_par1,{|x| AllTrim(x[1])=="E2_MEDNUME"}) // CNE_NUMED _posITEM := aScan(_par1,{|x| AllTrim(x[1])=="E2_MDPARCE"}) // CNE_ITEM

if _posCONTR > 0 dbSelectArea("CNE") dbSetOrder(1)//CNE_FILIAL+CNE_CONTRA+CNE_REVISA+CNE_NUMERO+CNE_NUMMED+CNE_ITEM if dbSeek(xFilial("CNE") + _par1[_posCONTR][2] + _par1[_posREVIS][2] + _par1[_posNUMER][2] + _par1[_posMEDIC][2] ,.T.)

AADD(_par1,{"E2_CCUSTO",CNE->CNE_CC,NIL}) // ADICIONA CONTA ORÇAMENTARIA AADD(_par1,{"E2_CCD",CNE->CNE_CC,NIL}) // ADICIONA CONTA ORÇAMENTARIA AADD(_par1,{"E2_CO",CNE->CNE_UNATUR,NIL}) // ADICIONA CONTA ORÇAMENTARIA AADD(_par1,{"E2_NAT2",CNE->CNE_UNATUR,NIL}) // ADICIONA CONTA ORÇAMENTARIA AADD(_par1,{"E2_CLVL",CNE->CNE_CLVL,NIL}) // ADICIONA CONTA ORÇAMENTARIA AADD(_par1,{"E2_ITEMCTA",CNE->CNE_ITEMCT,NIL}) // ADICIONA CONTA ORÇAMENTARIA

endif ENDIF ENDIF ENDIF

restarea(_aarea)restarea(_areaCNE)

return {_par1,_par2}

Blockquote