Histórico da Página
Ponto de Entrada
Descrição: | Ponto de Entrada na rotina de Transferencia de Peças, executado após a gravação de cada VS3 (3=Inclusão e 4=Alteração) | ||||||||||||
Localização: | Atualizações / Mov.Peças / Transf. de Peças | ||||||||||||
Eventos: | ... If lPEOM430GRV ExecBlock("OM430GRV",.f.,.f.,{ nOpc , aCols[ni] , VS3->(RecNo()) }) // Ponto de Entrada apos a gravação do VS3 EndIf ... | ||||||||||||
Programa Fonte: | OFIOM430.PRW | ||||||||||||
Função: | FS_OK() | ||||||||||||
| Parâmetros: |
| ||||||||||||
Retorno: | N/A |
Exemplo:
Include totvs.ch
/////////////////////////////////////////////////////////////////////////
// Ponto de Entrada executado apos gravar cada linha da aCols de Peças //
// na tela de Transferência de Peças ( OFIOM430 ) //
/////////////////////////////////////////////////////////////////////////
User Function OM430GRV()
Local nOpc := PARAMIXB[1] // numero, nOpc ( 3=Inclusão / 4=Alteração )
Local aLinha := PARAMIXB[2] // array, linha posicionada na grid de peças (aCols)
Local nRECVS3 := PARAMIXB[3] // numero, RecNo do VS3 referente a peça (VS3)
MsgAlert("Ponto de Entrada 'OM430GRV' executado com sucesso.")
/*
If nOpc == 3 .or. nOpc == 4
VS3->(DBGoTo(nRECVS3))
RecLock("VS3",.f.)
VS3->VS3_TESTE1 := aLinha[FG_POSVAR("VS3_TESTE1")]
VS3->VS3_TESTE2 := aLinha[FG_POSVAR("VS3_TESTE2")]
MsUnLock()
EndIf
*/
Return
OBS: Este Ponto de Entrada se relaciona com os Pontos de Entrada abaixo:
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas