Ponto de Entrada GCPXPREL
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Gestão de Compras Públicas | ||||
Rotina: |
| ||||
País(es): | Brasil | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada para manipulação dos dados do fornecedor, gerado através do cadastro de participante do processo licitatório, na escolha do vencedor do processo. | ||||||||
Localização: | Atualizações / Licitações / Edital | ||||||||
Eventos: | Conversão de um pré-licitante em fornecedor ou cliente. | ||||||||
Programa Fonte: | GCPXFUN | ||||||||
Função: | GCPWINNER | ||||||||
Função: | GCPWINNER | ||||||||
Parâmetros: | PARAMIXB[1]: Array contendo as informações do fornecedor/cliente PARAMIXB[1]: Tipo de cadastro. "F"- Fornecedor; "C" - Cliente. | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function GCPXPREL()
Local aDados := PARAMIXB[1]
Local cTipo := PARAMIXB[2]
Local nPos := 0
If cTipo == "F" //altera codigo do fornecedor
nPos:= aScan(aDados, {|x| Alltrim(x[1]) == "A2_COD"})
aDados[nPos][2] := "XXXXXX"
EndIf
Return aDados