Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

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

Parâmetros:

N/A

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

Programa Fonte:

OFIOM430.prw  

Função:

FS_OK()   

Retorno:

Lógico = .t. ou .f.

 

Exemplo:

User Function OM430VLD()

 

MsgInfo("Ponto de entrada OM430VLD executado com sucesso!")

 

Return(.t.)