01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Gestão de Serviços
Função:TECR993 - Custos Operacionais
Ticket:Não há.
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-6873


02. SITUAÇÃO/REQUISITO

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

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

Programa Fonte:

TECR993.PRW

Função:

TECR993

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRet

Array

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

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

aRet[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)

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
  

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS