import.css=/download/attachments/327912/newLayout.css |
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
|