Criei esse metodo que cadastra na tabela ct1 do protheus mas o problema e que ele cadastar na primeira filial que ele encontra na tabela e preciso que cadastre na filial que passo pelo json WSMETHOD POST iContaContabil WSREST WSCONTACONTABIL

local jConta := JsonObject():New() local cError := jConta:fromJson( self:getContent() ) local cJson local oCT1 Local cCodigo := jConta['Cod_Conta'] Local cf := jConta['Filial']

If jConta['Cod_Conta'] == "" SetRestFault(400, EncodeUTF8('O codigo da conta não existe.')) return .F. Endif

if Empty(cError)

dbSelectArea("CT1") DbSetOrder(1)

If !CT1->(DbSeek(cf + cCodigo))

oModel := FwLoadModel("CTBA020") oModel:setOperation(3) oModel:Activate()

oCT1 := oModel:GetModel('CT1MASTER') //Objeto similar enchoice CT1 oCT1:setValue("CT1_FILIAL", Upper(jConta["Filial"])) oCT1:setValue("CT1_CONTA", Upper(jConta["Cod_Conta"])) oCT1:setValue("CT1_DESC01", Upper(jConta["Desc_Conta"])) oCT1:setValue("CT1_CTASUP", Upper(jConta["Conta_Sup"])) oCT1:setValue("CT1_CLASSE", Upper(jConta["Classe_Cta"])) oCT1:setValue("CT1_NORMAL", Upper(jConta["Cond_Normal"])) oCT1:setValue("CT1_NATCTA", Upper(jConta["Nat_Cta"]))

if oModel:VldData()

oModel:CommitData()

cJson := '{"FILIAL":"' + Upper(jConta["Desc_Conta"]) + '"'; + ',"msg":"' + "Sucesso" + '"'; +'}' // CT1_E->(dbCloseArea()) ::SetResponse(cJson) else ConErr(oModel:GetErrorMessage()[MODEL_MSGERR_MESSAGE]) SetRestFault(400)

endif

oModel:DeActivate() //desativa modelo

Else SetRestFault(400, EncodeUTF8('O codigo da conta informado ja está registrado.')) return .F. Endif

else ConErr(cError) setRestFault(400) return .F. endif

return .T.