Árvore de páginas

Descrição

Ponto de Entrada chamado após a gravação das informações da Ordem de Serviço (gravação de etapas e insumos), para alteração e inclusão de informações de insumo/etapa e de campos de usuários.

Exemplos

#Include 'Protheus.ch'

User Function NGETAPNEX()

If cPrograma == "MNTA470"
dbSelectArea("STL")
dbSetOrder(1)
If dbSeek(xFilial("STL") + STJ->TJ_ORDEM)
While !Eof() .And. xFilial("STL") == STL->TL_FILIAL .And. STJ->TJ_ORDEM == STL->TL_ORDEM
RecLock("STL")
STL->TL_LOCAL := "02"
MsUnLock()
MsgInfo("Local de estoque alterado.","Atenção")
dbSkip()
End
EndIf
EndIf

Return .T.

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Boleano

Programa Fonte

MNTA330, MNTA410, MNTA420 e NGGERAOS