Linha Microsiga Protheus

Árvore de páginas

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

Foi implementado um Ponto de Entrada quando forem confirmados 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>>Vendas>>Custos Operacionais

Programa Fonte:

TECR993.PRW

Função:

TECR993

Parametros:

Nome

Tipo

Descrição

Obrigatório

oReportObjetoObjeto do tipo TReport, contendo a estrutura do relatórioSim

 aTabelas

Array

Array contendo as Tabelas do relatório onde:

aTabelas[1] - Array Contendo os dados da Tabela do Totalizador Geral do Relatório

aTabelas[2] - 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, 02] - Tipo do Campo

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

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

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

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

Sim

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

  • Não há.