Salve salve, blz?
Segue algumas formas de busca de SM0 com cEmpAnt/cFilAnt ou xx_FILIAL
aEmpresas := FWLoadSM0()
cM0CGC := ''
nPos := aScan( aEmpresas, { |UD| UD[02] == cFilAnt } )
If nPos > 0
cTenantId := aEmpresas[nPos,SM0_GRPEMP] + ',' + aEmpresas[nPos,SM0_CODFIL]
cSM0_NOME := aEmpresas[nPos,SM0_NOMRED]
cM0CGC := aEmpresas[nPos,SM0_CGC]
Endif
//Irá retornar todos os dados da Filial logada com array de multi de duas dimensões
FWSM0Util():GetSM0Data()
FWSM0Util():GetSM0Data()[1][1]: "M0_CODIGO"
FWSM0Util():GetSM0Data()[1][2]: "99"
//Retorna a razão social
FWSM0Util():getSM0FullName("99", "01")
//Retorna os dados solicitados. Array com 3 posicoes bidimensional. Nome + Valor
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[1]: Array {size=2}
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[1][1]: "M0_CODIGO"
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[1][2]: "99"
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[2]:
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[2][1]: "M0_CODFIL"
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[2][2]: "01 "
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[3]:
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[3][1]: "M0_CGC"
FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_CGC'} )[3][2]: "00XXXXXX000WWW"
aEmpresas := FWSM0Util():GetSM0Data(cEmpAnt,cFilAnt, {'M0_CODIGO','M0_CODFIL','M0_NOMECOM','M0_CGC'} )
If Len(aEmp) >= 4
cTenantId := aEmpresas[01,02] + ',' + aEmpresas[02,02]
cSM0_NOME := aEmpresas[03,02]
cM0CGC := aEmpresas[04,02]
Endif
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima