Protheus :: Abrindo tabela de outra empresa usando EmpOpenFile()

Utilize a função EmpOpenFile() para abrir Tabela de Outras Empresas conforme exemplo abaixo:

EmpOpenFile(cNewAls,cAlias,nOrder,lOpen,cEmpresa,cModo) Onde: cNewAls -> Apelido com o qual a Tabela será aberto cAlias -> Apelido da Tabela que se deseja abrir nOrder -> Ordem do Indice para abertura da Tabela lOpen -> .T. abre a Tabela .F. Fecha-a cEmpresa -> Codigo da Empresa para abertura da Tabela cModo -> Retornado por referência, define o Modo de acesso do arquivo Ex.: //Exemplo 1: Abrindo o SRA de outra empresa com um novo //Alias User Function Exemplo1() Local aArea := GetArea() Local aAreaSRA := SRA->( GetArea() ) Local cSvFilAnt := cFilAnt //Salva a Filial Anterior Local cSvEmpAnt := cEmpAnt //Salva a Empresa Anterior Local cSvArqTab := cArqTab //Salva os arquivos de //trabalho Local cModo //Modo de acesso do arquivo aberto //"E" ou "C" Local cNewAls := GetNextAlias() //Obtem novo Alias IF EmpOpenFile(cNewAls,"SRA",1,.T.,"02",@cModo) //...coloque aqui o seu código ( cNewAls )->( dbCloseArea() ) EndIF //Restaura os Dados de Entrada ( Ambiente ) cFilAnt := cSvFilAnt cEmpAnt := cSvEmpAnt cArqTab := cSvArqTab //Restaura os ponteiros das Tabelas RestArea( aAreaSRA ) RestArea( aArea ) Return( NIL ) //Exemplo 2: Abrindo o SRA de outra empresa com o mesmo //Alias User Function Exemplo2() Local aArea := GetArea() Local aAreaSRA := SRA->( GetArea() ) Local cSvFilAnt := cFilAnt //Salva a Filial Anterior Local cSvEmpAnt := cEmpAnt //Salva a Empresa Anterior Local cSvArqTab := cArqTab //Salva os arquivos de //trabalho Local cModo //Modo de acesso do arquivo aberto //"E" ou "C" Local cNewAls := GetNextAlias() //Obtem novo Alias IF EmpOpenFile("SRA","SRA",1,.T.,"02",@cModo) //...coloque aqui o seu código SRA->( dbCloseArea() ) //Restaura os Dados de Entrada ( Ambiente ) cFilAnt := cSvFilAnt cEmpAnt := cSvEmpAnt cArqTab := cSvArqTab ChkFile( "SRA" ) //Reabre o SRA da empresa atual EndIF //Restaura os ponteiros das Tabelas RestArea( aAreaSRA ) RestArea( aArea ) Return( NIL ) Obs.: Utilize a função RetFullName() para ver se existe a necessidade de se estar abrindo a Tabela da outra empresa. Pode ocorrer da Tabela ser compartilhada entre empresas. Ex.: User Function EqualTable(cAlias1,cEmp1,cAlias2,cEmp2) Local cTableEmp1 := RetFullName(cAlias1,cEmp1) Local cTableEmp2 := RetFullName(cAlias2,cEmp2) Return( ( cTableEmp1 == cTableEmp2 ) )

[]s
иαldσ dj