Protheus :: Advpl :: Obtendo parâmetros (SX6) de outra empresa

Dia desses, modificando uma “customização” em um cliente, deparei-me com um código que obtinha/gravava o conteúdo dos parâmetros SX6 de outra empresa. Isso se fazia necessário uma vez que, pelo modelo implantado, existia uma empresa consolidadora. Considerando que não gostei da forma que o código havia sido implementado, criei a minha própria versão que agora compartilho com vocês.

Ei-la…

Para obter o(s) parâmetros:

Chame-a como:

cMvPar := ”MV_PAPONTA” cMvDef := “” StaticCall(U_GETMV,_GetMvPar,”02”,”01”,cMvPar,cMvDef) –> uMvCnt

ou, para mais de um parâmetro a ser obtido:

aMvPar   := { “MV_PAPONTA”,”MV_PONMES”} aMvDef   := { “” , “” } StaticCall(U_GETMV,_GetMvPar,”02”,”02”,aMvPar,aMvDef) –> aMvCnt

e, Para gravar o(s) Parâmetros:

 

Execute-a como:

cMvPar := “MV_PAPONTA” cMvPut := “20110101-20110131” StaticCall(U_GETMV,_PutMvPar,”01”,”01”,cMvPar,cMvPut)

ou, para mais de um parâmetro a ser gravado:

aMvPar := { “MV_PONMES” , “MV_PAPONTA” } aMvPut  := { “20110101-20110131”,“20110101-20110131”} StaticCall(U_GETMV,_PutMvPar,”01”,”01”,aMvPar,aMvPut)

Bem. Espero que lhes sirvam pra algo.

Para obter o código. Clique aqui.

[]s

иαldσ dj