Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Nilson César da Consolação Filho

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Nilson César da Consolação Filho

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Parâmetro

Nome

Tipo

Escopo

Permite Alterar

Descrição
EICADICINDxIndiceArray/CaracterPrivateSim

String ou array de strings com os nomes dos campos que compõem a chave de quebra da adição no momento

Obs. Quando carácter, os nomes dos campos podem vir separados nos seguintes formatos:

         - ( + )  String tipo chave de índice ISAM

         - (  ,  )  String tipo query

Esta varíavel fica disponível quando o Parâmetro do ponto de entrada é a string "EICADICIND"

06. EXEMPLO


Expandir
titleExemploFunção Customizada

User Function EICADICIND()
Local cMsg


    If ValType(PARAMIXB) == 'A' .And. Len(PARAMIXB) > 1
        cMsg := "Chamada: "+PARAMIXB[1] +CHR(13)+CHR(10)+ " Tipo...: "+PARAMIXB[2] +CHR(13)+CHR(10)
        If ValType(xIndice) == 'A'
            cMsg += " xIndice: '"
            aEval(xIndice,{|x|cMsg += x+","})
            cMSg+= "'"
        Else
            cMsg += " xIndice: '"+xIndice+"'"
        EndIf
        MsgInfo(cMsg,"Valores Carregados")
    EndIf

Return

...