Linha Microsiga Protheus

Árvore de páginas

 Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Jurídico
Módulo:Pré Faturamento de Serviços - SIGAPFS
Função:Cadastro de Clientes - JURA148


02. PONTO DE ENTRADA

Descrição:

Ponto de entrada para criar uma aba no cadastro de clientes.

Localização:

Atualizações - Cadastros - Clientes

Programa Fonte:

JURA148

Função:

VIEWDEF

Parâmetros:

Não há

Retorno:

Nome

Tipo

Descrição

Obrigatório

aSheet

Array

Array com 5 posições obrigatórias e 3 opcionais, totalizando 8 posições:

NomeTipoDescriçãoObrigatório
aSheet[1]Caractere

Nome da aba

Sim
aSheet[2]Caractere

Alias que será utilizado na aba

Sim
aSheet[3]Lógico

Verdadeiro se é um grid ou falso para field

Sim
aSheet[4]Array

array simples com nomes dos dois campos para relacionamento com A1_COD e A1_LOJA

Sim
aSheet[5]Numérico

número do índice de ordenação dos dados

Sim
aSheet[6]Arrayarray simples com nome dos campos que não devem ser apresentados na telaNão
aSheet[7]Arrayarray simples com nome dos campos que montam a chave para validação de duplicidade da linha. Deve ser informado somente para grid, caso o parâmetro 3 for falso será desconsideradoNão
aSheet[8]CaractereNome do campo que deve ser incrementado sequencialmente. Deve ser informado somente para grid, caso o parâmetro 3 for falso será desconsideradoNão
Sim




03. EXEMPLO

#INCLUDE "PROTHEUS.CH"

//-------------------------------------------------------------------
/*{Protheus.doc}J148Sheet
Cria uma aba no cadastro de clientes

@return aSheet, array, Dados para criação da aba
        aSheet[1] - Nome da aba
        aSheet[2] - Alias de dados que será utilizado
        aSheet[3] - Verdadeiro se é um grid ou falso para field
        aSheet[4] - array com o nome dos campos para relacionamento com A1_COD e A1_LOJA
        aSheet[5] - numero do índice de ordenação dos dados
        aSheet[6] - Array com nome dos campos que não devem ser apresentados na tela
        aSheet[7] - Array com nome dos campos que montam a chave da linha (Somente para grid)
        aSheet[8] - Nome do campo que deve ser incrementado sequencialmente (Somente para grid)

@author TOTVS
/*/
//-------------------------------------------------------------------
User Function J148Sheet()
    Local aSheet      := {}
    Local cNameSheet  := "VENDEDORES"
    Local cTable      := "ZAA"
    Local lGrid       := .T.
    Local aRelation   := {"ZAA_CODCLI", "ZAA_LOJA"}
    Local nIndexOrder := 1
    Local aRemoveFld  := {"ZAA_DDDTEL"}
    Local aUniqueLin  := {"ZAA_TELCOM"}
    Local cFieldInc   := "ZAA_CODVEN"

    aSheet := {cNameSheet, cTable, lGrid, aRelation, nIndexOrder, aRemoveFld, aUniqueLin, cFieldInc}

Return (aSheet)