Angariar fundos para cobrir os custos logísticos do "Festival da Arte Capoeira" e apoiar o projeto Eu Sou Ninja em sua missão de promover a integração social e cultural na comunidade de Jacaraípe. Com a criação da rifa, buscamos envolver a comunidade de forma ativa no financiamento do evento, permitindo que todos contribuam para o sucesso do festival e para a continuidade das atividades do projeto. Prêmio: Copia da minha biblioteca pessoal de AdvPL/TLpp ..etc Participe da Rifa Eu já contribui. Só falta você! ```cmd Pasta de C:\GitHub\naldodj-tlpp 13/04/2024 19:17 . 19/03/2024 13:49 .. 05/01/2024 12:22 2.742 .gitattributes 14/11/2023 16:02 83 .gitignore 02/12/2023 20:08 .vscode 05/01/2024 12:05 bin 13/04/2024 19:18 4.121 ChangeLog.txt 27/12/2023 02:05 include 14/11/2023 16:02 27.030 LICENSE.txt 14/11/2023 16:02 0 makepatch.lst 14/11/2
Utilize a função EmpOpenFile() para abrir Tabela de Outras Empresas conforme exemplo abaixo:
иαldσ dj
[]s
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 ) )
иαldσ dj
Como sempre... Genial!
ResponderExcluirNossa, bacana d+.
ResponderExcluirEsta precisando disso para realizar uma implementação aqui :)
Muuuito obrigado
Marinaldo, naldo...
ResponderExcluirO cara do SIGAPON
Olá Naldo... vc poderia postar alguma coisa sobre o uso da tecnica de programacao MVC com protheus?
ResponderExcluirNaldo, Você conhece bem as classes? A classe principal (Main) é a classe Window? As rotinas abertas em abas no protheus (limitadas as licenças), qual classe é utilizada?
ResponderExcluirNaldo, me tire uma duvida.
ResponderExcluirHa como trabalhar usando Threads em AdvPL?
Estrou precisando realizar umas operacoes e gostaria de utilizar threads para realiza-las em paralelo.
Obrigado