Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição

cChave

Caracter

PARAMIXB[1] - a chave do item

cGrupoCaracter

PARAMIXB[2] - o grupo do produto

cCodIteCaracter

PARAMIXB[3] - o código do produto

cDescCaracterPARAMIXB[4] - a descrição do produto
aIteRelPArrayPARAMIXB[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



Ponto de Entrada relacionado: OC001CAN Ponto de Entrada utilizado para que o usuário realize operações com os dados exibidos na tela da Consulta de Peças ao Cancelar