Ponto de Entrada
Descrição: | Ponto de Entrada para informar os campos adicionais que possibilitará edição na grid de Peças da tela de Transferência de Peças (OFIOM430). A rotina tambem obedece/executa o X3_WHEN do campo. | ||||||
Localização: | Atualizações / Mov.Peças / Transf. de Peças | ||||||
Eventos: | ... aCposGet := {"VS3_GRUITE","VS3_CODITE","VS3_ARMORI","VS3_QTDINI","VS3_QTD2UM","VS3_OPER","VS3_TESSAI","VS3_TESENT","VS3_FORMUL","VS3_CENCUS","VS3_CONTA","VS3_ITEMCT","VS3_CLVL"} If ExistBlock("OM430EDT") // Campos Adicionais da tabela VS3 a serem editados na tela - Obs.: a rotina tambem obedece/executa o X3_WHEN do campo aCposAux := ExecBlock("OM430EDT",.f.,.f.) For nCntFor := 1 to len(aCposAux) aAdd(aCposGet,aCposAux[nCntFor]) Next EndIf ... | ||||||
Programa Fonte: | OFIOM430.PRW | ||||||
Função: | FS_MONTATELA() | ||||||
Parâmetros: | N/A | ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
///////////////////////////////////////////////////////////////////////////
// Ponto de Entrada para informar os campos adicionais que possibilitará //
// edição na grid de Peças da tela de Transferencia de Peças (OFIOM430) //
// Obs.: a rotina tambem obdece/executa o X3_WHEN do campo //
///////////////////////////////////////////////////////////////////////////
User Function OM430EDT()
Local aRetCpos := {} // Campos Adicionais da Tabela VS3 que possibita edição na grid de Peças
MsgAlert("Ponto de Entrada 'OM430EDT' executado com sucesso.")
// aRetCpos := {"VS3_TESTE1","VS3_TESTE2"}
Return aClone(aRetCpos)
OBS: Este Ponto de Entrada se relaciona com os Pontos de Entrada abaixo: