Boa tarde,
Estou tentando incluir um dependente na tabela SRB através do MVC GPEA020, porém estou sendo barrado na validação do modelo. Eu adicionei os dados em um json, onde a propriedade é o nome do campo na SRB, e itero este objeto setando os valores no objeto (oMdlSRB:SetValue(aProps[nCont], jDep[aProps[nCont]])).
Este processo é 1 para 1, para cada propriedade, um valor. Porém, quando o modelo vai ser validado, me traz mensagens de que um campo está sendo preeenchido com informação de outro campo, estourando tamanho do campo, tipo de dado, enfim. Alguém já passou por isso e poderia me ajudar?
Segue trecho do código onde faço essa atribuição:
Static Function GP020MVC(nOper as numeric, jDep as json)
Local oModel
Local oMdlSRB
Local aLog := {}
Local aProps := {}
Local lRet
Local nCont
oModel := FWLoadModel("GPEA020")
oModel:SetOperation(nOper)
aProps := jDep:getNames()
If (oModel:Activate())
oMdlSRB := oModel:GetModel("GPEA020_SRB")
If (oMdlSRB:Length() > 0)
oMdlSRB:AddLine()
EndIf
For nCont := 1 to Len(aProps)
oMdlSRB:SetValue(aProps[nCont], jDep[aProps[nCont]])
Next
Endif
lRet := oModel:VldData()
If lRet
lRet := oModel:CommitData()
Endif
If !lRet
aLog := oModel:GetErrorMessage()
EndIf
oModel:DeActivate()
oModel:Destroy()
oModel := Nil
Return lRet
Segue também json utilizado:
{“RB_COD”:“01”,“RB_NOME”:“FABIO MOTA JR”,“RB_DTNASC”:“1995/09/12”,“RB_SEXO”:“M”,“RB_GRAUPAR”:“F”,“RB_TIPIR”:"2 ",“RB_TIPSF”:“3”,“RB_TPDEP”:“03”,“RB_LOCNASC”:“MG”,“RB_CIC”:“00861250010”}
Obs.: eu testei tanto com a propriedade RB_FILIAL, quanto sem, já que vi exemplos com ambos.
Retorno desta simulação:
Valor atribuído difere do tamanho do campo (Tipo Dep. IR)
Valor atribuido: 00861250010 (o cpj do depenendente)
Desde já agradeço.