Histórico da Página

Description

The entry point ADMSELFIL was implemented to replace the standard branch selection screen presented by the function AdmOpcoes(), so that the user can choose the desired branches without a screen, or create their own screen for branch selection. Specialization to meet the sigamat model

Descrição

O ponto de entrada ADMSELFIL foi implementado para substituir a tela padrão de seleção de filiais apresentada pela função AdmOpcoes(), de forma que o usuário possa escolher as filiais desejadas sem uma tela, ou criar sua própria tela para seleção das filiais. Especialidade para atender ao modelo de sigamat "EE|FF".

Entry Point

Description:	The entry point ADMSELFIL will be executed whenever the function AdmGetFil() is used and will allow the user to select the branches in the desired way, via screen or without a graphical interface.
Location:	All Adm routines that address corporate management. Example

Ponto de Entrada

EventosFunção

Descrição:

O ponto de entrada ADMSELFIL será executado sempre que utilizada a função AdmGetFil() e permitirá que o usuário selecione as filiais da forma desejada, por tela ou sem interface gráfica.

Localização:

Todas as rotinas de Adm que atendem à gestão corporativa. Ex: FINA241, FINR130, ATFA450, ATFR070, CTBR400.

Events:

Pergunta "Seleciona Filiais?"

Select Branches? question

Source ProgramPrograma Fonte:

AdmXFun.PRW

Function:

AdmGetFil()

RetornoReturn:

Nome

Name

Tipo

Type

Descrição

Description

Obrigatório

Required
aRet	Array

Contém as filiais selecionadas

Sim

 Nota: Caso a rotina fazer a busca da função AdmSelecFil() ou FwSelectGC() para utilizá-las ao invés da AdmGetFil(), o ponto de entrada não será executado.

Exemplo

Contains the selected branches.

Yes

Note: If the routine performs a search for the function AdmSelecFil() or FwSelectGC() to use them instead of AdmGetFil(), the entry point will not be executed.

Example:

#Include 'Protheus.ch'

User Function ADMSELFIL()

Local cTitle:=ParamIxb[1] //

Utilizado para montagem de tela, se desejado
Used for screen assembly, if desired.
Local aOpcs :=ParamIxb[2]// Array
contendo filial, nome da empresa e CGC
containing branch, company name, and CGC (CNPJ/Tax ID
Local cOpcs :=ParamIxb[3]// aOpcs macro-
executado armazenando apenas o codigo da filial
executed, storing only the branch code
Local nTamFil:=ParamIxb[4]//
Tamanho da filial
Branch size
Local aRet   :={}                 //
Retorno das filiais selecionadas
Return of the selected branches
Local nI     :=0

Alert("
Ponto de entrada ADMSELFIL executado.
Entry point ADMSELFIL executed")

If MsgYesNo("
Deseja selecionar todas as filiais
Do you want to select all branches?")
      For nI:=1 to Len(aOpcs)
            AADD(aRet,PadR(aOpcs[nI][1],nTamFil))
      Next
Else
      For nI:=1 to Len(aOpcs)
            If MsgYesNo("
Deseja selecionar a filial
Do you want to select the branch ( "+aOpcs[nI][2]+" ) ?")
                  AADD(aRet,aOpcs[nI][1])
                  MsgAlert("
Filial
Branch "+aOpcs[nI][2]+"
selecionada
select.")
            EndIf
      Next
      If Empty(aRet)
            aRet:=cFilAnt
      EndIf
EndIf

Return aRet

Páginas filhas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

Description

Descrição

Entry Point

Ponto de Entrada