OM430GRV Ponto de Entrada executado após gravar cada linha da grid (aCols) de Peças (campos padrões) na tela de Transferência de Peças (OFIOM430)

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:

Nome	Tipo	Descrição
nOpc	Numerico	nOpc ( 3=Inclusão / 4=Alteração )
aLinha	Array	linha posicionada na grid de peças (aCols)
nRECVS3	Numerico	RecNo do VS3 referente a peça (VS3)

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: