Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function MNTA2315(cTipo,xk)

	Local cTipo := ParamIXB[1]
	Local nNum 	:= ParamIXB[2]

    If cTipo == 'D'	
		
        MsgAlert("Pneus deletados " + STR(nNum))
	    ElseIf cTipo == 'S'	
		
        MsgAlert("Pneus de saída " + STR(nNum))
	    ElseIf cTipo == 'T'	
		
        MsgAlert("Troca de Pneu " + STR(nNum))
	    ElseIf cTipo == 'E'	
		
        MsgAlert("Pneus de entrada " + STR(nNum))
	    EndIf
	
Return Nil