Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: NGMANATIV - Substitui a Validação do Bem
Descrição: Ponto de Entrada que substitui a validação do bem e manutenção realizada pelo sistema, permite ao usuário realizar sua própria validação com base no exemplo retirado do sistema e tratamentos necessários. Sua chamada se dá na rotina de inclusão de Ordens de Serviço Manual, assim como também no programa para retorno de ordens de serviço de manutenção, retorno em lote, retorno simplificado e retorno modelo 2. Programa Fonte MNTUTIL.PRX Sintaxe NGMANATIV - Substitui a Validação do Bem ( ) --> lRet Retorno
Exemplos #include "rwmake.ch" User Function NGMANATIV()Local nSeq/*Verifica se a chamada da funcao passou por MNTA410If IsInCallStack("MNTA410")EndIf*/If Type("ParamIxb") == "A" cCod := ParamIXB[1] cServ := ParamIXB[2] Seq := ParamIXB[3] //---------------------------------------------- nSeq := If(ValType(Seq)="N",Str(Seq,3),Seq) DbSelectArea("ST9") DbSetOrder(1) If !DbSeek(xFilial('ST9')+cCOD) Help(" ",1,"BEMNEXIST") Return .F. Endif If ST9->T9_SITMAN = 'I' Help(" ",1,"NGMABEMINA") Return .F. Endif DbSelectArea("STF") DbSetOrder(1) If DbSeek(xFilial("STF")+cCod+cServ+nSeq) If STF->TF_ATIVO == "N" Help(" ",1,"NGMANINATI") //Return .f. EndIf EndIf //---------------------------------------------- Else Return .F.EndIf Return .T. Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas