User Function FA080PCC()

	Local aParam  := PARAMIXB
	Local aArea   := GetArea()
	Local nTotImp := 0
	Local nDifImp := 0
	//-------------------------------------------------	
	// aParam [1] = Valor do PIS
	// aParam [2] = Valor do COFINS
	// aParam [3] = Valor do CSLL
	// aParam [4] = Valor do IRRF
	// aParam [5] = Valor do titulo
	//-------------------------------------------------
	
	nTotImp := aParam[1]+aParam[2]+aParam[3]+aParam[4]
	nDifImp := aParam[5] - nTotImp
	
	Alert("O valor liquido do titulo é de "+cValtoChar(nDifImp)+"!") 

	RestArea(aArea)

Return