Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:	SIGAEIC
Função:	AVGERAL.PRW
País:	Brasil
Ticket:	12155230
Requisito/Story/Issue :	DTRADE-6722

02. SITUAÇÃO/REQUISITO

Este Ponto de Entrada pertence ao fonte AVGERAL.PRW. Ele deve ser utilizado para a customização da quebra de adições do desembaraço, com criação de rdmake de nome EICADICIND.PRW

03. LOCALIZAÇÃO

Localizado no fonte AVGERAL.PRW. Uso na rotina de geração das adições do desembaraço que pode ser acessada através do menu Atualizações > Desembaraço > Manutenção > Adições

04. PARÂMETROS

Nome

Tipo

Descrição

EICADICIND

Array

Permite a customização da chave de quebra das adições do desembaraço

Array[1] →Variável caracter que identifica o ponto de chamada interna da rotina de quebra de adições

Array[2] → Variável caracter que identifica o tipo de dado na qual os campos da chave deve ser retornado( string para query, string para work ou array com nome dos campos)

05. RETORNO

Não há.

06. VARIÁVEIS

Parâmetro

Nome

Tipo

Escopo

Permite Alterar

Descrição

EICADICIND

xIndice

Array/Caracter

Private

Sim

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

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