Histórico da Página

...

03. SOLUÇÃO

Ponto de Entrada

Descrição:

AtR993 - Ponto de Entrada quando o usuário confirmar os parâmetros do Relatório

Localização:

Relatórios>>Contratos de Serviços>>Gestão de Contratos

Relatórios>>Vendas>>Custos Operacionais
Programa Fonte:	TECR993.PRW
Função:	TECR993

Retorno

Parametros:

Nome

Tipo

Descrição

Obrigatório

aRet


oReport	Objeto	Objeto do tipo TReport, contendo a estrutura do relatório	Sim
aTabelas	Array	Array contendo

os botões a serem adicionados no componente FWFormBrowse pelo método AddButton

as Tabelas do relatório onde:

aTabelas

aRet

[1] -

Título do Botão (parâmetro cTitle do método)aRet

Array Contendo os dados da Tabela do Totalizador Geral do Relatório

aTabelas[2] -

Ação que será executada no clique do botão. Pode ser uma função ou um Code Block. (parâmetro xAction do método)

aRet[3] - Indica a opção real (ordem de criação) do aRotina antigo - Compatibilização com a MBrowse antiga. (parâmetro nRealOpc do método)

Array Contendo os dados da Tabela do Totalizador do Cliente

aTabelas[3] - Array Contendo os dados da Tabela do Totalizador do Contrato

aTabelas[4] - Array Contendo os dados da Tabela do Totalizador do Local

aTabelas[5] - Array Contendo os dados da Tabela do Itens de RH

Cada linha do Array aTabela[n] possui a seguinte estrutura:

aTabela[n, 01] - Alias da Tabela

aTabela[n, 02] - Estutura dos Campos onde:

aTabela[n, 02, 01] - Nome do Campo

aTabela[n, 02, 01] - Tipo do Campo

aTabela[n, 02, 01] - Tamanho do Campo

aTabela[n, 02, 01] - Decimais do Campo

aTabela[n, 03] - Campos do Índice onde:

aTabela[n, 03, y] - Nome do Campo

Sim

Não

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	Indica se o relatório deverá ser impresso ou não	Sim

#Include 'Protheus.ch'


User Function AtR993()
Local aTables := {}
Local nC := 0
Local lRet := .T.
Local nY := 0
Local cKey := 0
If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 2 .AND. ValType(PARAMIXB[02]) == "A"


   aTables := aClone(PARAMIXB[02])

   For nC := 1 to Len(aTables)
      ConOut("Alias -->" + aTables[nC, 01])
      cKey:= ""
      For nY := 1 to Len(aTables[nC, 03])
         cKey := cKey + "+" + aTables[nC, 03][nY]
      Next

      If nY > 1
         ConOut("Index -->" + Substr(cKey,2))
      EndIf

      ConOut("Fields")
      For nY := 1 to Len(aTables[nC, 02])
        ConOut(" "+aTables[nC, 02][nY, 01])
      Next


  Next

EndIf
Return lRet

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave

03. SOLUÇÃO

Ponto de Entrada