Histórico da Página

Descrição:

Ponto de entrada chamado no momento da gravação da transferência de peças entre filiais.

Eventos:

Static Function FS_OK(nOpc)

Local lVS3_TIPTRA := ( VS3->(FieldPos("VS3_TIPTRA")) > 0 )

Local lVS3_VENTRA := ( VS3->(FieldPos("VS3_VENTRA")) > 0 )

Local lVS3_QTDAPR := ( VS3->(FieldPos("VS3_QTDAPR")) > 0 )

Local ni := 0

Local i := 0

Local y := 0

Local aRegSD2 := {}

Local aRegSE1 := {}

Local aRegSE2 := {}

Local cTpFre := ""

Local nAuxRec

Local nAuxRecVS1

lAchou := .f.

lEntrou := .t.

If ExistBlock("OM430VLD")

lRet := ExecBlock("OM430VLD",.f.,.f.)

if !lRet

Return(.f.)

Endif

EndIf

Função:

FS_OK()