Histórico da Página

Ponto de Entrada

Descrição:

Permite que o usuário realize operações com os dados exibidos na tela da Consulta de Peças ao confirmar.

Localização:

Atualizações / Mov Oficina / Orc. Por Fases

Eventos:

Do Case

Case cBotao == "CONFIRMAR"

If ExistBlock("OC001TOK")

ExecBlock("OC001TOK",.f.,.f.,{cChave,cGrupo,cCodIte,cDesc, aIteRelP})

EndIf

Programa Fonte:

OFIXC001.PRW

Função:

OFIXC001()

Parâmetros:

Nome	Tipo	Descrição
cChave	Caracter	PARAMIXB[1] - a chave do item
cGrupo	Caracter	PARAMIXB[2] - o grupo do produto
cCodIte	Caracter	PARAMIXB[3] - o código do produto
cDesc	Caracter	PARAMIXB[4] - a descrição do produto
aIteRelP	Array	PARAMIXB[5] - o array com informações do produto que é exibido na parte inferior da tela

Retorno:

N/A

Exemplo:

Include totvs.ch

User Function OC001TOK()

Local lRet := .t.

MsgInfo("Ponto de entrada OC001TOK executado com sucesso!")

Return lRet